|
Sub 另存()
Dim wb As Workbook
Dim n&, icount
ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & Cells(2, 17) & "-" & Cells(1, 18).Value & ".xlsx"
Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & Cells(2, 17) & "-" & Cells(1, 18).Value & ".xlsx")
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Application.WindowState = xlMaximized
Columns("h:S").Select
Selection.Delete Shift:=xlToLeft
icount = Worksheets.Count
If icount >= 2 Then
For n = icount To 2 Step -1
Application.DisplayAlerts = False
Sheets(n).Select
ActiveWindow.SelectedSheets.Delete
Next
End If
ActiveWorkbook.Save
ActiveWorkbook.Close
MsgBox "已生成完毕,生成路径" & ThisWorkbook.Path
End Sub
大神帮我看这段另存代码,在03-07版是没问题的,2016版就提示以下错误。
1004的错误
|
|