怎么来自在excel中用vba代码添加word表格行数

word

先注释掉 On Error Resume Next 再调试 想从最后一行开始加表格可以用这串代码 VB代码如下 '=============追加表格============= Set rs = my饭南易阿继罪孔参广垂word.Tables(1).Rows Dim i As Integer For i = 1 To 10 rs.Add rs(rs只析积斯无广庆指技分.Count) Next '=========拉滑映养促盾源教价鲜==追加表格================