求教VBA高手，EXCEL里输入数据,自动生成相应的WORD文件之实现.该如何解决
求教VBA高手，EXCEL里输入数据,自动生成相应的WORD文件之实现..
具体实现要求如下：
1、打开EXCEL文件,输入相关数据，
2、关闭EXCEL文件，这时调用对应WORD模板，生成相应的WORD文件并自动保存（每一行EXCEL数据生成一个WORD文件）
想请CSDN上做过这类的高手给点VBA源代码提供参考,万分感谢！！(WORD邮件合并请不用介绍，谢谢！)..
------解决方案--------------------
循环就是了。
------解决方案--------------------
首先要搞清楚几个问题
1你是要将指定表格里的数据生成WORD文件呢还是将整个工作薄里每个表的数据都生成WORD文件
2你是只要生成最新输入的数据呢还是生成所有数据
3自动生成的WORD文件准备如何命名呢？
4生成的WORD文件是什么格式？纯文字还是表格？
------解决方案--------------------
Sub AddNew(fname,Row)
Set NewBook = Workbooks.Add
With NewBook
.Title = "All Sales "
.Subject = "Sales "
.SaveAs Filename:=fname& ".Doc " //创建名为*.Doc文件
End With
Workbooks.Open(fname& ".Doc ") //打开这个文件
Set oDoc = ActiveDocument
Set oTable= oDoc.Tables.Add(Range:=oDoc.Range(Start:=0, End:=0), NumRows
:=1) //创建一行
oCell.Range.InsertAfter row //写如一行
End Sub
For Counter = 1 To 20
Row=Workbooks( "Book1 ").Sheets( "Sheet1 ").Rows(Counter) //读Execel第一行
AddNew(Counter,Row) //调用AddNew创建Doc表以及写入数据
Next Counter
具体实现要求如下：
1、打开EXCEL文件,输入相关数据，
2、关闭EXCEL文件，这时调用对应WORD模板，生成相应的WORD文件并自动保存（每一行EXCEL数据生成一个WORD文件）
想请CSDN上做过这类的高手给点VBA源代码提供参考,万分感谢！！(WORD邮件合并请不用介绍，谢谢！)..
------解决方案--------------------
循环就是了。
------解决方案--------------------
首先要搞清楚几个问题
1你是要将指定表格里的数据生成WORD文件呢还是将整个工作薄里每个表的数据都生成WORD文件
2你是只要生成最新输入的数据呢还是生成所有数据
3自动生成的WORD文件准备如何命名呢？
4生成的WORD文件是什么格式？纯文字还是表格？
------解决方案--------------------
Sub AddNew(fname,Row)
Set NewBook = Workbooks.Add
With NewBook
.Title = "All Sales "
.Subject = "Sales "
.SaveAs Filename:=fname& ".Doc " //创建名为*.Doc文件
End With
Workbooks.Open(fname& ".Doc ") //打开这个文件
Set oDoc = ActiveDocument
Set oTable= oDoc.Tables.Add(Range:=oDoc.Range(Start:=0, End:=0), NumRows
:=1) //创建一行
oCell.Range.InsertAfter row //写如一行
End Sub
For Counter = 1 To 20
Row=Workbooks( "Book1 ").Sheets( "Sheet1 ").Rows(Counter) //读Execel第一行
AddNew(Counter,Row) //调用AddNew创建Doc表以及写入数据
Next Counter