Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


43984 / 76732 ←次へ | 前へ→

【37772】Re:ブック名の変更
質問  美貴  - 06/5/18(木) 15:53 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
>一度保存しないと無理だと思います。
>
>なぜそんなことがしたいかを書かれたら
>代案が出されると思います。

アドバイス、ありがとうございます。(^^♪

アクティブなブックの特定のシートを選択しておいて
それを別の新規ブックに抜き出しコピーするマクロを
作成しました。
社内で他の人に資料を渡すときに、必要なシートのみを
選んで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

ご教示、よろしくお願い致します♪

2 hits

【37767】ブック名の変更 美貴 06/5/18(木) 14:47 質問
【37768】Re:ブック名の変更 ぱっせんじゃー 06/5/18(木) 14:54 発言
【37772】Re:ブック名の変更 美貴 06/5/18(木) 15:53 質問
【37780】Re:ブック名の変更 ハチ 06/5/18(木) 17:03 発言
【37782】Re:ブック名の変更 美貴 06/5/18(木) 17:39 質問
【37787】Re:ブック名の変更 ハチ 06/5/18(木) 18:18 発言
【37803】Re:ブック名の変更 Kein 06/5/18(木) 22:24 回答
【37815】Re:ブック名の変更 美貴 06/5/19(金) 10:44 お礼

43984 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free