如何打开指定的EXCEL文件,写入数据!在线等!谢!

Question

如何打开指定的EXCEL文件,写入数据!

Answer 1

Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object   'Start a new workbook in Excel
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Open("D:\Book1.xls")
   'Add data to cells of the first worksheet in the new workbook
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("A1").Value = "Last Name"
   oSheet.Range("B1").Value = "First Name"
   oSheet.Range("A1:B1").Font.Bold = True
   oSheet.Range("A2").Value = "Doe"
   oSheet.Range("B2").Value = "John"   'Save the Workbook and Quit Excel
   oBook.SaveAs "C:\Book1.xls"
   oExcel.Quit

Answer 2

Dim a As object
Dim c As object
Dim i As Integer
   set a=createobject("Excel.application")
   Call a.Workbooks.Open(FileName:="C:\Book2.xls")
   
   Set c = a.Workbooks(1).Worksheets(1)
   a.Visible = True
   For i = 1 To 10
        c.Cells(i, 1) = i * 2
   Next i