[英]VBA Paste Copied Value from Word into Next Empty Row of Excel
我有一个带有几个表的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列中。 我不想覆盖任何值,而是将值复制到下一行。
首先,找到最后一行。 然后,粘贴最后一行+ 1。
Dim LastRow as Double
LastRow = ActiveSheet.UsedRange.Rows.Count
' ...
Cells(LastRow + 1, 1).PasteSpecial (xlPasteValues)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.