lnxxnchzyl 发表于 2009-10-19 09:56:00

以下是引用 Orlmern 在14楼的发言:

以下是引用 Orlmern 在14楼的发言:
那请问……{17}{17}
  请问怎样才能远程写入数据进EXCEL文件里呢?
{17}{17}

lnxxnchzyl 发表于 2009-10-19 09:56:16

关于远程写入数据:
需要了解如下对象:
Application:Excel应用程序。
Workbook:Excel工作簿。
WorkSheet:Excel工作表。
如何创建一个Excel应用程序
创建Excel应哟功能程序使用的是CreateObject()函数
看下面的例子:
打开Word,进入VBAIDE,添加模块后写入如下代码:
Public Sub test()
    Dim app As Excel.Application
    Dim book As Workbook
    Dim sheet As Worksheet
   
    Set app = CreateObject("Excel.Application")
   
    Set book = app.Workbooks.Add
    MsgBox book.Name
   
    For Each sheet In book.Worksheets
      MsgBox sheet.Name
    Next sheet
   
    Set sheet = book.Worksheets(1)
    sheet.Cells(1, 1) = "Hello"
    book.SaveAs "C:\Hello.xls"
    book.Close
   
    Set sheet = Nothing
    Set book = Nothing
    Set app = Nothing
   
End Sub
写入后运行一下。如果你有一点VBA的基础,可以很容易的读懂这个程序。
页: [1]
查看完整版本: 以下是引用 Orlmern 在14楼的发言: