救助怎样用vb6编写对excel表单元格的查询

#2

xiangyue05102017-03-19 22:27

方法一：建立数据库链接，通过SQL语句查询，不过这个需要你的数据严格符合数据库的格式。示例如下

程序代码：

     Dim SQL As String Public rs As ADODB.Recordset
     Dim strSQL As String
     CommonDialog1.Filter = "电子表格文件(.xls)|*.xls"
     CommonDialog1.DialogTitle = "请选择要导入的文件"
     CommonDialog1.ShowOpen
     SQL = "INSERT INTO Family SELECT * FROM  OpenRowSet('microsoft.jet.oledb.4.0','Excel 14.0;HDR=Yes;database=" & CommonDialog1.FileName & " ;','select * from [Sheet1$] ')"
    Set rs = Selectsql(SQL)
    Conn.Execute SQL, , adExecuteNoRecords
    Conn.Close

方法二：直接遍历excel单元格实现查找

程序代码：

Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
val1=xlSheet.Cells(row, col)

#3

ch19642017-03-20 16:41

回复 2楼 xiangyue0510

谢谢大师，本人是初学，有很多还真不太懂，你第二个代码，操作提示变量未定义，能再给点说明吗？

#4

ZHRXJR2017-03-23 17:08

回复楼主 ch1964

只有本站会员才能查看附件，请登录

这个应该符合你的要求了。

只有本站会员才能查看附件，请登录

联系我。

救助 怎样用vb6编写对excel表单元格的查询