| |
▼美貴 さん：
変数はきっちり、宣言したほうが良いと思います。
なにを指してるのかわかりづらいです。
こんな感じですか？
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
|
|
ハチ
- 06/5/18(木) 17:03 -
