【Excel VBA】求助大神，一个VBA操作Excel生成word的问题~

大家好，我的问题是这样的：
我有一个Excel文件，文件里有sheet1，sheet2，sheet3……，然后我要分别将这几个sheet生成在一个word里面，每一个sheet都是单独的一页，目前我实现的，只能一个sheet生成单独一个word文档，求问大家如何合成一个word呀~

我目前使用的代码如下：

1. Sub GenDocfromExcel()
   
2. 
   
3. 'excel控制word,生成新文件，插入图片和文件名，保存
   
4. 'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library
   
5. 'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library
   
6. '...
   
7. 
   
8. Worksheets("sheet2").Range("A1:g13").Copy '复制当前内容
   
9. 
   
10. Dim WordApp As Word.Application '定义变量
    
11. Set WordApp = CreateObject("Word.Application") '生成WORD对象
    
12. WordApp.Documents.Add '新建文件
    
13. 
    
14. WordApp.Selection.Paste '粘贴
    
15. 
    
16. fn$ = "D:\" & Worksheets("sheet2").Range("a1") '生成文件名
    
17. WordApp.ActiveDocument.SaveAs fn$ '保存文件
    
18. 
    
19. WordApp.Quit '退出
    
20. Set WordApp = Nothing '取消变量
    
21. 
    
22. End Sub

复制代码

顶一下，期待vba高手解答

車樹森 发表于 2022-8-11 08:32
顶一下，期待vba高手解答

谢谢支持

gyqwhat 发表于 2022-8-12 15:35
谢谢支持

power query 功能很强大，VBA学习难度大，一般很少有用到场景

上传文件，excel中标题、合并单元格、表格的大小、表格中是否有图片、超链接等都需要代码处理，没有附件，无法写成型的代码。

for each循环sheets，把内容依次写入word

顶一顶

这种问题，还是需要付出不少时间和精力的，都是付费回答的。
这样直接问不太会有人专门来作答的哦。