VB如何調用excel中的數據。

要使用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

上一篇:Java中void print是什麽意思怎麽用?

下一篇:蘋果報告問題網址是多少