ここから本文です

エクセルファイルのシートを個別に保存するマクロを作りたいのですが、個別に保存...

xii********さん

2019/4/1910:47:50

エクセルファイルのシートを個別に保存するマクロを作りたいのですが、個別に保存するファイル名を、それぞれのシートの
B8&"_"&E8&"_"&TEXT(B10,"000.000")&"_"&B12
の値に

したいのですが、どのように作ればできますか?

閲覧数:
15
回答数:
1

違反報告

ベストアンサーに選ばれた回答

ann********さん

2019/4/1913:49:07

一例です。
-------
Sub Sheet2Book()
Dim i As Integer
Application.ScreenUpdating = False
ChDir "C:\aaaa\bbbb" '保存先のフルパスに
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Activate
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=xxxxx & ".xlsx" '※
ActiveWorkbook.Close False
Next
Sheets(1).Activate
Application.ScreenUpdating = True
End Sub
-------

※:Filename:=xxxxx & ~
この行の xxxxx の部分は、実際の名前指定記述に書き替えてください。
次のような記述になるのでしょうか。
Range("B2").Value & "_" & Range("C3").Value & "_" & Format(Range("B10").Value, "000.000") & "_" & Range("B12").Value

質問した人からのコメント

2019/4/23 11:34:59

ありがとうございました。おかげさまで簡単に処理することができました。

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる