Question

我有一个包含几个表的Word文档，我需要获取某些值并将其放在Excel文件中。每天都会有新的Word文档来更新Excel文件。这是我到目前为止的内容：

Private Sub copyTable_Button()

Dim WrdApp As Word.Application
Dim wrddoc As Word.Document

Set WrdApp = GetObject(, "Word.Application")
WrdApp.Visible = True
Set wddoc = WrdApp.ActiveDocument

'Column 1'
Cells(5, 1) = wrddoc.Name

'Column 2 from table value
wrddoc.Tables(1).Cell(1, 3).Range.Copy
Cells(5, 2).PasteSpecial (xlPasteValues)

'Column 3 from table value
wrddoc.Tables(1).Cell(1, 2).Range.Copy
Cells(5, 3).PasteSpecial (xlPasteValues)

'Column 4 from table value
wddoc.Tables(1).Cell(3, 2).Range.Copy
Cells(5, 4).PasteSpecial (xlPasteValues)
End Sub

Excel VBA选择打开的Word文档，并将每个表值放在相应的Excel列中。我不想覆盖任何值，而是将值复制到下一行。

Answer 1

首先，找到最后一个行号。然后，粘贴最后一行+ 1。

Dim LastRow as Double
LastRow = ActiveSheet.UsedRange.Rows.Count
' ...
Cells(LastRow + 1, 1).PasteSpecial (xlPasteValues)

VBA将复制的值从Word粘贴到Excel的下一个空行

1 个答案: