如何在excel中用vba代码添加word表格行数

如题所述

先注释 On Error Resume Next 再调试

从最后一行开始添加表格可以用下面的代码
Visual Basic code
?
'=============追加表格=============
Set rs = myWord.Tables(1).Rows
Dim i As Integer
For i = 1 To 10
rs.Add rs(rs.Count)
Next
'===========追加表格================
温馨提示:答案为网友推荐,仅供参考
相似回答