在EXCEL中用VBA创建WORD文档表格格.docVIP

在EXCEL中用VBA创建WORD文档表格 编辑：madmlwt 1．在新建WORD空白文档中创建一个表格 【要求】 新建一个WORD空白文档，在新文档中创建一个4行5列的空白表格，在空白表格的第一个单元格写入“第一单元格”、最后一个单元格中写入“最后一个单元格”。 【代码】 Sub 创建一个WORD表格() Application.ScreenUpdating = False 关闭屏幕刷新 dqT = Timer 程序运行开始时间(秒) dqM = ThisWorkbook.Name 要创建的WORD文件名称(当前工作簿名称) Set wordAppl = CreateObject(Word.Application) 定义一个Word对象变量 With wordAppl .Documents.Add 创建一个新的Word文档 .ActiveDocument.tables.Add Range:=.Selection.Range, NumRows:=4, NumColumns:=5 插入4×5表格 Set myRange = .ActiveDocument.tables(1) 创建表格对象 With myRange .Cell(1, 1).Range.insertAfter 第一个单元格 第一个单元格中写入字符第一个单元格