![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
マクロ初心者です。教えて下さい。
ループでお客様のコードが入力されている限りデータを作成するマクロを作っています。
現在の状態は
いちいちファイルを付けて保存のメッセージボックスで「保存」としなければなりません。
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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
マクロ VBA ファイル名を連番でつけたいのですが
Access(アクセス)
-
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
-
4
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
VBA 新規ファイルを元ファイルと同じ場所に保存する方法
Excel(エクセル)
-
7
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
8
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
9
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
10
VBAのプログラムで、DIAG = 1# / A(L, L) や R(
その他(プログラミング・Web制作)
-
11
VBA 条件が一致した場合のみコピーする
その他(ビジネス・キャリア)
-
12
EXCEL 年月表示をするVBAを教えてください。
Excel(エクセル)
-
13
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
14
ExcelVBA実行後に時々落ちる
Visual Basic(VBA)
-
15
VBAでセル値からフォルダ名を取得するコードについて
Excel(エクセル)
-
16
エクセル countif関数で、範囲を可変にするには
Excel(エクセル)
-
17
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
18
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
19
エクセル マクロ 名前を付けて保存 PDF保存先指定 ファイル名任意+日付
Excel(エクセル)
-
20
vbaサブフォルダーをワイルドカードで取得したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル文書を保存したらメモ...
-
エクセルを上書き保存したのに...
-
エクセル・マクロ(VBA)で、指定...
-
いきなりPDFでPDFファイルを開...
-
「上書き保存確認ダイアログ」...
-
エクセルで保存の前に固まって...
-
ピボットテーブルの更新ができない
-
マクロVBA特定フォルダーに次々...
-
Illustratorファイルに読み取り...
-
エクセルでVBAを使用して1分毎...
-
エクセルの共有ファイルで、保...
-
エクセルで作った書類の作成者...
-
Excel画面の自動更新 Excelファ...
-
エクセルでCSVファイルとして保...
-
メール添付されているファイル...
-
エクセルがwindows終了時に未保...
-
Excelの読み取り専用について質...
-
Excel2019とOneDriveでのサイン...
-
csvファイルを上書き保存でカン...
-
行と列を固定して表示するには
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルを上書き保存したのに...
-
エクセル文書を保存したらメモ...
-
いきなりPDFでPDFファイルを開...
-
メール添付されているファイル...
-
マクロ VBA ファイル名を連番...
-
Excel画面の自動更新 Excelファ...
-
エクセルがwindows終了時に未保...
-
エクセルでCSVファイルとして保...
-
エクセルでVBAを使用して1分毎...
-
OneDriveの存在を知った。エク...
-
Illustratorファイルに読み取り...
-
ピボットテーブルの更新ができない
-
開いてるファイル(エクセル等)...
-
エクセル表のCSV化ができない
-
GetSaveAsFilenameでフォルダを...
-
エクセル 更新していないのに...
-
csvファイルを上書き保存でカン...
-
「変更を保存しますか?」と聞...
-
マクロVBA特定フォルダーに次々...
-
エクセル2019でPDFファイル名に...
おすすめ情報