在VBA中粘贴特殊

我正在寻找粘贴下面的一段代码的值。 我尝试使用粘贴特殊的各种方法，但它不让我指定文件和我想要做什么types的粘贴。

要清楚，我正在使用的代码工作，但我想修改它，所以它只粘贴值。

Workbooks.Open (path & file) ActiveSheet.Paste (Workbooks(file).Sheets(5).Range("A1").End(xlDown).Offset(1, 0)) Workbooks(file).Close SaveChanges:=True 

谢谢！

Answer 1

与使用与工作表对象关联的PasteSpecial ，请使用与目标对象关联的对象：

 Workbooks(file).Sheets(5).Range("A1").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues 

要么

您可以直接使用这些值并避免使用剪贴板（在macros运行时您可能正在尝试使用其他内容）：

 Dim src as Range Dim dest as Range 'Set src to where you had copied from Set dest = Workbooks(file).Sheets(5).Range("A1").End(xlDown).Offset(1, 0) dest.value = src.value