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

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

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/02/02 21:04:29
  • 終了:2013/02/02 23:11:15

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13537ベストアンサー獲得回数11982013/02/02 21:58:37

ポイント300pt
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")の箇所を参照したいセル もしくはシートを付与、変更してください。

id:japan-nan

回答いただきありがとうございました。
おかげさまで希望通りでした。
ただ、
保存先ですが、ドキュメント内に保存されました。

2013/02/02 23:10:44

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません