看板 Visual_Basic 關於我們 聯絡資訊
Dim oExcel As Object Dim oBook As Object Dim oSheet As Object 'Start a new workbook in Excel oExcel = CreateObject("Excel.Application") oBook = oExcel.Workbooks.open("c:\book1.xls") oSheet = oBook.Worksheets(1) oExcel.visible = True oExcel.workbooks.Range("A1").value = "John"===>出現錯誤訊息 oExcel.Quit() -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.130.178.102