Excel 如何调用 Word 某一个表格的部分单元格

Lordin

如题，

Excel 如何调用 Word 某一个表格的部分单元格？
实现 Word 表格中的部分数据被复制到 Excel 中。

参考网上一段代码，但总编译不过！

Sub cellSel()
    Dim myCells As Range
    With ActiveDocument
        Set myCells = .Range(Start:=.Tables(1).Cell(1, 1).Range.Start, End:=.Tables(1).Cell(1, 4).Range.End)
        myCells.Select
    End With
End Sub

各位大神请指教！

xyxcc177

代码是正确的，看你的当前激活的文档有没有表格？

daibao88

Sub 复制word()
    Dim wdapp As Object, wdoc As Object, st As String
    Set wdapp = CreateObject("word.Application")
    Set wdoc = wdapp.documents.Open("C:\Users\Lenovo\Desktop\数据.docx")
    wdapp.Visible = True
    st = wdoc.Tables(1).Cell(1, 1).Range.Text
    wdoc.Close
    wdapp.Quit
    Set wdapp = Nothing
    Set wdoc = Nothing
    ActiveCell = VBA.Mid(st, 1, Len(st) - 1)
End Sub

daibao88

在Excel中用，需要先引用word对象库