No.3ベストアンサー
- 回答日時:
s_chikayoさん こんばんは。
こちらも参考にしてください。
各シートをコピーし新規ブックとして保存して閉じます。
元のブックは開いたまま残ります。
保存先を変える場合は、ChDirのカッコ内を変えてください。なお、指定したフォルダが存在しないとエラーになります。
Sub SheetCopy()
Dim ShtCnt As Integer, i As Integer
ShtCnt = ActiveWorkbook.Worksheets.Count
i = 1
'保存場所を指定
ChDir ("C:\TEST\")
Do
Sheets(i).Activate
Sheets(i).Copy
ActiveWorkbook.Close savechanges:=True _
, FileName:=ActiveSheet.Range("A4").Value & ".xls"
i = i + 1
Loop Until i > ShtCnt
End Sub
この回答への補足
自宅のWindows98マシンでは問題なく動きましたが、会社のNTでは保存場所の指定がうまくできませんでした。(^_^;)
保存したいフォルダにあらかじめマクロを置いておいてChDir~の行を抜いておけば支障はないので、とりあえず業務上は助かりました。
No.2
- 回答日時:
マクロなら何でもできますよ。
試しに、録音ボタン(赤い丸印)を押して、
マクロを生成するとよろしかろう。
あとは、シート名を取得する関数などを利用して、
for - next あたりでループする。・・・
この言葉がわかるようになると、中級です。
だいたい、なんでもこなせるようになります。
わからなければ、書店でその手の本を、
立ち読みでもすれば、よろしいでしょう。
健闘を祈ります。
No.1
- 回答日時:
こんにちは。
対象ブックにマクロを仕込むなら、こんな感じでも良いかと。
最後に対象ブックはシート1枚だけになります。
Sub aaa()
Dim i As Integer
For i = Worksheets.Count To 2 Step -1
Worksheets(i).Move
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" _
& ActiveSheet.Range("A4") & ".xls"
ThisWorkbook.Activate
Next i
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Visual Basic(VBA) 特定の文字を含むシートだけマクロ処理をしたい 1 2023/05/22 01:43
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/25 11:42
- Excel(エクセル) セルの値と同じ名前のシートのセルの結合を解除する方法を教えてください 3 2022/10/03 10:23
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルを共有するとPCによっ...
-
VBAでブックを非表示で開いて処...
-
エクセルで参照しているデータ...
-
エクセル2016です。「ブッ...
-
エクセルの関数 ENTERを押...
-
Excel(2010)のフィルターが保...
-
フォルダ内の複数ファイルから...
-
エクセルで50行ごとに区切った...
-
Excel VBAでブックを閉じる時、...
-
エクセルで「ディスクがいっぱ...
-
エクセルで別ブックをバックグ...
-
VBAでブック保護非保護を判定す...
-
アクセスvbaでエクセルブックを...
-
エクセルで複数のシートを別フ...
-
エクセルでウィンドウの枠固定...
-
WorkBooksをオープンさせずにシ...
-
VBA: ブックをアクティベイトで...
-
エクセル 複数のブックを一度...
-
vbaでpdfを開いて1ページ目のみ...
-
印刷しようとすると強制終了に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの関数 ENTERを押...
-
VBAでブックを非表示で開いて処...
-
エクセルを共有するとPCによっ...
-
エクセルで参照しているデータ...
-
WorkBooksをオープンさせずにシ...
-
Excel(2010)のフィルターが保...
-
フォルダ内の複数ファイルから...
-
Excelでブックの共有を掛けると...
-
複数ファイルから特定シートの...
-
エクセルで「ディスクがいっぱ...
-
Excelで複数ブックの同一セルに...
-
エクセルファイルを開かずにpdf...
-
エクセルで別ブックをバックグ...
-
エクセルで50行ごとに区切った...
-
外部ブック参照が#REF!になって...
-
エクセル2016です。「ブッ...
-
エクセルの関数について教えて...
-
エクセルシートの一部を送りたい
-
ブックのピボットを別ブックに...
-
Excel起動時に特定のワークシー...
おすすめ情報