|
こんにちは。
よく解ってませんから、適当に直してください。
Sub nnmm()
For i = 1 To ThisWorkbook.Worksheets.Count
Shnm = ThisWorkbook.Worksheets(i)
ThisWorkbook.Worksheets(i).Copy
保存ファイルフルパス = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Shnm & ".xls"
ActiveWorkbook.SaveAs FileName:=保存ファイルフルパス
DoEvents
Workbooks(Shnm & ".xls").Close
Next
End Sub
Sub nnmm2()
Shnm = ActiveWindow.SelectedSheets(1).Name
ActiveWindow.SelectedSheets(1).Copy
保存ファイルフルパス = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Shnm & ".xls"
ActiveWorkbook.SaveAs FileName:=保存ファイルフルパス
DoEvents
Workbooks(Shnm & ".xls").Close
End Sub
|
|