如何VB实现对Excel的数据查询？

在VB中建立到excel表的连接，就可以打开文件了。。

然后读取excel文件的代码和VBA差不多，具体的自己调试下！

下面代码要求执行代码的电脑上必须安装了excel程序（这样可以不添加对excel的引用）。。

Dim xlsApp As Object, xlsWb As Object, xlsWs As Object '定义Excel对象

Set xlsApp = CreateObject("Excel.Application") '建立excel对象

Set xlsWb = xlsApp.Workbooks.Open(fPath) '要打开的文档路径

Set xlsWs = xlsWb.Worksheets(1) '选工作表。多张表时通过序号指定不同的表

xlsWs.Activate '选定工作表，下面就可以开始读取表内容了。

最后数据处理完成后记得执行下面操作：

xlsWb.Close '关闭excel文件

xlsApp.Quit '退出excel

Set xlsWs = Nothing

Set xlsWb = Nothing

Set xlsApp = Nothing