在excel宏里复制word表里的内容粘贴的excel里(用vba代码),该如何解决
在excel宏里复制word表里的内容粘贴的excel里(用vba代码)
本人想把word表格里的内容按格式放到excel里，word里面的内容不一定全要，根据excel里的格式一行一行的填入，在excel宏里写的vba代码怎么实现?
------解决方案--------------------
本人想把word表格里的内容按格式放到excel里，word里面的内容不一定全要，根据excel里的格式一行一行的填入，在excel宏里写的vba代码怎么实现?
------解决方案--------------------
- VB code
'依次处理每一个单元格,主要代码如下：
Set excelapp = CreateObject("excel.application")
Set oexcel = excelapp.Workbooks.Open(App.Path & "\myexcel.xls")
Set wordapp = CreateObject("word.application")
Set worddoc = wordapp.Documents.Open(app.path & "\myword.doc")
for i=1 to totalrow
for j=1 to totalcol
oexcel.Worksheets("sheet1").Cells(i, j).Value=Trim(wordapp.ActiveDocument.Tables(1).Cell(i, j).Range.Text)
next j
next i
------解决方案--------------------