vba代码
执行后,把BOOK1.xls打开,循环5次,a1、b1、e1数据写入word中,(注意,word也有格子,也有行列),然后保存5次到c盘下。
Sub Macro1()
Dim devType As String
Dim devName As String
Dim devDes As String
Dim sTemp As String
Dim comTemp As String
Dim xls As New Excel.Application
Dim wk As New Excel.Workbook
Dim sh As New Excel.Worksheet
Set wk = xls.Workbooks.Open("C:\\BOOK1.xls")
Set sh = wk.Sheets("1")
For I = 1 To 5
If ActiveDocument.Tables.Count >= 1 Then
sTemp = "A" & I
devType = sh.Range(sTemp)
With ActiveDocument.Tables(1).Cell(Row:=3, Column:=2).Range
.Delete
.InsertAfter Text:=devType
End With
sTemp = "B" & I
devName = sh.Range(sTemp)
With ActiveDocument.Tables(1).Cell(Row:=2, Column:=2).Range
.Delete
.InsertAfter Text:=devName
End With
sTemp = "E" & I
devDes = sh.Range(sTemp)
With ActiveDocument.Tables(1).Cell(Row:=3, Column:=4).Range
.Delete
.InsertAfter Text:=devDes
End With
End If
ActiveDocument.Save
Set fso = CreateObject("scripting.filesystemobject")
devType = Replace(devType, "/", "")
sTemp = "C:\\" & devType & ".doc"
fso.copyfile ActiveDocument.FullName, sTemp
Next
'清除excel资源
Set sh = Nothing
wk.Close
Set wk = Nothing
xls.Quit
Set xls = Nothing
End Sub
BOOK1.xls