マクロ初心者です。教えて下さい。
ループでお客様のコードが入力されている限りデータを作成するマクロを作っています。
現在の状態は
いちいちファイルを付けて保存のメッセージボックスで「保存」としなければなりません。
AAAのフォルダーに作成されたデータを次々に保存していくにはどうしたら良いですか?
(メッセージBOXを出さずに)
マクロ実行したら、何もしなくてもAAAフォルダーに全て保存されている状態にしたいです。
宜しくお願い致します。
'名前を付け保存するファイル名の初期設定
Dim Save_File, Save_Filename As String
Save_Filename = Sheets("企業別金額サマリ").Range("A3").Value & " 販売実績(5月).xls"
'「名前を付けて保存する」ダイアログボックスの表示
Save_File = Application.GetSaveAsFilename(Save_Filename, _
FileFilter:="Excelファイル,*.xls,すべてのファイル,*.*")
'名前を付けて保存する
ActiveWorkbook.SaveAs Filename:= _
Save_File, FileFormat:=xlNormal, _
Password:="mpd", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
No.2ベストアンサー
- 回答日時:
Dim AA,BB
AA="特定フォルダのPath"
BB=Sheets("企業別金額サマリ").Range("A3").Value & " 販売実績(5月).xls"
'名前を付けて保存する
ActiveWorkbook.SaveAs Filename:=AA & "\" & BB,Password:="mpd"
'「名前を付けて保存する」ダイアログボックスを表示しないでファイルを閉じる。
ActiveWorkbook.Close False
No.1
- 回答日時:
次のようにすればいけると思われます!
1.以下の3行は削除(またはコメント)する
'「名前を付けて保存する」ダイアログボックスの表示
Save_File = Application.GetSaveAsFilename(Save_Filename, _
FileFilter:="Excelファイル,*.xls,すべてのファイル,*.*")
2.削除したところに次の1行を加える
Save_File = 【AAAフォルダのパス】 & "\" & Save_Filename
※【AAAフォルダのパス】にはC:\Documents and Settings・・・というような実際のパスを指定する。【AAAフォルダのパス】の末尾に円マーク(\)をつけるのであれば「& "\" &」の箇所は不要。
ちなみにですが
Dim Save_File, Save_Filename As String
という1行で2つの変数を同じ型で定義できてるように見えますが、実はVBAではできませんので
Dim Save_File As String, Save_Filename As String
としてやる必要がありますです。
丁寧にご回答頂きありがとうございました。
エラーが出てしまいました。
(文字が赤くなる 最後がどうのとC:¥マークに言ってるようです)
参考になった!という方がいらっしゃるので
私のやり方が悪いと思います。
親切に教えて下さったのに、上手くいかずもうしわけありません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/06 13:01
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
マクロ VBA ファイル名を連番でつけたいのですが
Access(アクセス)
-
VBA 新規ファイルを元ファイルと同じ場所に保存する方法
Excel(エクセル)
-
-
4
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
5
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
6
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
7
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
8
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
9
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
10
VBAのプログラムで、DIAG = 1# / A(L, L) や R(
その他(プログラミング・Web制作)
-
11
エクセルのマクロで保存して終了が出来ない
Access(アクセス)
-
12
EXCEL 年月表示をするVBAを教えてください。
Excel(エクセル)
-
13
Excelで指定したフォルダに保存するマクロ
Excel(エクセル)
-
14
Excel VBAでオートフィルタで抽出した列データを別シートの最終行にコピーするには
Visual Basic(VBA)
-
15
VBA 条件が一致した場合のみコピーする
その他(ビジネス・キャリア)
-
16
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
17
Excelで指定した日付から過去の最も近い日付(指定した日付も含む)を下から検索する方法
Visual Basic(VBA)
-
18
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
19
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
20
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel画面の自動更新 Excelファ...
-
エクセル:バックアップファイ...
-
エクセル 上書きしていないの...
-
エクセル文書を保存したらメモ...
-
エクセル2016 上書き保存が出来...
-
マクロVBA特定フォルダーに次々...
-
エクセルを上書き保存したのに...
-
「変更を保存しますか?」と聞...
-
エクセルでCSVファイルとして保...
-
イラストレーターwin版V.9で丸...
-
ピボットテーブルの更新ができない
-
エクセルで作った書類の作成者...
-
複数のブックを上書き保存する...
-
【スプレドシート】IMPORTRANGE...
-
パワーポイントをエクセルファ...
-
EXCELで上書き保存しないと反映...
-
時間によってファイル名が変わ...
-
エクセルで「500時間」を「何日...
-
エクセル関数の解読サイトなん...
-
エクセルで使えるかわいい枠を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルを上書き保存したのに...
-
エクセル文書を保存したらメモ...
-
いきなりPDFでPDFファイルを開...
-
メール添付されているファイル...
-
エクセルでVBAを使用して1分毎...
-
マクロ VBA ファイル名を連番...
-
Excel画面の自動更新 Excelファ...
-
ピボットテーブルの更新ができない
-
開いてるファイル(エクセル等)...
-
エクセル・マクロ(VBA)で、指定...
-
OneDriveに保存したファイルは...
-
エクセルでCSVファイルとして保...
-
Illustratorファイルに読み取り...
-
「名前を付けて保存」ができな...
-
エクセルで保存の前に固まって...
-
エクセル表のCSV化ができない
-
csvファイルを上書き保存でカン...
-
マクロVBA特定フォルダーに次々...
-
「変更を保存しますか?」と聞...
-
エクセル 更新していないのに...
おすすめ情報