AccessTable=Text4.Text'数据库内表格sheet=Text3.Text'电子表格内工作表Setdb=OpenDatabase(excelpath,True,False,"Excel5.0")'打开电子表格文件SQL=("Select*into[;database="...

SQL=("Select*into[;database="&AccessPath&"]."&AccessTable&"FROM["&sheet&"$]")db.Execute(SQL)'将电子表格导入数据库Data1.RecordSource="sheet1"Data1.RefreshDBG

2、VB读写EXCEL表：VB本身提自动化功能可以读写EXCEL表，其方法如下：第一步：在工程中引用MicrosoftExcel类型库：从"工程"菜单中选择"引用"栏；选择MicrosoftExcel9.0ObjectLibrary（EXCEL2000），然后选择"确定"。

首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，然后打开Excel文件读数据DimscxlsAsExcel.ApplicationDimscbookAsExcel.WorkbookDimscsheetAsExcel.Worksheet‘Setscxls=CreateObject("...

2、选择“数据”——“其他来源”——“来自MicrosoftQuery”。3、选择“ExcelFiles*“那一项，并且把对话框下面的“使用“查询向导”创建/编辑查询”勾去掉。4、在弹出的对话框中将刚才我们命名的那两个表都添加进去。

"表1中"&St1.cells(2,2).valueSt1=Nothingxlbook=NothingExlApp=NothingMsgBox("OK",MsgBoxStyle.Exclamation,"Tudy")EndSubEndClass...

vb读取表格中的数据有下面几个方法1，a=range("c5")2，a=cells(3,5)3，a=cells("c",5)4，a=[c5]还有其他数组赋值的方法祝你成功

integefori=1to3forj=1to3'这步是利用a到c之间的ascii码来处理，如果是i循环1,5的话，那就会是a,b,c,d,e,内循环j管a3~a5,a(i,j)=int(xlsheet.range(chr(asc("a")+i-1))&cst...

VB操作EXCEL全面控制Excel首先创建Excel对象，使用ComObj:DimExcelIDasExcel.ApplicationSetExcelIDasnewExcel.Application1)显示当前窗口：ExcelID.Visible:=True;2)更改Excel标题栏：ExcelID....

我用的textbox,你也可以改成你的那种控件,这个是返回在一个工作簿中的每个工作表中找到的第一个,如果要返回所有找到的,也可以修改.希望可以帮到你.我测试是OK的.PrivateSubCommandButton2_Click()onerrorresumenext...