word如何引用excel的数据？----用VBA

class11class

大家好，现在对excel能用简单的vba处理，
如果文件是word,我就不知道该怎么做呢？请大家帮忙下，谢谢

gwjkkkkk

请楼主参考附件。。。请解压后使用。。。

class11class

gwjkkkkk 发表于 2023-2-19 21:09
请楼主参考附件。。。请解压后使用。。。

真得做到了，请问下，这块是用到哪些知识呢？word的引用，和excel的引用，有啥区别吗？word里面没有单元格呢

mmwwdd

mmwwdd

gwjkkkkk 发表于 2023-2-19 21:09
请楼主参考附件。。。请解压后使用。。。

With wdDoc
        With .tables(1)
'            With wdDoc.tables(1)
                For i = 2 To UBound(ar)
                    For j = 1 To UBound(ar)
                        .Cell(i, j).Range.Text = ar(i, j)
                    Next j
                Next i
'             End With
         End With
         .Close True
     End With
两个with 是不是写重了

gwjkkkkk

class11class 发表于 2023-2-20 00:14
真得做到了，请问下，这块是用到哪些知识呢？word的引用，和excel的引用，有啥区别吗？word里面没有单元 ...

一二句说不清，论坛里有很案例，搜索一下。。。

gwjkkkkk

mmwwdd 发表于 2023-2-20 05:35

写得比较急促，是重复了，没认真检查，谢谢提醒。