楼主: gyqwhat
612 7

[有偿编程] 【Excel VBA】求助大神，一个VBA操作Excel生成word的问题~ [推广有奖]

  • 1关注
  • 0粉丝

小学生

28%

还不是VIP/贵宾

-

0%
威望
0 级
论坛币
908 个
通用积分
0.7474
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
61 点
帖子
3
精华
0
在线时间
8 小时
注册时间
2020-2-20
最后登录
2022-8-12
楼主
gyqwhat 发表于 2022-8-8 15:11:50 |只看作者 |坛友微信交流群|倒序 |AI写论文
33论坛币
大家好，我的问题是这样的：
我有一个Excel文件，文件里有sheet1，sheet2，sheet3……，然后我要分别将这几个sheet生成在一个word里面，每一个sheet都是单独的一页，目前我实现的，只能一个sheet生成单独一个word文档，求问大家如何合成一个word呀~

我目前使用的代码如下：
  1. Sub GenDocfromExcel()

  3. 'excel控制word,生成新文件，插入图片和文件名，保存
  4. 'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library
  5. 'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library
  6. '...

  8. Worksheets("sheet2").Range("A1:g13").Copy '复制当前内容

  10. Dim WordApp As Word.Application '定义变量
  11. Set WordApp = CreateObject("Word.Application") '生成WORD对象
  12. WordApp.Documents.Add '新建文件

  14. WordApp.Selection.Paste '粘贴

  16. fn$ = "D:\" & Worksheets("sheet2").Range("a1") '生成文件名
  17. WordApp.ActiveDocument.SaveAs fn$ '保存文件

  19. WordApp.Quit '退出
  20. Set WordApp = Nothing '取消变量

  22. End Sub
复制代码


分享0
关键词：EXCEL exce xcel 求助大神 word vba VBA excelVBA IndenterVBA VBA基础入门

使用道具

沙发
車樹森 学生认证  发表于 2022-8-11 08:32:55 |只看作者 |坛友微信交流群
顶一下，期待vba高手解答

使用道具

藤椅
gyqwhat 发表于 2022-8-12 15:35:40 |只看作者 |坛友微信交流群
車樹森 发表于 2022-8-11 08:32
顶一下，期待vba高手解答
谢谢支持

使用道具

板凳
車樹森 学生认证  发表于 2022-8-13 12:03:27 |只看作者 |坛友微信交流群
gyqwhat 发表于 2022-8-12 15:35
谢谢支持
power query 功能很强大，VBA学习难度大，一般很少有用到场景

使用道具

报纸
jhx7584_6680500 发表于 2022-8-15 15:34:38 |只看作者 |坛友微信交流群
上传文件，excel中标题、合并单元格、表格的大小、表格中是否有图片、超链接等都需要代码处理，没有附件，无法写成型的代码。

使用道具

地板
keai958 发表于 2022-8-28 12:01:44 |只看作者 |坛友微信交流群
for each循环sheets，把内容依次写入word

使用道具

7楼
xjmmmm 发表于 2022-9-17 16:42:49 |只看作者 |坛友微信交流群
顶一顶

使用道具

8楼
movinger 发表于 2022-10-1 20:22:47 |只看作者 |坛友微信交流群
这种问题，还是需要付出不少时间和精力的，都是付费回答的。
这样直接问不太会有人专门来作答的哦。

使用道具

返回列表
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
  • 手机版  |
  • 意见反馈  |
  • 帮助  |
  • 新手入门  |
  • 用户手册  |
  • 友情链接  |

    • 如有投资本站、合作意向或投放广告，请联系：13661292478（刘老师）

    联系客服

    邮箱：service@pinggu.org 投诉或不良信息处理：（010-68466864）

    010-68466864

    京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

    GMT+8, 2024-5-27 04:46