各位高手,如何用vb调用查询excel表呢?比如输入编号或日期就可将其全部调出来,希望给出相关程序代码谢谢

我试了一下这个Excel.Recordset.FindFirst "No=" & " " ✀inp✀"&"""但出错了
2025-04-05 16:58:08
推荐回答(1个)
回答1:

vb操作excel,可以使用以下两种方法之一:
方法一:使用EXCEL.APPLICATION对象
方法二:使用数据控件,把Excel数据表作为数据库。
方法一的举例:
'首先通过VB的菜单[工程] -- [引用],勾选:Microsoft Excel 11.0 Object Library
'其中11.0是不一定的,要看你计算机安装的OFFICE版本而定
Dim xlsApp As Excel.Application '声明对象变量
Set xlsApp = Excel.Application '实例化对象
xlsApp.Visible = False '使Excel隐藏不可见
xlsApp.Workbooks.Open ("C:\book1.xls") '打开EXCEL文件
'我在这里举1个例子,主要是告诉你要明确操作的是哪个表哪个单元格
xlsApp.Application.ActiveWorkbook.Sheets("Sheet1").Range("A1").Value = "您好!" '在指定表的单元格编辑文本

xlsApp.ActiveWorkbook.Close savechanges:=True '关闭活动工作簿同时保存对它的更改。
xlsApp.Quit '关闭EXCELL
Set xlsApp = Nothing '释放资源

方法二:限于篇幅,网上找一找很多。