エクセルバージョン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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- Excel(エクセル) 【VBA】PDF出力に任意のファイル名前を付ける方法 3 2023/07/21 10:55
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2023/01/20 14:36
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
-
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
【Excel】指定したセルの名前でPDFを保存する【VBA】
Visual Basic(VBA)
-
-
4
エクセル マクロ 名前を付けて保存 PDF保存先指定 ファイル名任意+日付
Excel(エクセル)
-
5
エクセルをPDFにし複数のユーザーが各自の指定のデスクトップフォルダに保存するVBAを教えてください
Excel(エクセル)
-
6
VBAでPDFを保存する
Excel(エクセル)
-
7
エクセルのマクロでの保存先指定方法を教えて
その他(Microsoft Office)
-
8
【VBA】マクロの入ったファイルと同じフォルダに,出力したファイルを保存するコードについて
Visual Basic(VBA)
-
9
サブフォルダー内のPDFファイルを別フォルダにコピーするVBA
Excel(エクセル)
-
10
【Excel VBA】PDFを作成して,指定したフォルダに保存するコードについて
その他(Microsoft Office)
-
11
保存先のフォルダ名を指定したいとき
Visual Basic(VBA)
-
12
Excelの選択範囲を特定のセル値をファイル名にしてPDFで保存する
Excel(エクセル)
-
13
EXCEL ページを指定してPDF出力するVBAを教えてください。
PDF
-
14
エクセル マクロを使って同じフォルダ内にPDF保存したい。
Excel(エクセル)
-
15
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
16
VBA PDFで保存するマクロで実行時エラー 1004
Visual Basic(VBA)
-
17
Excelマクロのエラーを解決したいです。
Visual Basic(VBA)
-
18
エクセルvbaでdocuworksprinterの出力先を設定
Visual Basic(VBA)
-
19
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
20
Excelで指定したフォルダに保存するマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロ、PDFを任意のフォルダへ...
-
「名前を付けてページを保存」...
-
ダウンロードの保存先が勝手に...
-
EXCEL VBAでWEBページ保存2
-
[Excel]保存後起動時に保存前の...
-
サムネイルの保存場所
-
動くイラストを保存したい
-
インターネットで閲覧した画像...
-
環境変数の保存場所
-
HPを特定のフォルダに保存する方法
-
インストール時の「実行」と「...
-
フロントページの保存の仕方
-
保存水について。五年保存水が...
-
保存した覚えのない画像が出て...
-
USBメモリの使用履歴を見る方法...
-
拡張子が .mht というファイル...
-
お気に入りの同期
-
ダウンロードをキャンセルした...
-
右下の音量マークが表示されない
-
リンク上で指のマークにならない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロ、PDFを任意のフォルダへ...
-
ジャンプリストでピン留の保存場所
-
Thunderbird 添付ファイルの保...
-
保存先を記憶する
-
SONY Music Center For PC に付...
-
ZIP,JPEGファイルをDLしても0K...
-
mhtファイルが開けないです
-
ファイルの保存先を指定(固定...
-
デスクトップ保存だけ遅い
-
「名前を付けてページを保存」...
-
Windows10 保存先に「デスクト...
-
インターネットで閲覧した画像...
-
EXCEL VBAでWEBページ保存2
-
画像ファイル名で検索しても表...
-
エクセル マクロ
-
サムネイルの保存場所
-
共有フォルダの情報がリアルタ...
-
動くイラストを保存したい
-
クライアントは要求された特権...
-
保存したWebページが見られなく...
おすすめ情報