2022-05-09 00:48来源:m.sf1369.com作者:宇宇
要使用VB操作EXCEL,必须引用EXCEL对象,方法与步骤如下:
'首先通过VB的菜单 [工程] -- [引用],勾选:Microsoft Excel XX.X Object Library
'其中XX.X,要看你计算机安装的OFFICE版本而定
Private Sub Command1_Click()
Dim xlsApp As Excel.Application '声明对象变量
Set xlsApp = Excel.Application '实例化对象
xlsApp.Visible = False '使Excel隐藏不可见
xlsApp.Workbooks.Open (C:\1.xls) '打开EXCEL文件,假设文件在c盘根目录
Dim i As Long
i = 1
Do While xlsApp.ActiveWorkbook.Sheets(sheet1).Cells(i, 1)
If xlsApp.ActiveWorkbook.Sheets(sheet1).Cells(i, 1).Value = Text1.Text Then
Label1.Caption = xlsApp.ActiveWorkbook.Sheets(sheet1).Cells(i, 2).Value
Exit Do
End If
i = i + 1
Loop
xlsApp.ActiveWorkbook.Close savechanges:=False '关闭活动工作簿同时不保存对它的更改。
xlsApp.Quit '关闭EXCELL
Set xlsApp = Nothing '释放资源
End Sub