如何把多个excel文件快速粘贴到word中

发布网友 发布时间：2022-05-01 00:31

我来回答

共3个回答

热心网友 时间：2022-06-21 10:04

只要在W0rd中做一张空表，然后用W0rd中的邮件合并，把EXCEL的数据引入WORD中，自动生成所有表，挺好用的，但缺点是要求EXCEL的每表数据必须放在一行中

热心网友 时间：2022-06-21 10:04

将所有excel放到一个文件夹内，打开一个excel，alt+f11进入vba，新建模块，粘贴如下代码：
Sub batch()
Dim i As Integer
Dim wordapp As Object
Dim fname As String
Application.ScreenUpdating = False

Set wordapp = CreateObject("word.application")
p = "G:\自动化应用\" '根据实际修改
f = Dir(p & "*.xls")
fname = p & "Doc1" & ".doc"

With wordapp
.documents.Add
Do While f <> ""
Set w = Workbooks.Open(p & f)
For i = 1 To w.Worksheets.Count
w.Sheets(i).UsedRange.Copy
With .Selection
.Paste
.typeparagraph
.typeparagraph
End With
Next i
w.Close False
f = Dir
Loop
.activedocument.SaveAs Filename:=fname
End With

wordapp.Quit
Set wordapp = Nothing
Application.ScreenUpdating = True
End Sub

其中p的地址按实际修改。
所有excel都保存到doc1.doc中，格式自己调整下吧。

热心网友 时间：2022-06-21 10:05

我觉Excel就很好用啊，把边框设置好打印出来跟Word没什么区别啊，何必那么麻烦的去转呢