如何用宏excel中的一页保存成单独的文件？

Question

如题所述

Answer 1

Sub Save_A_Sheet()
Application.DisplayAlerts = False
Dim myPath As String
Dim myDoc As String

With Application.FileDialog(msoFileDialogFolderPicker)
.Show
.AllowMultiSelect = False
myPath = .SelectedItems(1)
End With

myDoc = Application.InputBox("输入名字", Type:=2)
ThisWorkbook.SaveAs (myPath & "\" & myDoc & ".xls")
For i = 1 To ThisWorkbook.Worksheets.Count - 1
Worksheets(2).Delete
Next

ThisWorkbook.Save
ThisWorkbook.Close

End Sub

本回答被网友采纳