将一系列值从一个工作簿粘贴到另一个工作簿

Question

所以实际上一切都正确粘贴到工作簿中，但是，我添加了一个额外的数据列，其中输入了一个公式。现在，当我运行宏时，它正在复制和粘贴公式而不是从公式生成的值。

我进去把 wbData.ActiveSheet.Paste 改成了 wbData.ActiveSheet.PasteSpecial x1PasteValue 但是没用。想知道我是否将其插入错误的位置？

 Dim wbTime As Workbook
   Set wbTime = ThisWorkbook
   Dim wbData As Workbook
   Dim LastRow As Long

   Set wbTime = ActiveWorkbook
   With wbTime.Sheets("Production Time Sheet")
       LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
   End With
   wbTime.Sheets("Production Time Sheet").Range("A6:O" & LastRow).Copy

   Set wbData = Workbooks.Open("S:\Lean Carrollton Initiative\Michael\Time Sheet Data - LT Test.xlsx")

   wbData.ActiveSheet.PasteSpecial x1PasteValue Destination:=Worksheets("Log").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

   wbData.Close SaveChanges:=True
End Sub

Answer 1

我总是select先粘贴范围

Worksheets("Log").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValue

将一系列值从一个工作簿粘贴到另一个工作簿

Pasting a range of values from one workbook to another

excel

vba

copy-paste