エクセルバージョン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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
【Excel】指定したセルの名前でPDFを保存する【VBA】
Visual Basic(VBA)
-
エクセル マクロ 名前を付けて保存 PDF保存先指定 ファイル名任意+日付
Excel(エクセル)
-
-
4
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
-
5
エクセルをPDFにし複数のユーザーが各自の指定のデスクトップフォルダに保存するVBAを教えてください
Excel(エクセル)
-
6
VBAでPDFを保存する
Excel(エクセル)
-
7
エクセルのマクロでの保存先指定方法を教えて
その他(Microsoft Office)
-
8
Excelの選択範囲を特定のセル値をファイル名にしてPDFで保存する
Excel(エクセル)
-
9
サブフォルダー内のPDFファイルを別フォルダにコピーするVBA
Excel(エクセル)
-
10
【VBA】マクロの入ったファイルと同じフォルダに,出力したファイルを保存するコードについて
Visual Basic(VBA)
-
11
保存先のフォルダ名を指定したいとき
Visual Basic(VBA)
-
12
エクセルマクロでPDF表示をしたい
PDF
-
13
VBA PDF ファイル名をセルからつける
Excel(エクセル)
-
14
Excelで指定したフォルダに保存するマクロ
Excel(エクセル)
-
15
Excel VBA シートを指定してpdf化
Visual Basic(VBA)
-
16
EXCEL ページを指定してPDF出力するVBAを教えてください。
PDF
-
17
エクセル マクロを使って同じフォルダ内にPDF保存したい。
Excel(エクセル)
-
18
VBA PDFで保存するマクロで実行時エラー 1004
Visual Basic(VBA)
-
19
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
20
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Thunderbird 添付ファイルの保...
-
マクロ、PDFを任意のフォルダへ...
-
ファイルが壊れて読み取れませ...
-
保存先を記憶する
-
「名前を付けてページを保存」...
-
画像ファイル名で検索しても表...
-
ネット上の画像を保存する際、...
-
ダウンロードの保存先が勝手に...
-
ウェブページの保存法
-
windows98でデスクトップにwe...
-
ジャンプリストでピン留の保存場所
-
SONY Music Center For PC に付...
-
EXCEL VBAでWEBページ保存2
-
拡張子が .mht というファイル...
-
ダウンロードしたファイルがゼ...
-
添付ファイルメッセージ
-
<戻る>のプラウザが戻りすぎる
-
リンク上で指のマークにならない
-
薄い色のアイコン
-
zipファイルをDLしようとすると...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロ、PDFを任意のフォルダへ...
-
ファイルが壊れて読み取れませ...
-
ジャンプリストでピン留の保存場所
-
ファイルの保存先を指定(固定...
-
SONY Music Center For PC に付...
-
保存先を記憶する
-
OneDriveについて
-
インターネットで閲覧した画像...
-
デスクトップ保存だけ遅い
-
「名前を付けてページを保存」...
-
サムネイルの保存場所
-
ZIP,JPEGファイルをDLしても0K...
-
デスクトップに保存した壁紙はH...
-
エクセル・ワードのデータや文...
-
mhtファイルが開けないです
-
共有フォルダの情報がリアルタ...
-
エクセル マクロ
-
Windows10 保存先に「デスクト...
-
エクセルのウィンドウ枠の固定
-
XPのデフォルトアイコンの保存場所
おすすめ情報