如何在word中插入excel文件

 我来答

4个回答

#热议# 普通体检能查出癌症吗？

pepe3399
2016-07-19 · 知道合伙人软件行家

pepe3399
知道合伙人软件行家

采纳数：1259 获赞数：5943

1988年毕业于苏州市职业大学计算机专业从事软件开发5年从事生产管理20年

向TA提问私信TA

关注

展开全部

用vba编程实现一键插入。

第一步：创建带宏的excel表格。

第二步：将excel表格和word的对应关系建立一张表格。也就是告诉程序需要将excel哪个表格插入到word的哪个位置。如图：

第三步：编制插入的程序。代码如下：

Sub 插入表格()
   Dim SS As String
   Dim wdoc As New Word.Application
   Dim 当前路径, 导出路径文件名, i, j
   Dim Str1, Str2, Str3
   Dim tarr(1 To 100, 1 To 3)
   Dim filepathname As String
   当前路径 = ThisWorkbook.Path

   最后行号 = Sheets("数字表格").Range("B30").End(xlUp).Row
   判断 = 0
' 导出文件名 = "报告作品.doc"
   filepathname = 当前路径 & "\" & Tfile
   If Dir(filepathname) = "" Then
      '文件不存在
      FileCopy 当前路径 & "\" & Sfile, 当前路径 & "\" & Tfile
   End If
   Sheets("数字表格").Select
   For i = KShh To 最后行号
      tarr(i - KShh + 1, 1) = Sheets("数字表格").Cells(i, 1)
      tarr(i - KShh + 1, 2) = Sheets("数字表格").Cells(i, 2)
      tarr(i - KShh + 1, 3) = Sheets("数字表格").Cells(i, 3)
   Next i
   j = i - KShh '记录需替换文本个数
导出路径文件名 = 当前路径 & "\" & Tfile
With wdoc '打开word文档
      .Documents.Open 导出路径文件名
      .Visible = True
End With
For i = 1 To j
      Str1 = tarr(i, 1)
      Str2 = tarr(i, 2)
      Str3 = tarr(i, 3)
      Range(Str3).Select
      Application.CutCopyMode = False
      Selection.Copy

With wdoc
      .Selection.HomeKey Unit:=wdStory '光标置于文件首
       If .Selection.Find.Execute(Str1) Then '查找到指定字符串
          .Selection.Text = "" '替换字符串
          .Selection.PasteExcelTable False, False, False '粘贴为表格
          .Selection.WholeStory
          .Selection.Font.Size = 12
          With .Options
               .DefaultBorderLineStyle = wdLineStyleSingle
               .DefaultBorderLineWidth = wdLineWidth050pt
               .DefaultBorderColor = wdColorAutomatic
          End With
          .Selection.Tables(1).PreferredWidthType = 3
          .Selection.Tables(1).PreferredWidth = .CentimetersToPoints(15)
       End If
End With
Next i
With wdoc '存盘后关闭WORD文档
       wdoc.Documents.Save
       wdoc.Quit
       Set wdoc = Nothing
End With
Sheets("首页").Select
End Sub
第四步：创建word模板。并将需要插入表格的位置做好标识。如图：