首先，在工程中引用Microsoft Excel型別庫： 從"工程"選單中選擇"引用"欄；選擇Microsoft Excel 11.0 Object Library（EXCEL2003），(或者其他版本)然後選擇"確定"。表示在工程中要引用EXCEL型別庫。透過VB訪問EXCEL表格具體的使用例項：Private Sub Command1_Click()Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.WorksheetDim FileName, SheetName As StringFileName = "e:\data.xls" "要訪問的工作簿路徑和名稱SheetName = "sheet1" "指定的要訪問的工作表名稱Set xlApp = CreateObject("Excel.Application") "建立EXCEL物件Set xlBook = xlApp.Workbooks.Open(FileName) "開啟已經存在的EXCEL工件簿檔案xlApp.Visible = True "設定EXCEL物件可見（或不可見）Set xlSheet = xlBook.Worksheets(SheetName) "設定活動工作表xlSheet.Cells(5, 2) = Text1.Text "給單元格B5賦值xlSheet.Cells(2, 3) = Text2.Text "給單元格C2賦值xlBook.Close (True) "關閉工作簿xlApp.Quit "結束EXCEL物件Set xlApp = Nothing "釋放xlApp物件End Sub
首先，在工程中引用Microsoft Excel型別庫： 從"工程"選單中選擇"引用"欄；選擇Microsoft Excel 11.0 Object Library（EXCEL2003），(或者其他版本)然後選擇"確定"。表示在工程中要引用EXCEL型別庫。透過VB訪問EXCEL表格具體的使用例項：Private Sub Command1_Click()Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.WorksheetDim FileName, SheetName As StringFileName = "e:\data.xls" "要訪問的工作簿路徑和名稱SheetName = "sheet1" "指定的要訪問的工作表名稱Set xlApp = CreateObject("Excel.Application") "建立EXCEL物件Set xlBook = xlApp.Workbooks.Open(FileName) "開啟已經存在的EXCEL工件簿檔案xlApp.Visible = True "設定EXCEL物件可見（或不可見）Set xlSheet = xlBook.Worksheets(SheetName) "設定活動工作表xlSheet.Cells(5, 2) = Text1.Text "給單元格B5賦值xlSheet.Cells(2, 3) = Text2.Text "給單元格C2賦值xlBook.Close (True) "關閉工作簿xlApp.Quit "結束EXCEL物件Set xlApp = Nothing "釋放xlApp物件End Sub