如何把一个excel工作表里有几十个工作簿一次性复制到word里

hzamiao · 发表于 2017-10-31 19:55

excel工作表里有几十个工作簿，如何一次性复制到word里，而不是一个一个复制

duquancai · 发表于 2017-10-31 20:17

工作簿与工作表概念不清！！！工作表里有几十个工作簿，这什么意思？

菜菜行者 · 发表于 2017-10-31 23:55

想说工簿里有几十个工作表吧

hzamiao · 发表于 2017-11-1 14:07

是的，工作簿里十几个工作表，一个一个黏贴好麻烦，有没有一次性黏贴到word的！

dqxmlc · 发表于 2020-6-25 09:13

Private Sub CommandButton1_Click()
Set w = CreateObject("word.application")
w.Visible = True
w.documents.Add
For Each s In Sheets
      s.[A1].CurrentRegion.Copy
      w.Selection.typeparagraph
      w.Selection.Paste
Next
End Sub

andysky · 发表于 2020-6-26 18:03

上传一下文档吧，用插件可以瞬间完成。

peijunyu · 发表于 2020-6-27 10:01

andysky 发表于 2020-6-26 18:03
上传一下文档吧，用插件可以瞬间完成。

方方格子了解下

		自动登录	找回密码
密码			免费注册

[求助] 如何把一个excel工作表里有几十个工作簿一次性复制到word里

点评