這個要使用部件，如果是資料，最好還是輸出到Excel裡。在VB6中，新增引用“Microsoft Excel object Library”過程中加入下列程式碼，就能讀寫EXCEL單元格了： Set FileSys = CreateObject("scripting.filesystemobject") Set xlApp = CreateObject("Excel.Application") "建立EXCEL應用類 xlApp.Visible = False "設定Excel不可見 Set xlBook = xlApp.Workbooks.Open(App.Path & "\temp.xls") "開啟Excel工作簿 temp.xls Set xlsheet = xlBook.Worksheets(1) "開啟Excel工作表(Sheet1) xlsheet.Activate "啟用工作表 xlsheet.Cells(1, 1) = "日期" xlsheet.Cells(1, 2) = "時間"程式結束時要用以下程式碼關閉EXCEL： xlBook.RunAutoMacros (xlAutoClose) "執行EXCEL關閉宏 xlBook.Close (True) "關閉EXCEL工作簿 xlApp.Quit "關閉EXCEL Set xlApp = Nothing "釋放EXCEL物件
這個要使用部件，如果是資料，最好還是輸出到Excel裡。在VB6中，新增引用“Microsoft Excel object Library”過程中加入下列程式碼，就能讀寫EXCEL單元格了： Set FileSys = CreateObject("scripting.filesystemobject") Set xlApp = CreateObject("Excel.Application") "建立EXCEL應用類 xlApp.Visible = False "設定Excel不可見 Set xlBook = xlApp.Workbooks.Open(App.Path & "\temp.xls") "開啟Excel工作簿 temp.xls Set xlsheet = xlBook.Worksheets(1) "開啟Excel工作表(Sheet1) xlsheet.Activate "啟用工作表 xlsheet.Cells(1, 1) = "日期" xlsheet.Cells(1, 2) = "時間"程式結束時要用以下程式碼關閉EXCEL： xlBook.RunAutoMacros (xlAutoClose) "執行EXCEL關閉宏 xlBook.Close (True) "關閉EXCEL工作簿 xlApp.Quit "關閉EXCEL Set xlApp = Nothing "釋放EXCEL物件