WORD中储存vba代码，把excel数据写入word并保存。

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