あるセル(A10)にある文字列をファイル名にして、2ヶ所のフォルダに
保存するマクロを教えてください。
下記質問で番号(下記アドレス参照)を採番した後、その番号をファイル
名として、2ヶ所のフォルダに保存したいのです。
http://oshiete1.goo.ne.jp/qa3195270.html
マクロ初心者ですが、そのような事がマクロで出来ますか?
出来るならば、その方法を教えてください。よろしくお願いします。
No.2ベストアンサー
- 回答日時:
#01です。
簡単に警告メッセージを出すようにするならSaveCopyAs → SaveAs
に変更すればよいです。ただしこの場合、保存後にアクティブとなるブックは「書き込んだブック」になります。
Sub CopySv()
Const SvFolder1 As String = "C:\BackUp1\"
Const SvFolder2 As String = "D:\BackUp2\"
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=SvFolder1 & Range("A10").Value & ".xls"
ActiveWorkbook.SaveAs Filename:=SvFolder2 & Range("A10").Value & ".xls"
End Sub
SaveAsメソッドを用いた場合でも元のブックを開いたままにしたいということであればこんなマクロになります
Sub CopySv()
Dim nm, pt As String
Dim wb as Workbook
Const SvFolder1 As String = "C:\BackUp1\"
Const SvFolder2 As String = "D:\BackUp2\"
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=SvFolder1 & Range("A10").Value & ".xls"
ActiveWorkbook.SaveAs Filename:=SvFolder2 & Range("A10").Value & ".xls"
Set wb = ActiveWorkbook
Workbooks.Open Filename:=pt & nm
wb.Close
End Sub
Zap35さんありがとうございました<m(__)m>これで完璧!に出来ました。
保存先がアクティブになった方が都合がいいので、上の方のマクロ
を使わせていただきました。これで作業が楽に出来るようになります。
ご丁寧にご説明ありがとうございました。
No.1
- 回答日時:
例えば以下のようなマクロでもできます
Sub CopySv()
Const SvFolder1 As String = "C:\BackUp1\"
Const SvFolder2 As String = "D:\BackUp2\"
ActiveWorkbook.SaveCopyAs Filename:=SvFolder1 & Range("A10").Value & ".xls"
ActiveWorkbook.SaveCopyAs Filename:=SvFolder2 & Range("A10").Value & ".xls"
End Sub
すぐにご回答いただきましてありがとうございます<m(__)m>
記述していただきましたマクロで完璧に出来ました。
が・・・既にその名前でファイル保存されていた場合、そのまま
上書きがされてしまうのが難点です(ーー;)
ファイル名の○○○-yymmdd○(○○○がジャンル、最後の○は、
その日の何番目の処理か)のジャンル部分は手で打ち込んでいます。
間違えて打ち込んでしまうと、上書きが自動にされてしまうのですが、
何かいい方法はないものでしょうか?「上書きしますか?」等のコメント
が出ないので危険!です。何か方法がありましたら、教えてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 10:00
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/03 16:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/02/07 09:58
- Visual Basic(VBA) エクセルのマクロコードの一部分を変更する方法について教えてください。 2 2023/02/17 08:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
マクロの保存先、開いてるすべ...
-
【Excel VBA】マクロでExcel自...
-
エクセル関数>参照ファイル名...
-
複数のExcelブックを1つ...
-
excel VBA シート保存について...
-
エクセル;相対パスを絶対パスへ...
-
ファイルごとにセルの移動方向...
-
【Excel】特定セルの内容をテキ...
-
エクセルVBAで作成した別ブック...
-
【Excel】マクロの保存先について
-
Excel VBAで他のブックを選択...
-
マクロ 自動でパスワード及び指...
-
エクセルでメッセージボックス...
-
エクセルで読み取り専用の時に...
-
ブックを開いたとき自動的にバ...
-
エクセルで複数のファイル(ブッ...
-
エクセル 半角カナを全角に、...
-
エクセルマクロで(セルの削除...
-
名前の変わるブックをアクティ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
【Excel VBA】マクロでExcel自...
-
エクセル;相対パスを絶対パスへ...
-
マクロの保存先、開いてるすべ...
-
【Excel】マクロの保存先について
-
excelで直前に参照していたブッ...
-
EXcelのマクロで相対パスでファ...
-
エクセルVBAで作成した別ブック...
-
複数のExcelファイルの印刷設定...
-
エクセルのvbaにて thisworkboo...
-
EXCELのボタンによるマクロの登...
-
エクセルVBA 個人用マクロブッ...
-
EXCELマクロで、開いてはいるが...
-
EXCELブックが勝手に開いて困っ...
-
エクセルで未保存に対するメッ...
-
[フィルターオプションの設定]...
-
【Excel】特定セルの内容をテキ...
-
ファイル名変更後も、マクロを...
-
名前の変わるブックをアクティ...
おすすめ情報