|
▼ぱっせんじゃー さん:
>一度保存しないと無理だと思います。
>
>なぜそんなことがしたいかを書かれたら
>代案が出されると思います。
アドバイス、ありがとうございます。(^^♪
アクティブなブックの特定のシートを選択しておいて
それを別の新規ブックに抜き出しコピーするマクロを
作成しました。
社内で他の人に資料を渡すときに、必要なシートのみを
選んで1つのブックにしたいためです。
このときのブック名は、選択したシートの1番目の名前と同じにしたい
ことが多いので、この名前をデフォルトにしたいんです。
でも、保存までしてしまうと、自分が置きたいフォルダじゃ
なかったりするので、それは避けたいんです。
以下は、私が書いたコードです。
Sub シートの抜き出しコピー()
元ファイル = ActiveWorkbook.Name
Workbooks.add Template:="ブック"
ファイル1 = ActiveWorkbook.Name
Windows(元ファイル).Activate
SheetsC = 0
For Each ws In ActiveWindow.SelectedSheets '選択中のシート
Windows(元ファイル).Activate
Sheets(ws.Name).Select
SheetsC = SheetsC + 1
Application.DisplayAlerts = False
Sheets(ws.Name).Copy After:=Workbooks(ファイル1).Sheets(SheetsC)
Application.DisplayAlerts = True
If SheetsC = 1 Then sheetname = ws.Name
Next
Sheets("Sheet1").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub
ご教示、よろしくお願い致します♪
|
|