0
Option Explicit
Sub Test()
Dim ABC As Workbook
Dim XYZ As ThisWorkbook
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With
Set XYZ = ThisWorkbook
Set ABC = Workbooks.Open("F:\Test\ABC.csv")
With ABC
.Copy After:=XYZ.Sheets(XYZ.Sheets.Count)
.Close False
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With
End Sub
請加入視訊聚會返回 – khakiout
錯誤是'昏暗XYZ作爲ThisWorkbook'一個有效的聲明?我以前沒見過。也許'Dim XYZ As Workbook'會起作用嗎? –