在excel宏里复制word表里的内容粘贴的excel里(用vba代码)解决方法

在excel宏里复制word表里的内容粘贴的excel里(用vba代码)
本人想把word表格里的内容按格式放到excel里，word里面的内容不一定全要，根据excel里的格式一行一行的填入，在excel宏里写的vba代码怎么实现? 


 

[解决办法]

'依次处理每一个单元格,主要代码如下：
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

[解决办法]

引用:

我也是刚接触vba，也不是太懂，能否详细一些，特别是totalrow，totalcol变量不是太清楚，我的excel里，横的是A到K，竖的是4到多少行就有word里面来确定，这样要怎么来写？

wordapp.ActiveDocument.Tables(1).Rows.Count 就可以取得word表格的行数啊，没法再详细了，刚接触的话，可以先录制个宏，再从宏代码中学习~~~~

查看更多 下一篇