vba,最近竟然要用这个啦

目标

从excel中读出数据。导入到一个word文件中。一开始希望用java excel api实现了。后来觉得效果非常不好。才考虑使用所谓的vba，始终有些排斥vb类的东西。我声明我是被迫的。

vba 代码

Sub getData()

    Dim i As Integer
    Dim j As Integer
    Dim r As String
    Dim c As String


    chan = DDEInitiate(app:="Excel", topic:="System")
    DDEExecute channel:=chan, Command:="[Open(" & Chr(34) & "c:\b.xls" & Chr(34) & ")]"


    DDETerminate channel:=chan

    chan = DDEInitiate(app:="Excel", topic:="b.xls")

    regeditcode = "regeditcode :"

    homeaddress = "homeaddress :"


    For i = 1 To 4

    addressValue = "r" + CStr(i) + "c" + CStr(1)

    regeditCodeValue = "r" + CStr(i) + "c" + CStr(2)

    oneLine = homeaddress + DDERequest(channel:=chan, Item:=addressValue) + Space(3) + regeditcode + DDERequest(channel:=chan, Item:=regeditCodeValue)

    Selection.InsertAfter (a)

    Next i

    DDETerminateAll

End Sub

看懂了吗？确实不太复杂。微软还是人道的。

分享到：

scriptaculous.js (1) demo | 在线IM服务

• 2007-09-13 19:42
• 浏览 1709
• 评论(0)
• 查看更多