如何VB实现对Excel的数据查询vb如何实现查询功能
最新回答
戏柚画西楼
2024-09-19 18:26:19
然后读取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
热门标签
