下記コードにて実行をすると、指定範囲がPDF化され、「ドキュメント」に保存されるのですが、
別の指定したフォルダーに保存するにはどうしたらいいのでしょうか?
VBAは全くの素人なので、このコードもネットで見つけたものをコピペで加工したものなのであまり理解はできていません。
お手数なのですが、教えて頂けると助かります。
宜しくお願い致します。
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Dim FileName As String
Dim FilePath As String
Dim FSO As Object
FileName = ThisWorkbook.Name
Set FSO = CreateObject("Scripting.FileSystemObject")
FileName = FSO.getbasename(FileName)
FilePath = ThisWorkbook.Path & "\"
Worksheets("注文書").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=Range("G11").Value & "." & Range("J11").Value & "." & Format(Range("N2").Value, "yymmdd") & "." & Range("D15").Value & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
No.1ベストアンサー
- 回答日時:
以下のようにしてください。
C:\sampleへ出力する例です。
---------------------------------------
Const OutPath As String = "C:\sample"
Dim FileName As String
FileName = Range("G11").Value & "." & Range("J11").Value & "." & Format(Range("N2").Value, "yymmdd") & "." & Range("D15").Value & ".pdf"
Worksheets("注文書").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=OutPath & "\" & FileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
---------------------------------------
印刷に関係ない個所は削除しています。
(Set FSO = CreateObject("Scripting.FileSystemObject")等)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Excel(エクセル) このコードに追記事項の仕方を教えて下さい。 以下のコード内容に出てくる。セルH3が空白の場合、エラー 4 2023/08/03 00:22
- Excel(エクセル) 【VBA】PDF作成のコードでコンパイルエラーになってしまいます。 10 2023/02/07 19:11
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Excel(エクセル) エクセルシートをVBAでpdfで保存したい 2 2022/06/27 10:17
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでほかのアプリケーシ...
-
Corel Digital Studioの動画をS...
-
VBAで、強制保存してブックを閉...
-
コマンドプロンプトでデスクト...
-
【Excel VBA】自動的にバックア...
-
Perlで、保存フォルダを指定す...
-
ExcelVBAでデスクトップのPATH...
-
VBScriptで日本語が変です
-
webページの特定の部分だけ消し...
-
vbaでIEの名前を付けて保存(A)...
-
読み取り専用ファイルを上書き...
-
onedriveで同期解除をしたら、...
-
マイドキュメントのフォルダの...
-
OneDriveアンインストール方法
-
沢山のフォルダにあるファイル...
-
if文の条件に関数が入ってる場...
-
copyコマンドについて
-
ファイルの保存をOnedriveのク...
-
ファイルのプロパティの属性の...
-
USBデータの消失
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
読み取り専用ファイルを上書き...
-
Excel VBAでほかのアプリケーシ...
-
Corel Digital Studioの動画をS...
-
コマンドプロンプトでデスクト...
-
Excel VBAで作成したマクロをxl...
-
エクセルで「名前を付けて保存...
-
ExcelVBAでデスクトップのPATH...
-
VBA メモ帳の上書き保存がしたい
-
VBAで、強制保存してブックを閉...
-
irvineを利用してVBAからダウン...
-
VBScriptでのSaveAsについて
-
webページの特定の部分だけ消し...
-
VBScriptで日本語が変です
-
Pivot table で集計されたデー...
-
AccessVBAでレポートをPDFで出力
-
vbaでIEの名前を付けて保存(A)...
-
ファイルのダウンロード保存先...
-
エクセル:マクロ:保存時に連...
-
htmlから取り込んだ を消...
-
VBAでPDF作成をしたあと、指定...
おすすめ情報