关于EXCEL数据写入WORD

lovelycpp

从论坛大神的帖子里薅的代码，我的word模板里没有页眉和页脚，也没有表格，故删了页眉页脚表格的代码，运行时显示错误。
对VBA不太熟，求大神看一下，哪里的问题。感谢~
Private Sub CommandButton输出通知到Word文件_Click()
   Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j
   Dim Str1, Str2
   当前路径 = ThisWorkbook.Path
   最后行号 = Sheets("数据").Range("B65536").End(xlUp).Row
   判断 = 0
   For i = 2 To 最后行号
      导出文件名 = "离职证明"
      FileCopy 当前路径 & "\离职证明（模板）.doc", 当前路径 & "\" & 导出文件名 & "(" & Sheets("数据").Range("B" & i) & ").doc"
      导出路径文件名 = 当前路径 & "\" & 导出文件名 & "(" & Sheets("数据").Range("B" & i) & ").doc"
      With Word对象
        .Documents.Open 导出路径文件名
        .Visible = False
        For j = 1 To 8 '填写文字数据
           Str1 = "数据" & Format(j, "000")
           Str2 = Sheets("数据").Cells(i, j + 1)
           .Selection.HomeKey Unit:=wdStory '光标置于文件首
           If .Selection.Find.Execute(Str1) Then '查找到指定字符串
              .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
              .Selection.Text = Str2 '替换字符串
           End If
       End With
      Word对象.Documents.Save
      Word对象.Quit
      Set Word对象 = Nothing
   Next i
   If 判断 = 0 Then
      i = MsgBox("已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示：")
   End If
End Sub

wmlove

可以运行，在你电脑上有什么问题，哪一行报错？

鄂龙蒙

1. Private Sub CommandButton输出通知到Word文件_Click()
   
2.     Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j
   
3.     Dim Str1, Str2
   
4.     当前路径 = ThisWorkbook.Path
   
5.     最后行号 = Sheets("数据").Range("B65536").End(xlUp).Row
   
6.     For i = 2 To 最后行号
   
7.         导出文件名 = "离职证明"
   
8.         FileCopy 当前路径 & "\离职证明（模板）.doc", 当前路径 & "" & 导出文件名 & "(" & Sheets("数据").Range("B" & i) & ").doc"
   
9.         导出路径文件名 = 当前路径 & "" & 导出文件名 & "(" & Sheets("数据").Range("B" & i) & ").doc"
   
10.         With Word对象
    
11.             .Documents.Open 导出路径文件名
    
12.             .Visible = False
    
13.             For x = 1 To 2
    
14.                 For j = 1 To 9      '填写文字数据
    
15.                     Str1 = "数据" & Format(j, "000")
    
16.                     Str2 = Sheets("数据").Cells(i, j + 1)
    
17.                     .Selection.HomeKey Unit:=wdStory     '光标置于文件首
    
18.                     If .Selection.Find.Execute(Str1) Then    '查找到指定字符串
    
19.                        .Selection.Font.Color = wdColorAutomatic    '字符为自动颜色
    
20.                        .Selection.Text = Str2      '替换字符串
    
21.                     End If
    
22.                 Next j
    
23.             Next
    
24.             .Documents.Save
    
25.             .Quit
    
26.         End With
    
27.         Set Word对象 = Nothing
    
28.     Next i
    
29.     MsgBox "已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示："
    
30. End Sub

复制代码

鄂龙蒙

excel数据写入word模板.rar (32.79 KB, 下载次数: 66)

2019-12-31 10:06 上传

点击文件名下载附件

lovelycpp

鄂龙蒙 发表于 2019-12-31 10:06

附件打不开呢~亲~代码我复制进去，调用错误呢

Excel2119

楼主：你测试一下

lovelycpp

鄂龙蒙 发表于 2019-12-31 10:06

会不会因为我的office是2016的缘故？

蓝桥玄霜

建议代码中变量尽量不要用中文，避免出现不可知的问题。
代码放在模块里。

Excel2119

蓝桥玄霜 发表于 2019-12-31 14:39
建议代码中变量尽量不要用中文，避免出现不可知的问题。
代码放在模块里。

版主，为您点赞

lovelycpp

鄂龙蒙 发表于 2019-12-31 10:06

大神 请收下我的膝盖