Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
'在表格的第一個儲存格中寫些文字
ExcelSheet.Cells(1, 1).Value = "This is column A, row 1"
'將該表格儲存到 C:\test.doc 目錄
ExcelSheet.SaveAs "C:\ TEST.DOC"
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
'在表格的第一個儲存格中寫些文字
ExcelSheet.Cells(1, 1).Value = "This is column A, row 1"
'將該表格儲存到 C:\test.doc 目錄
ExcelSheet.SaveAs "C:\ TEST.DOC"
請先 登入 以發表留言。