如何在word中插入excel文件
2016-07-19 · 知道合伙人软件行家
用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模板。并将需要插入表格的位置做好标识。如图:
第五步:创建一键式按钮,并将宏指定到该按钮。如图:
这样就可以实现一键式插入表格了。
今后根据需求只要修改第二步的内容就可以通用该工具了。
华为Mate50 Pro曲面旗舰手机
¥6799
苹果 AirPods Pro 2代
¥1699
索尼65英寸4K HDR专业游戏电视
¥7499
惠普战66五代15.6英寸轻薄本
¥4399
查
看
更
多
word文件中插入excel文件的方法