这是一个简单的任务,但我不知道为什么它不起作用……
这是我的代码:
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 的工作表,具有相同的拼写
答案 0 :(得分:0)
以下内容应为您工作。
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