エクセルバージョン2007を使用しています。
よろしくお願いします。
現在、下記のマクロにて見積書をPDFを保存しているのですが、
下記コードの場合、最終に保存した場所が記憶される(?)ので、PDFの保存先が固定できません。
また、ファイルを更新すると、初期のPDF保存先が各PCのマイドキュメントへ保存されてしまいます(ファイルを共有しています)。
希望としまして、
①共有でファイル(見積書.xlsm)を使用しているのですが、PDF保存先を『'\\hoge\見積フォルダ\』に固定したい
②PDF保存の際、同名ファイルがある場合、警告なく上書きされるので、警告するようにしたい
現在のコードです
------------------------------------------------------------
Sub PDF見積保存()
Dim fName As String
'『Y4』は見積書のファイル名で、『顧客名.pdf』になるようにしています
pdfname = Range("Y4").Text
'保存ファイル名及び保存場所の設定
fName = Application.GetSaveAsFilename(pdfname, "PDFファイル,*.pdf")
'保存操作
Sheets(2).ExportAsFixedFormat Type:=xlTypePDF, fileName:=pdfname
End Sub
------------------------------------------------------------
以上、ご回答いただけますと幸いです。
No.1ベストアンサー
- 回答日時:
1.保存先フォルダを固定したいのなら、Application.GetSaveAsFilenameを使用しないで、
fName = "\\hoge\見積フォルダ\" & pdfname
にすればいいと思います。
保存先の初期値として上記のフォルダにして、名前を付けて保存ダイアログを出したいのなら、
Application.GetSaveAsFilenameの最初のパラメータを、pdfnameではなくてフルパスにします。
2.警告なく上書きしたくないということですので、保存前にDir()を使用してファイルの存在確認を
すれば可能です。
----------------------------------------------------
Sub PDF見積保存()
Dim folder As String
Dim fName As String
Dim pdfname As String
Dim rtn As Long
folder = "\\hoge\見積フォルダ\"
'『Y4』は見積書のファイル名で、『顧客名.pdf』になるようにしています
pdfname = Range("Y4").Text
'保存ファイル名及び保存場所の設定
fName = Application.GetSaveAsFilename(folder & pdfname, "PDFファイル,*.pdf")
'キャンセルボタン押下時
If fName = "False" Then Exit Sub
'ファイルの存在確認
If Dir(fName) <> "" Then
rtn = MsgBox(fName & " が存在します。上書きしますか?", vbOKCancel + vbQuestion, "確認")
’キャンセルボタン押下時
If rtn = vbCancel Then Exit Sub
End If
'保存操作
Sheets(2).ExportAsFixedFormat Type:=xlTypePDF, Filename:=fName
MsgBox fName & " 保存完了"
End Sub
ご回答、ありがとうございます。
ご教示いただきましたコードで試してみたところ、
期待通りの動作を得られました。
内容につきましては追って学んでいきたいと思います。
コードまでお教えいただき、この度は誠にありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あるあるbotに投稿したけど採用されなかったあるある募集
あるあるbotに投稿したけど採用されなかったあるあるをこちらに投稿してください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
-
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
エクセル マクロ 名前を付けて保存 PDF保存先指定 ファイル名任意+日付
Excel(エクセル)
-
-
4
【Excel】指定したセルの名前でPDFを保存する【VBA】
Visual Basic(VBA)
-
5
【Excel VBA】PDFを作成して,指定したフォルダに保存するコードについて
その他(Microsoft Office)
-
6
VBAでPDFを保存する
Excel(エクセル)
-
7
【VBA】マクロの入ったファイルと同じフォルダに,出力したファイルを保存するコードについて
Visual Basic(VBA)
-
8
エクセルをPDFにし複数のユーザーが各自の指定のデスクトップフォルダに保存するVBAを教えてください
Excel(エクセル)
-
9
EXCEL ページを指定してPDF出力するVBAを教えてください。
PDF
-
10
サブフォルダー内のPDFファイルを別フォルダにコピーするVBA
Excel(エクセル)
-
11
Excelの選択範囲を特定のセル値をファイル名にしてPDFで保存する
Excel(エクセル)
-
12
エクセル マクロ
Excel(エクセル)
-
13
保存先のフォルダ名を指定したいとき
Visual Basic(VBA)
-
14
エクセルのマクロでの保存先指定方法を教えて
その他(Microsoft Office)
-
15
エクセル マクロを使って同じフォルダ内にPDF保存したい。
Excel(エクセル)
-
16
Excelマクロのエラーを解決したいです。
Visual Basic(VBA)
-
17
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
18
excel マクロ PDF化の際のエラーについて
Visual Basic(VBA)
-
19
VBA 新規ファイルを元ファイルと同じ場所に保存する方法
Excel(エクセル)
-
20
Excel VBA シートを指定してpdf化
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ジャンプリストでピン留の保存場所
-
マクロ、PDFを任意のフォルダへ...
-
mhtファイルが開けないです
-
アクセスのdb1.mdbの意味
-
保存先を記憶する
-
ZIP,JPEGファイルをDLしても0K...
-
Windows7において、ファイルの...
-
エクセル マクロ
-
OneDriveについて
-
ファイルの保存先を指定(固定...
-
「名前を付けてページを保存」...
-
ムービーメーカー 保存場所の変更
-
サムネイルの保存場所
-
ホームページの文字だけを保存...
-
インターネットで閲覧した画像...
-
拡張子が .mht というファイル...
-
ファイルをダウンロードすると...
-
DVDの無料書き込み方法を解説を...
-
Excel、"【ブック名】"の一部内...
-
リンク上で指のマークにならない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロ、PDFを任意のフォルダへ...
-
ジャンプリストでピン留の保存場所
-
ファイルの保存先を指定(固定...
-
mhtファイルが開けないです
-
保存先を記憶する
-
SONY Music Center For PC に付...
-
サムネイルの保存場所
-
「名前を付けてページを保存」...
-
ZIP,JPEGファイルをDLしても0K...
-
エクセル マクロ
-
Thunderbird 添付ファイルの保...
-
エクセル・ワードのデータや文...
-
デスクトップ保存だけ遅い
-
デスクトップに保存した壁紙はH...
-
勝手にフォルダーが出来る。
-
インターネットで閲覧した画像...
-
保存した覚えのない画像が出て...
-
Sonic Stage ファイルの保存先
-
画像ファイル名で検索しても表...
-
保存したWebページが見られなく...
おすすめ情報