vba,最近竟然要用这个啦

目标

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

vba 代码

1.   
2. Sub getData()   
3.   
4.     Dim i As Integer   
5.     Dim j As Integer   
6.     Dim r As String   
7.     Dim c As String   
8.       
9.        
10.     chan = DDEInitiate(app:="Excel", topic:="System")   
11.     DDEExecute channel:=chan, Command:="[Open(" & Chr(34) & "c:\b.xls" & Chr(34) & ")]"  
12.        
13.        
14.     DDETerminate channel:=chan   
15.        
16.     chan = DDEInitiate(app:="Excel", topic:="b.xls")   
17.        
18.     regeditcode = "regeditcode :"  
19.        
20.     homeaddress = "homeaddress :"  
21.        
22.        
23.     For i = 1 To 4   
24.        
25.     addressValue = "r" + CStr(i) + "c" + CStr(1)   
26.        
27.     regeditCodeValue = "r" + CStr(i) + "c" + CStr(2)   
28.       
29.     oneLine = homeaddress + DDERequest(channel:=chan, Item:=addressValue) + Space(3) + regeditcode + DDERequest(channel:=chan, Item:=regeditCodeValue)   
30.        
31.     Selection.InsertAfter (a)   
32.        
33.     Next i   
34.        
35.     DDETerminateAll   
36.        
37. End Sub  

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