Dim wkb As Workbook
Set wkb = Workbooks.Add
wkb.SaveAs "e:\方法.xlsx"
Set wkb = Workbooks.Open("e:\方法.xlsx")
ThisWorkbook.Sheets(10).Copy Before:=ActiveWorkbook.Sheets(1)
ThisWorkbook.Sheets(11).Copy Before:=ActiveWorkbook.Sheets(1)
ThisWorkbook.Sheets(12).Copy Before:=ActiveWorkbook.Sheets(1)
ThisWorkbook.Sheets(13).Copy Before:=ActiveWorkbook.Sheets(1)
ThisWorkbook.Sheets(14).Copy Before:=ActiveWorkbook.Sheets(1)
ThisWorkbook.Sheets(15).Copy Before:=ActiveWorkbook.Sheets(1)
ThisWorkbook.Sheets(16).Copy Before:=ActiveWorkbook.Sheets(1)
ThisWorkbook.Sheets(17).Copy Before:=ActiveWorkbook.Sheets(1)
ThisWorkbook.Sheets(18).Copy Before:=ActiveWorkbook.Sheets(1)
100:
Dim i As Integer
With Workbooks("方法.xlsx")
Application.DisplayAlerts = fase
Application.ScreenUpdating = False
For i = 1 To 3
.Worksheets("Sheet" & i).Delete
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End With
FileCopy "e:\方法.xlsx", "e:\123.xlsx"
运行此处时提示:运行错误“70” 拒绝的权限