把EXCEL数据写入WORD文档A.docVIP

把 EXCEL 工作表数据用 VBA 写入 WORD 文档 编辑： madmlwt 1．逐个单元格数据写入 WORD 表格 【问题要求】 ⑴新建“工程定单.doc”，保存到当前操作的 EXCEL 文件位置。 ⑵新建“工程定单.doc”文档中，第一段落写入“工程定单”， 第二段落写入“单位：新建装饰有限公司”，第三段落插入一个与当 前工作表中数据行列数彻底相同的表格。 ⑶把当前工作表中数据(包括标题行)按单元格读取方式逐个写 入 WORD 表格中。 ⑷格式设置 第一段落黑体、 18 号、水平居中； 第二段落宋体、 14 号、水平居中； 表格在页面中水平居中； 表格数据宋体、 10 号、左对齐； 标题行加粗、水平居中。 【代码】 Sub EXCEL 保存为WORD 表格数据() = False 关闭屏幕刷新 开始时间 = Timer 程序运行开始时间(秒) hs = 当前工作表数据行数 ls = 当前工作表数据列数 wjM = 工程定单 myFile = \ wjM .doc 保存的文件及路径 On Error Resume Next 浮现错误跳到下一行 Kill myFile 删除文件 On Error GoTo 0 不进行错误处理 Set wd = CreateObject() 定义一个 Word 对象变量 With wd . 创建一个新的 Word 文档 With . (1).Range 当前活动文档中 . InsertParagraphBefore 在指定的所选内容或者区域 前插入一个新段落 .InsertBefore 工程定单 写入新段落内容 . = 黑体 字体 . = 18 字号 . = 1 水平居中 End With With . (2).Range .InsertAfter 单位：新建装饰有限公司 . = 华文新魏 . = 14 . = 1 End With . (2). 在第二段后面插入一个新的段落 . (3). 选中第三段落 . Range:=., NumRows:=hs, NumColumns:=ls 插入 hs 行 l s 列表格 With . (1) WORD 表格 For h = 1 To hs 从第一行循环到 hs 行 For l = 1 To ls 从第 1 列循环到 ls 列 .Cell(h, l).Range = (h, l) 把当前工作 表单元格数据写入 WORD 表格 With .Cell(h, l).Range 单元格字体设置 . = 宋体 字体 . = 10 字号 . = True 加粗 If h 1 Then . = False 如果表格 行不是第一行则字形不加粗 End With Next l Next h End With . (1).AutoFitBehavior (1) 根据内容自动调整表格 . (1).Rows(1).HeadingFormat = 9999998 标题行重复 . (1). = 1 表格水平居中 . (1). = 3 所有行数据左对齐 . (1).Rows(1). = 1 标题行居中 . myFile 保存新建 Word 文档 .Quit 关闭新建文档窗口 End With Set wd = Nothing MsgBox Chr(10) 成功创建一个 WORD 表格— wjM _ Chr(10) Chr(10) 共用时 Timer - 开始时 间 秒, , Exc_To_Word = False 关闭屏幕刷新 End Sub 说明： 逐个单元格数据写入 WORD 表格，就是工作表中的数据单元格， 对应已经创建的 WORD 表格单元格，逐个写入数据，这是 EXCEL 数据 保存为 WORD 表格最基本、常规的操作方法。 把 EXCEL 数据保存为 WORD 表格数据，基本思路就是先写入数据 再设置格式。 上面代码在逐个单元格写入数据过程中， 对单元格进行 了字体格式设置， 如果是庞大数据的写入，可能会降低写入速度。所 以最好是把数据彻底写入后对表格整体进行所有格式设置。 2．当前工作表数据复制到 WORD 文档 【问题要求】 把被操作的 EXCEL 当前工作表数据复制粘贴到新建的WORD 文档。 新建 WORD 文档“清单.doc”，与被操作的 EXCEL 文件保存在相同位置。 新建 WORD 文档格式： 第一段落为表格总标题名“复制 EXCEL 数据粘贴到新建 WOR D 文档”、第二段落为作者或者单位名称“作者： 老顽童”、第三段落 粘贴复制的 EXCEL 数据表格。 第一段落黑体、 18 号、加粗、居中。 第二段落华文新魏、 14 号、居中。 表格数据标题行宋体、 12 号、加粗。 表格在页面中水平居中、 表格跨页则标