|
Sub 另存为新的工作簿()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim vSH As Variant, nI As Integer, sFileName As String
sFileName = ThisWorkbook.Path & "\" & "XXXXX.xls"
vSH = Array("首页", "一", "三", "二", "四", "五", "六")
Sheets(vSH).Copy
ActiveWorkbook.SaveAs sFileName, FileFormat:=xlExcel8
For nI = LBound(vSH) To UBound(vSH)
With ThisWorkbook.Sheets(vSH(nI)).UsedRange
ActiveWorkbook.Sheets(vSH(nI)).Range(.Address) = .Value
End With
Next
ActiveWorkbook.Close True
MsgBox "【" & "文件" & "】已保存", Title:="提示:", Buttons:=64
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub |
|