|
▼美貴 さん:
変数はきっちり、宣言したほうが良いと思います。
なにを指してるのかわかりづらいです。
こんな感じですか?
ActiveWindow.SelectedSheets って初めて使ってみました。
便利ですね^^
下のほうはコメントアウトしてます。
Sub Test()
Dim Oldwb, Newwb As Workbook
Set Oldwb = ActiveWorkbook
Set Newwb = Workbooks.Add(xlWBATWorksheet)
Newwb.Worksheets(1).Name = "TMP"
Oldwb.Activate
ActiveWindow.SelectedSheets.Copy After:=Newwb.Worksheets(1)
Application.DisplayAlerts = False
Newwb.Worksheets(1).Delete
Application.DisplayAlerts = True
'右端のSheetの名前をつけて保存しない?
'Newwb.SaveAs ThisWorkbook.Path & "\" & Newwb.Worksheets(1).Name & ".xls"
'閉じない?
'Newwb.Close
Set Oldwb = Nothing
Set Newwb = Nothing
End Sub
|
|