UC知道VBA实现将EXCEL数据导入WORD表格
来源：百度知道 编辑：UC知道 时间：2024/05/12 09:35:03
想将“*.xls”的文件中名为“1号成绩”中的“A1到Z15"中的数据导入到WORD中 表1：1号成绩。……名为“i号成绩”中的“A1到Z15"中的数据导入到WORD中 表i：1号成绩。
请大侠帮忙，用VBA如何实现？/ WORD的表名该如何设置？单独用文字打出来（表1：1号成绩）无法定位？
我的问题跟这个贴差不多，http://www.officefans.net/cdb/viewthread.php?tid=24141 请给出VBA代码。
另外;
如果WORD中表格事先设置成只有十行6列，而EXCEL中的数据是动态的，比如要输入“CELLS(1,1)到CELLS(N,6)的数据到表格，如何根据N的值自动增加减少WORD表格行数？ （答上另外加30）
先谢谢了各位回帖的！急用！
请大侠帮忙，用VBA如何实现？/ WORD的表名该如何设置？单独用文字打出来（表1：1号成绩）无法定位？
我的问题跟这个贴差不多，http://www.officefans.net/cdb/viewthread.php?tid=24141 请给出VBA代码。
另外;
如果WORD中表格事先设置成只有十行6列，而EXCEL中的数据是动态的，比如要输入“CELLS(1,1)到CELLS(N,6)的数据到表格，如何根据N的值自动增加减少WORD表格行数？ （答上另外加30）
先谢谢了各位回帖的！急用！
给你段示例，你再接着完善你的：
Dim wdApp As Word.Application '定义WORD对象
Dim wdDoc As Word.Document '定义WORD文档对象
Dim wkSheet As Worksheet '定工作表对象
Dim I As Long
'实例化WORD对象
Set wdApp = New Word.Application
'创建WORD文档
Set wdDoc = wdApp.Documents.Add
'给工作表变量赋值
Set wkSheet = ThisWorkbook.Sheets("WriteWord")
'保存新创建的WORD文档
wdDoc.SaveAs ThisWorkbook.Path & "\test.docx"
wdDoc.Close '关闭新创建的WORD文档
With wdApp
'打开WORD文档
.Documents.Open ThisWorkbook.Path & "\test.docx"
'循环将工作表中的记录转换为WORD文档内容
For I = 2 To wkSheet.Range("a1048576").End(xlUp).Row
'题头内容
.Selection.TypeText "亲爱的" & Trim(wkSheet.Cells(I, 1).Value)
'根据性别确定人物称呼
If wkSheet.Cells(I, 2).V