如何在VB的Text控件中显示Excel表上的指定内容？
用的是VB6.0 EXCEL2010 我想在VB车辆一栏中输入车号,单机显示Text1控件显示EXCEL中相应的车号的皮重~ 是在VB中输入车号显示皮重！谢谢大神,列清楚代码和一些步骤。
'方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library
'其中，XX.X取决于你安装的Office的版本号
'在你的显示按钮中加入以下代码。
'注："地址"中加入你的excel文件地址，如"C:\1.XLS"，要带双引号
'Sheet1也可以改为你的工作表的名字，要带双引号
Dim excel_App As Excel.Application
Dim excel_Book As Excel.Workbook
Dim excel_sheet As Excel.Worksheet
Dim CarWeight
'启动Excel
Set excel_App = CreateObject("Excel.Application") '引用程序对象实例
'设置Excel为不可见
excel_App.Visible = False
'打开文件
Set excel_Book = excel_App.Workbooks.Open("地址") '工作簿实例
Set excel_sheet = excel_Book.Worksheets("Sheet1") '数据表实例
'这里需要先将你的车号存入valuesearch变量才能搜索
'如 valuesearch = Form1.TextBox1.text
'进行搜索，存入carweight变量
CarWeight = Application.WorksheetFunction.VLookup(valuesearch, Range("C:C"), 2, False)
'然后将CarWeight赋值给你的皮重文本框
'如Form1.TextBox2.Text = CarWeight
'''''''''''''''''''''''''''''''''''
'关闭Excel文件
Set excel_sheet = Nothing
Set excel_Book = Nothing
excel_App.Quit
Set excel_App = Nothing
Dim xlsApp As Object, xlsWb As Object, xlsWorksheet As Object
Set xlsApp = CreateObject("excel.application") '创建excel.application对象
xlsApp.Visible = True '显示excel 主界面
xlsApp.Visible = False '隐藏excel 主界面
xlsApp.workbooks.Open ("D:\1\1.xls") '打开D:\1\1.xls
Set xlsWb = xlsApp.workbooks("1.xls") '设置xlswb变量引用1.xls 工作簿
'MsgBox xlsWb.Name '显示工作薄的名字
Set xlsWorksheet = xlsWb.worksheets(1) '设置xlsworksheet变量引用1.xls 工作簿的第一个工作表
MsgBox xlsWorksheet.cells(1, 1) '显示a1单元格的内容
MsgBox xlsWorksheet.cells(1, 2) '显示a1单元格的内容
Text1.Text = xlsWorksheet.cells(1, 1)
Text2.Text = xlsWorksheet.cells(1, 2)
xlsApp.quit '关闭excel
End Sub
如何在VB的Text控件中显示Excel表上的指定内容vb显示excel表格内容
Private Sub Command1_Click()Dim xlsApp As Object, xlsWb As Object, xlsWorksheet As ObjectSet xlsApp = CreateObject(\\"excel.application\\") '创建excel.application对象xlsApp.Visible = True '显示excel 主界面xlsApp.Visible = False '隐藏excel 主界面xlsApp.workbooks.Open (\\"D:\\\\1\\\\...
如何在VB的Text控件中显示Excel表上的指定内容?
'要在VB中操作Excel，需要引用Excel对象模型'方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library'其中，XX.X取决于你安装的Office的版本号'在你的显示按钮中加入以下代码。'注："地址"中加入你的excel文件地址，如"C:\\1.XLS"，要带双引号'Sheet1也可以改...
怎么在VB的一个文本框里显示Exce中的一个数据
'要在VB中操作Excel，需要引用Excel对象模型'方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library'其中，XX.X取决于你安装的Office的版本号 '在你的显示按钮中加入以下代码。'注："地址"中加入你的excel文件地址，如"C:\\1.XLS"，要带双引号'Sheet1也可以改...
vb怎样读取excel中指定单元格内容并显示vb怎样读取excel中指定单元格...
1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...3.然后,在表格中绘制出按钮控件,并修改控件名称。4.接着,鼠标左键单击【查看代码】按钮 5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，...
怎么能把excel中某个单元格里的数据读入VB的textbox中
Private Sub Form_Load()Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open("C:\\Documents and Settings\\dezhao\\Desktop\\1.xls") '打开已经存在的EXCEL工件簿文件 textbox1.text=xlBook.Worksheets("sheet1").cells(1,1)end sub 自己改改就行了...
vb中text如何查询excel中的数据
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\\A.XLS;Extended Properties='Excel 8.0;HDR=Yes'"rs.Open "select * from [原始$] ", conn, adOpenDynamic, adLockOptimistic 'EXCEL中工作表的名称为 <原始> 引用格式必须是这样的...
如何用vb提取excel表格中的数据如何用vb提取excel表格中的数据和...
用vb提取excel表格中的数据方法：1、在汇总表中的A列，将多个工作表的表名依次排列。2、在B1单元格输入以下公式，然后向右向下填充公式=OFFSET(INDIRECT($A1&"!A1"),,COLUMN(A1)-1)&""公式表示：以A1单元格的内容作为表名引用，通过OFFSET函数将表名引用的A1单元格作为基准单元格，每向右移动一列...
如何用VB读取某个特定位置的EXCEL文件中的某个工作簿中的某行某列的内...
Private Sub CommandButton1_Click()Workbooks.Open Filename:="E:\\1.xlsx" '打开目标文件Me.TextBox1.Value = ActiveWorkbook.Sheets(2).Range("A3") '给文本框1赋值ActiveWorkbook.Close No '关闭目标文件End Sub根据你的要求，供参考！
vb如何读取excel制定单元格数据?
直接在窗体中，按钮单击的事件下写一句话：假设标签1为label1，me.label1.text = thisworkbook.sheets(1).range("A3").value 完事。。。VB：先声明一个对象变量 dim BookA as new workbook 然后给它赋值： bookA = workbooks.open("这里是你EXCEL的位置") 注意，如果是VB 6.0，那么在这句话...
vb怎么打开Excel文件并向特定的单元格填写内容excelvb打开文件_百度知 ...
1、在工程中引用Microsoft Excel类型库：从\\"工程\\"菜单中选择\\"引用\\"栏;选择MicrosoftExcel 9.0 Object Library(EXCEL2000)，然后选择\\"确定\\"。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp AsExcel.Application Dim xlBook As Excel.WorkBook Dim xlSheet ...
