Vba Excel 到 word 实例

准备

Excel sheet 名字为数据源、sheet2

Word 模板：名字：模板.docx 里面包含一个模板表格

程序流程

1、打开模板文档、复制模板表格到剪贴板、关闭模板文档

2、创建新的文档、粘贴

3、使用数据源修改新文档的第一个表格、复制粘贴

4、删除第一个表格

5、另存为word

Public DataMaxRowSub ToWord()模板路径 = ThisWorkbook.Path & "\" & "模板.docx"If Dir(模板路径, 16) = Empty ThenDirerror = MsgBox("模板不存在！", vbDefaultButton1, "错误！")Exit SubEnd If当前路径 = ThisWorkbook.PathSheets("sheet2").Range("i11") = "正在打开Word主程序" '显示状态Set Word对象 = CreateObject("Word.Application")Sheets("sheet2").Range("i11") = "正在打开模板.docx" '显示状态With Word对象.Visible = False.Documents.Open 模板路径 '打开一个word文档Set 模板 = .ActiveDocumentSet obj模板表格 = 模板.Tables(1) '这是个对象 可以使用table方法Let 模板表格内容 = obj模板表格 '这是个变量 let可以省略 表格内容指针Sheets("sheet2").Range("i11") = "正在新建文档" '显示状态Set newobj = .Documents.Add '新建一个word文档End With模板表格内容.Copy '将表格复制到剪贴板模板.Close '关闭模板Sheets("sheet2").Range("i11") = "正在生成word文档..." '显示状态With newobj.ActiveWindow.Selection.EndKey        '光标置于文件尾部.ActiveWindow.Selection.InsertBreak Type:=6 '换行.ActiveWindow.Selection.Paste '粘贴模板表格Set obj模板表格 = .Tables(1) '这是个对象 可以使用table方法Let 模板表格内容 = obj模板表格 '这是个变量 let可以省略 表格内容指针End WithSheets("sheet2").Range("i16") = 0Sheets("sheet2").Range("j16") = DataMaxRowFor i = 2 To DataMaxRow '最后行号Sheets("sheet2").Range("k16") = i'填写表格数据 startobj模板表格.Cell(2, 2).Range = Sheets("数据源").Cells(i, 1)obj模板表格.Cell(3, 2).Range = Sheets("数据源").Cells(i, 2)obj模板表格.Cell(4, 2).Range = Sheets("数据源").Cells(i, 3)obj模板表格.Cell(5, 2).Range = Sheets("数据源").Cells(i, 4)obj模板表格.Cell(6, 2).Range = Sheets("数据源").Cells(i, 5)obj模板表格.Cell(7, 2).Range = Sheets("数据源").Cells(i, 6)obj模板表格.Cell(8, 2).Range = Sheets("数据源").Cells(i, 7)obj模板表格.Cell(9, 1).Range = Sheets("数据源").Cells(i, 8)'填写表格数据 end模板表格内容.Copynewobj.ActiveWindow.Selection.EndKey '光标置于文件尾部newobj.ActiveWindow.Selection.InsertBreak Type:=6 '6换行 7是分页newobj.ActiveWindow.Selection.Paste '粘贴模板表格Sheets("sheet2").Range("i16") = i / DataMaxRow * 1#Next iobj模板表格.Delete '删除复制过来的模板表格'另存为newobj.SaveAs2 Filename:=ThisWorkbook.Path & "\" & "模板1.docx"newobj.CloseWord对象.QuitSet Word对象 = Nothinghh = MsgBox("已输出到 Word 文件！", vbInformation, "提示：")End SubPrivate Sub 导入N行到word_Click()DataMaxRow = Sheets("sheet2").Range("i9") + 1  '计算数据的行数 ActiveSheetOK_Cancel = MsgBox("是否输出 " & DataMaxRow & " 行数据到 Word 文件！", vbOKCancel, "提示：")If (OK_Cancel = vbOK) ThenToWordEnd If
End SubPrivate Sub 导入到word_Click()DataMaxRow = Sheets("数据源").[A65536].End(xlUp).Row '计算数据的行数 ActiveSheetOK_Cancel = MsgBox("是否输出 " & DataMaxRow & " 行数据到 Word 文件！", vbOKCancel, "提示：")If (OK_Cancel = vbOK) ThenToWordEnd If
End Sub

Vba Excel 到 word 实例相关推荐

python批量提取word指定内容_使用python批量读取word文档并整理关键信息到excel表格的实例...
目标最近实验室里成立了一个计算机兴趣小组倡议大家多把自己解决问题的经验记录并分享就像在CSDN写博客一样虽然刚刚起步但考虑到后面此类经验记录的资料会越来越多所以一开始就要做好模板设计(如下 ...
Excel用vba自动生成word
Sub GenDocfromExcel()'excel控制word,生成新文件,插入图片和文件名,保存 'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Ob ...
VBA+批处理实现WORD转EXCEL数据分析开发日志
VBA+批处理实现WORD转EXCEL数据分析开发日志 WORD程序转EXCEL并处理数据项目目的开发日志2020-09-01(批处理) 开发日志V1.2.1 2020-09-05 业务流程分以下 ...
jacob操作excel、word、AutoCAD分享
零.导读这是使用jacob操作Word和Excel的教程,因为看不懂官方文档(英语不好,翻译太菜)所以选择去找找教程. jacob可以操作的 1.jacob 操作 cad相关资料对象方法和操作,里 ...
java数据写入word_将数据从Excel写入Word
我想使用Excel在列A中存储"tag names",在列B中存储它们关联的"replacement text" . 当代码运行时,它需要一次一个地收集每个标记 ...
VSTO：使用C#开发Excel、Word【5】
<Visual Studio Tools for Office: Using C# with Excel, Word, Outlook, and InfoPath >--By Eric C ...
GridView导出到Excel或Word文件
在项目中我们经常会遇到要求将一些数据导出成Excel或者Word表格的情况,比如中国移动(我是中国移动用户)网上查话费的页面中就有一个导出到Excel的功能,光大网上银行查看历史明细也有这些功能... ...
java导出excel与word文档
导出excel与word 依赖如下 <dependency><groupId>co ...
基于Visual C++2010 与office2010开发办公自动化(2)-自动生成excel与word并打开
VS2010是新一代全新开发工具属于全新的系统构架 VS2010旗舰版功能全景 Office 2010,是微软推出新一代办公软件,开发代号为Office 14,实际是第12个发行版.该软件共有6个版 ...

Vba Excel 到 word 实例

Vba Excel 到 word 实例相关推荐

最新文章

热门文章