正如标题所说,下面是我尝试(在我的活动工作簿中)打开另一个工作簿,复制其内容,然后将其粘贴到我当前工作簿的第二张表中。但我无法通过粘贴的行为。我一直无法在网上找到这个特例的相关例子。
Sub SL()
Dim x As Workbook
Set x = Workbooks.Open("C:\Stuff.xlsx")
x.Sheets("SheetName").Cells.Copy
ActiveWorkbook.Sheets("Sheet2").Cells.PasteSpecial
End Sub
有人可以解释一下我应该放在那里的东西吗?
我相信以下内容将帮助您实现您的期望:
Sub SL()
Dim x As Workbook
Set x = Workbooks.Open("C:\Stuff.xlsx")
x.Sheets("SheetName").Cells.Copy
'does your workbook actually have a Sheet named "SheetName"?
'if not, you need to reference the sheet that you want to copy
ThisWorkbook.Sheets("Sheet2").Cells.PasteSpecial
x.Close False
'close your "Stuff" workbook without saving
End Sub