《把EXCEL数据写入WORD文档A.doc》由会员分享，可在线阅读，更多相关《把EXCEL数据写入WORD文档A.doc（5页珍藏版）》请在三一文库上搜索。
1、VBA 在 EXCEL中操作WORD表格之七第 1 页 共 7 页把 EXCEL工作表数据用 VBA写入 WORD文档 编辑：madmlwt1逐个单元格数据写入WORD 表格【问题要求】新建“工程订单 .doc”，保存到当前操作的 EXCEL 文件位置。新建“工程订单 .doc”文档中，第一段落写入“工程订单” ，第二段落写入“单位：新建装饰有限公司” ，第三段落插入一个与当前工作表中数据行列数完全相同的表格。把当前工作表中数据 (包括标题行 )按单元格读取方式逐个写入 WORD 表格中。格式设置第一段落黑体、 18 号、水平居中；第二段落宋体、 14 号、水平居中；表格在页面中水平居中；表格
2、数据宋体、 10 号、左对齐；标题行加粗、水平居中。【代码】SubEXCEL 保存为 WORD 表格数据 ()Application.ScreenUpdating = False 关'闭屏幕刷新开始时间= Timer '程序运行开始时间 (秒)当'前工作表数据行数当'前工作表数据列数 wjM = 工程订单myFile = ActiveWorkbook.Path & & wjM & .doc ' 保存的文件及路径 On Error Resume Next 出'现错误跳到下一行删除文件 'myFile KillVBA
3、在 EXCEL 中操作 WORD 表格之七第 2 页 共 7 页On Error GoTo 0 '不进行错误处理Set wd = CreateObject(Word.Application) '定义一个 Word 对象变量With wd.Documents.Add 创'建一个新的Word 文档With .ActiveDocument.Paragraphs(1).Range当'前活动文档中.InsertParagraphBefore在'指定的所选内容或区域前插入一个新段落.InsertBefore 工程订单'写入新段落内容.Font.Name =
4、黑体 '字体.Font.Size = 18 字'号.ParagraphFormat.Alignment = 1 水'平居中End WithWith .ActiveDocument.Paragraphs(2).Range.InsertAfter 单位：新建装饰有限公司.Font.Name = 华文新魏.Font.Size = 14.ParagraphFormat.Alignment = 1End With.ActiveDocument.Paragraphs(2).Range.InsertParagraphAfter '在第二段后面插入一个新的段落.ActiveDo
5、cument.Paragraphs(3).Range.Select选'中第三段落插入 hs 行 ls 列表格With .ActiveDocument.Tables(1) 'WORD 表格For h = 1 To hs 从'第一行循环到hs 行For l = 1 To ls '从第 1 列循环到 ls 列把当前工作表 'l) ActiveSheet.Cells(h, = l).Range .Cell(h,VBA 在 EXCEL 中操作 WORD 表格之七第 3 页 共 7 页单元格数据写入WORD 表格With .Cell(h, l).Range '
6、;单元格字体设置.Font.Name = 宋体 '字体.Font.Size = 10 字'号.Font.Bold = True '加粗If h > 1 Then .Font.Bold = False '如果表格行不是第一行则字形不加粗End WithNext lNext hEnd With.Selection.Tables(1).AutoFitBehavior (1) 根'据内容自动调整表格.Selection.Tables(1).Rows(1).HeadingFormat = 9999998标'题行重复 .ActiveDocument.T
7、ables(1).Rows.Alignment = 1 '表格水平居中所'有行数据左对齐标'题行居中.ActiveDocument.SaveAs myFile '保存新建 Word 文档.Quit '关闭新建文档窗口End WithSet wd = NothingMsgBox Chr(10) & 成功创建一个 WORD& Chr(10) & Chr(10) &共用时表格 & wjM _& Timer - 开始时间&秒, ,Exc_To_WordApplication.ScreenUpdating =
8、 False 关'闭屏幕刷新SubEndVBA 在 EXCEL 中操作 WORD 表格之七第 4 页 共 7 页说明：逐个单元格数据写入WORD 表格，就是工作表中的数据单元格，对应已经创建的 WORD 表格单元格，逐个写入数据，这是 EXCEL 数据保存为 WORD 表格最基本、常规的操作方法。把 EXCEL 数据保存为 WORD 表格数据，基本思路就是先写入数据再设置格式。上面代码在逐个单元格写入数据过程中， 对单元格进行了字体格式设置， 如果是庞大数据的写入， 可能会降低写入速度。 所以最好是把数据完全写入后对表格整体进行所有格式设置。2当前工作表数据复制到WORD 文档【问题要
9、求】把被操作的 EXCEL当前工作表数据复制粘贴到新建的WORD文档。新建WORD文档“清单 .doc”，与被操作的 EXCEL 文件保存在相同位置。新建 WORD 文档格式：第一段落为表格总标题名“复制 EXCEL 数据粘贴到新建 WORD 文档”、第二段落为作者或者单位名称“作者：老顽童” 、第三段落粘贴复制的 EXCEL 数据表格。第一段落黑体、 18 号、加粗、居中。第二段落华文新魏、 14 号、居中。表格数据标题行宋体、 12 号、加粗。表格在页面中水平居中、 表格跨页则标题行重复、 表格根据内容自动调整列宽。【代码】Sub excel数据复制粘贴到word()Application
10、.ScreenUpdating = False 关'闭屏幕刷新qsT = Timer '开始时间复'制已经使用的数据区域文件名称 ' 清单 = wjMVBA 在 EXCEL 中操作 WORD 表格之七第 5 页 共 7 页myFile = ThisWorkbook.Path & & wjM & .doc ' 保存的文件及路径 On Error Resume Next 出'现错误跳到下一行Kill myFile ' 删除文件On Error GoTo 0 '不进行错误处理Set wd = CreateObje
11、ct(word.application) 创'建 WORD 对象新'建一个 WORD 文件并保存当'前活动文档中第一段.InsertParagraphBefore左'边（或前）插入一个新段落.InsertBefore 复制 EXCEL 数据粘贴到新建WORD 文档 '写入新段落内容End With作者：老顽童'第一段右边插入新段落在第二段后面插入一个新的段落选'中第三段落粘'贴复制的 EXCEL 表格第'一段文本格式设置.ParagraphFormat.Alignment = 1 水'平居中.Font.Size =
12、 18 字'号.Font.Name = 黑体 '字体.Font.Bold = True '加粗End With第'二段文本格式设置.ParagraphFormat.Alignment = 1.Font.Size = 14华文新魏 = .Font.NameVBA 在 EXCEL 中操作 WORD 表格之七第 6 页 共 7 页End With.AutoFitBehavior (1) '根据内容调整表格列宽.Rows(1).HeadingFormat = 9999998 标'题行重复.Rows.Alignment = 1 '表格水平居中Wit
13、h .Rows(1).Range.Font.Size = 12 字'号.Font.Name = 宋体 '字体.Font.Bold = True '加粗End WithEnd With保存修改关闭文档wd.Quit '关闭 WORD 程序Set myRange = Nothing 释'放内存Set adoc = Nothing 释'放内存Set wd = Nothing '释放内存Application.CutCopyMode = False '撤销复制状态MsgBox Chr(10) & 成功地把当前 EXCEL 数据复制
14、粘贴到WORD 文档_& Chr(10) & Chr(10) &共计用去时间& Timer - qsT &秒 , , excel 数据复制粘贴到 word Application.ScreenUpdating = False 关'闭屏幕刷新 End Sub说明：把 EXCEL 数据保存为 WORD 表格，方法多样。这里尝试了二种方法， 一 WORD 数据表格复制粘贴到新建的 EXCEL 是按单元格逐个读写、二是把整个VBA 在 EXCEL 中操作 WORD 表格之七第 7 页 共 7 页文档。总的来说，第一种方法速度最慢，但却是EXCEL 数据写入 WORD 的最基本方法。下一篇，我们将会尝试把EXCEL 数据保存为 WORD 表格的第三种方法先把工作表数据逐行写入WORD 文档后再将其转换成表格。此法对于大数据量的EXCEL 数据写入 WORD 文档，不失为一种行之有效的快速之法！