在excel表中怎么插入多个word文件？

Question

如题所述

Answer 1

步骤：
1、新建一个word文档，啥都没有的那种哦，
2、点击开发工具，
3、点击宏，
4、创建宏
5、遍历文件夹
Sub 批量插入对象()
Dim fs, f, f1, fc
Dim num As Integer
Dim Str(100) As String
num = -1
Set fs = CreateObject("scripting.filesystemobject")
Set f = fs.getfolder("C:\Users\adol\Desktop\mike")
Set fc = f.Files

Debug.Print "该文件夹里的所有文件有："
For Each f1 In fc
num = num + 1
'输出一下文件名，注释符是 英文状态下的‘号
Debug.Print f1
Next
Debug.Print "文件总数：" & num

End Sub

6、在编辑器里键入以下代码，遍历并插入对象；
Sub 批量插入对象()
Dim fs, f, f1, fc '定义变量
Dim num As Integer '
Dim Str(100) As String '
num = -1
Set fs = CreateObject("scripting.filesystemobject") '文件流
Set f = fs.getfolder("C:\Users\adol\Desktop\mike") '获取文件名集合，文件夹路径
Set fc = f.Files '文件集合

Debug.Print "该文件夹里的所有文件有："
For Each f1 In fc
num = num + 1 '计数
Selection.InlineShapes.AddOLEObject ClassType:="Visio.Drawing.11", _
FileName:=f1, LinkToFile:=False, _
DisplayAsIcon:=False
Debug.Print f1 & "已插入文件"
Next
Debug.Print "文件总数：" & num

End Sub