使用VBA将Excel数据导入到Word的表格中
2011-05-25 17:36
666 查看
现要求将一个Excel数据表中的每行数据导成一个Word文档,即有多少行数据就生成多少个Word文档,Excel每列与Word文档中的表格项一一对应。
前置工作:将Word文档空表格当然模板文档做好,与工作Excel置于同一路径下。
前置工作:将Word文档空表格当然模板文档做好,与工作Excel置于同一路径下。
Sub 分离() Application.ScreenUpdating = False p = ThisWorkbook.Path & "/" f = p & "空白模板.doc" Dim myWS As Worksheet Set myWS = ThisWorkbook.Sheets(1) '存有数据的表格 For i = 3 To 54 '遍历数据行 FileCopy f, p & "test/" & myWS.Cells(i, 2).Text & ".doc" '复制空模板并以某列数据为名命名新产生的文档 Set wd = CreateObject("word.application") Set d = wd.documents.Open(p & "test/" & myWS.Cells(i, 2).Text & ".doc") '打开新文档 d.tables(1).Cell(1, 2) = myWS.Cells(i, 2).Text '### '复制表格每列内容到文档,有多少项就有多少条 d.tables(1).Cell(5, 4) = myWS.Cells(i, 20).Text '### d.Close wd.Quit Set wd = Nothing Next Application.ScreenUpdating = True End Sub
相关文章推荐
- 如何使用免费控件将word表格中的数据导入到excel中
- 如何使用免费控件将Word表格中的数据导入到Excel中
- ThinkPHP3.1.3使用phpExcel1.8.0实现数据从Excel表格导入mysql数据库
- 将Control List中的数据导入类Excel的表格中,(使用了.csv文件)
- 如何将excel表格数据使用图形化工具workbench导入mysql数据库中
- 使用VBA把EXCEL数据导入数据库
- Excel vba从excel中导出表格数据和图表到新word文档
- 通过VBA将excel数据导入至word文档
- 使用navicat导入excel表格数据到postgresql报错解决方法
- 使用poi实现导出excel数据表格
- 以 Excel表格形式 导出导入MySQl 数据
- 使用ModalDialog选择EXCEL,导入数据到数据库
- 使用PHP导入Excel和导出数据为Excel文件
- 使用SQL Server导入数据功能导入Excel之数字编号问题
- Android数据转化为Excel表格导入导出
- win64使用PLSQL工具导入Excel数据
- 使用PL/SQL导入数据(cvs和excel)
- 如何实现数据从 txt/word 自动导入到excel中
- phpexcel导入excel数据使用方法实例
- 【推荐】.NET(webform,MVC)使用NPOI组件将数据导出、导入Excel。 Aspose.Cell 控件报表