魔方网表 让信息化更简单

 找回密码
 注册
查看: 1954|回复: 1

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

[复制链接]
lnxxnchzyl 发表于 2009-10-19 09:56:00 | 显示全部楼层 |阅读模式
以下是引用 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的基础,可以很容易的读懂这个程序。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|魔方软件 ( 京ICP备08008787号 )

京公网安备 11010702001722号

GMT+8, 2024-5-5 06:00 , Processed in 0.061807 second(s), 15 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表