VBA вставляет скопированное значение из Word в следующую пустую строку Excel

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)