、在工程中引用Microsoft Excel型別庫：從"工程"選單中選擇"引用"欄；選擇Microsoft Excel 9.0 Object Library（EXCEL2000），然後選擇"確定"。表示在工程中要引用EXCEL型別庫。2、在通用物件的宣告過程中定義EXCEL物件：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet3、在程式中操作EXCEL表常用命令：Set xlApp = CreateObject("Excel.Application") "建立EXCEL物件Set xlBook = xlApp.Workbooks.Open("檔名") "開啟已經存在的EXCEL工件簿檔案xlApp.Visible = True "設定EXCEL物件可見（或不可見）Set xlSheet = xlBook.Worksheets("表名") "設定活動工作表xlSheet.Cells(row, col) =值 "給單元格（row,col）賦值xlSheet.PrintOut "列印工作表xlBook.Close (True) "關閉工作簿xlApp.Quit "結束EXCEL物件Set xlApp = Nothing "釋放xlApp物件這是我收藏的，你試一下
、在工程中引用Microsoft Excel型別庫：從"工程"選單中選擇"引用"欄；選擇Microsoft Excel 9.0 Object Library（EXCEL2000），然後選擇"確定"。表示在工程中要引用EXCEL型別庫。2、在通用物件的宣告過程中定義EXCEL物件：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet3、在程式中操作EXCEL表常用命令：Set xlApp = CreateObject("Excel.Application") "建立EXCEL物件Set xlBook = xlApp.Workbooks.Open("檔名") "開啟已經存在的EXCEL工件簿檔案xlApp.Visible = True "設定EXCEL物件可見（或不可見）Set xlSheet = xlBook.Worksheets("表名") "設定活動工作表xlSheet.Cells(row, col) =值 "給單元格（row,col）賦值xlSheet.PrintOut "列印工作表xlBook.Close (True) "關閉工作簿xlApp.Quit "結束EXCEL物件Set xlApp = Nothing "釋放xlApp物件這是我收藏的，你試一下