回覆列表
  • 1 # 瘋狂呂附近

    這個要使用部件,如果是資料,最好還是輸出到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物件

  • 中秋節和大豐收的關聯?
  • 網路用語中,HY是什麼意思?