VBA将从WORD文档复制粘贴到EXCEL表里的表格与WORD表格建立链接

您好！这个问题需要进行两个步骤：

第一步，将从Word文档中复制的表格粘贴到Excel表格中，并建立链接。

可以按照以下步骤操作：

1.在Excel中打开要粘贴表格的工作表。

2.在Word中打开要复制的表格。

3.在Word中选择表格，复制表格。

4.在Excel中选择要粘贴表格的单元格，右键单击，选择“粘贴选项”。

5.在“粘贴选项”中选择“链接和使用目标格式”。

6.单击“确定”。

第二步，使用VBA代码来实现从Word文档复制粘贴到Excel表格的链接。

可以使用以下VBA代码实现：

Sub CopyTableFromWord()

Dim objWord As Object
Dim objDoc As Object
Dim objTable As Object
Dim objRange As Object
Dim strFileName As String

'设置Word文档路径
strFileName = "D:\test.docx"

'打开Word文档
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open(strFileName)

'复制表格
Set objTable = objDoc.Tables(1)
objTable.Range.Copy

'关闭Word文档
objDoc.Close False
Set objDoc = Nothing
objWord.Quit
Set objWord = Nothing

'粘贴表格到Excel
ActiveSheet.Paste Destination:=ActiveSheet.Range("A1")

'建立链接
Set objRange = ActiveSheet.Range("A1").CurrentRegion
objRange.LinkSources xlLinkTypeExcelLinks, strFileName, objTable.Range.Address

End Sub

这段代码首先打开指定的Word文档，复制第一个表格，然后在Excel中粘贴表格，并在粘贴的表格上建立链接。请将代码中的文件路径和表格位置替换为您自己的路径和位置。