Question

晚上好，朋友们。我有一个非常愚蠢的请求，无法找到正确的解决方案。我需要在下面看到的过程中以正确的方式插入“。PasteSpecial xlPasteValues” 参数，以仅将值粘贴到目标工作簿中。下面的过程可以正常工作，如果可能，我不会更改它，但是将其与上述参数集成在一起。除非我更改代码并使用其他解决方案。我重复一遍，下面的代码现在已经过测试，可以安全使用，但是现在不再需要粘贴单元格格式和原始工作簿的验证。

谢谢您的建议。

编辑：

我会变得更加清晰。我知道有类似的要求已经解决。我的问题是在我已经使用的过程中将“ .PasteSpecial xlPasteValues”参数正确放置在哪里。当我使用源表和目标表时，其他解决方案不会将数据粘贴到表中。

Public Sub CopyOnMasterDB ()

Dim CopyFrom As Range
Dim Copyto As Range

Set CopyFrom = Workbooks ("FromFile.xlsm"). Worksheets ("Database"). UsedRange.Offset (2, 0)
Set Copyto = Workbooks ("MASTER_DATABASE.xlsx"). Worksheets (1) .Range ("A" & Rows.count) .End (xlUp) .Offset (1, 0) 'Error If I insert .PasteSpecial xlPasteValues

CopyFrom .Copy Destination: = Copyto 'Error If I insert .PasteSpecial xlPasteValues
Application.CutCopyMode = False

Workbooks ("MASTER_DATABASE.xlsx"). Close SaveChanges: = True

End Sub

Answer 1

更改：

CopyFrom.Copy Destination:=CopyTo

到

CopyFrom.Copy
CopyTo.PasteSpecial xlPasteValues

PasteSpecial xlPasteValues-在VBA代码中正确集成

1 个答案: