人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ExcelVBAでPDF発行後の保存ファイル名に関して、
別シートのセル値を参照し、日付を入れて保存したい。
例:○○○会社_発注書_20130131.PDF
また、保存先はログインしているデスクトップ上
--------------------------------------------------
Sub MacPDF()
Sheets(Array("発注書", "発注請書")).Select
Sheets("発注書").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\○○○\Desktop\DDDD.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub

ソース付きでよろしくお願いします。

●質問者: japan-nan
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●300ポイント ベストアンサー
Sub MacPDF()
Dim s As String
Sheets(Array("発注書", "発注請書")).Select
Sheets("発注書").Activate
s = "○○○会社_発注書_" & Format(Range("A1"), "yyyyMMdd") & ".pdf"



ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
s, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub


質問にあるソースが動く前提で修正しました。

Range("A1")の箇所を参照したいセル もしくはシートを付与、変更してください。


japan-nanさんのコメント
回答いただきありがとうございました。 おかげさまで希望通りでした。 ただ、 保存先ですが、ドキュメント内に保存されました。
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ