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

楼主

已结贴√ 问题点数：20 回复次数：3

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

在电脑上没有数据库前下，想做一个vb6对excel表的查询功能。查询列：姓名或列电话号码，当符合查询条件时，会显示出来，或可以提取出来。请大师们给点代码提示？

[此贴子已经被作者于2017-3-19 19:10编辑过]

搜索更多相关主题的帖子: excel　数据库　电话　姓名　

第 2 楼

得分:10

方法一：建立数据库链接，通过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)