從另一個工作簿復制/粘貼

Question

這是一個簡單的任務，但我不知道為什么它不起作用......

這是我的代碼：

Dim chemin As String
Workbooks.Open ("Z:\ext_Workbook.xlsx") 
Sheets("produits").Activate
Sheets("produits").Range("A1:CZ500").Copy 

ThisWorkbook.Activate
Sheets("STT").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste

Application.DisplayAlerts = False
Workbooks("ext_Workbook.xlsx").Close

運行停止在線：

 Sheets("STT").Select

但我驗證了，有一張名為STT的工作表，拼寫相同

Answer 1

以下應該適合你。

Dim SourceWBK As Workbook, DestinationWBK As Workbook

Set SourceWBK = Workbooks.Open("Z:\ext_Workbook.xlsx")
Set DestinationWBK = ThisWorkbook

SourceWBK.Worksheets("produits").Range("A1:CZ500").Copy
DestinationWBK.Worksheets("STT").Range("A1:CZ500").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False

Application.DisplayAlerts = False
SourceWBK.Close False