Excelのシート内の選択範囲のみをPDFにして指定フォルダに保存する際に、ファイル名として特定セルの値を自動で入るようにしたいのですが、試しにセルA1を指定した下記構文だとするとうまくいきました。
ところが、2行目のCells(1,1)を、本来指定したいセルにするためCells(5,6)やRange("E3:F3")に変更するとエラーが出ます。
ファイル名にするセル番地の指定方法が間違っているのだと思うのですが、見よう見まねでやっているため行き詰っております。お知恵をお借りしたくどうかよろしくお願いします。
[条件]
PDFにしたい範囲→セルA1:F60
PDF保存先→デスクトップの「PDFデータ」フォルダ
ファイル名にしたい値のセル→E3とF3を結合したセル
[セルA1の値をファイル名として指定した構文]
Dim TargetName As String
TargetName = Cells(1, 1)
Range("A1:F60").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\ユーザ名\Desktop\PDFデータ" & "\" & TargetName & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range("A1").Select
End Sub
No.2ベストアンサー
- 回答日時:
こんばんは
>ファイル名にしたい値のセル→E3とF3を結合したセル
とのことなので・・・
>TargetName = Cells(1, 1)
の部分を
TargetName = Range("E3").Text
に変えれば、ご質問のようになると思いますけれど。
(結合セルの場合、値は一番左上のセルの値となります)
お知恵ありがとうございます。
Range("E3")はやってみてダメだったのに、後ろに.Textを足すと嘘のようにやりたかったことが出来ました!!!
感動です。
PDF化は他にも展開したかったので本当に助かりました。
本当にありがとうございました<m(__)m>
No.3
- 回答日時:
VBAは詳しくないのでダメかもしれません。
As StringですがCells(5,6)もStringですか。一応確認。
Dim TargetNameを使わずに、
Filename:= _
"C:\Users\ユーザ名\Desktop\PDFデータ" & "\" & Cells(1, 1).value & ".pdf"
などではダメですか。
お知恵ありがとうございます。
やってみたのですが構文の中でエラーが出てしまい色々といじっています。
奥が深いです・・・(T_T)
No.1
- 回答日時:
こんばんは、
惜しい、、色々検証実験すれば、エラー部分は自己解決できそうですね。
結合セルの値は、一番上の一番左のセルアドレスになります。
結合セルのインデックス1のようにも出来ます。。
簡易な実験
Sub test() 'OK?
MsgBox (Range("E3").Value)
End Sub
Sub test1() 'エラー13 型がNG
MsgBox (Range("E3:F3").Value)
End Sub
TargetName = Cells(1, 1)で問題ないとの事なので、
他の構文は見ていません。
色々と試してみて力尽きてました。
惜しいと言っていただけて元気が出てきました!!
お知恵ありがとうございます。
なんかしっかりとVBAを勉強したくなっています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2023/01/20 14:36
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Excel(エクセル) エクセルシートをVBAでpdfで保存したい 2 2022/06/27 10:17
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を 3 2023/07/01 15:16
- Excel(エクセル) このコードに追記事項の仕方を教えて下さい。 以下のコード内容に出てくる。セルH3が空白の場合、エラー 4 2023/08/03 00:22
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
【Excel】指定したセルの名前でPDFを保存する【VBA】
Visual Basic(VBA)
-
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
-
-
4
エクセル マクロ 名前を付けて保存 PDF保存先指定 ファイル名任意+日付
Excel(エクセル)
-
5
excelで複数セル値を組合わせてファイル名にする方法
Excel(エクセル)
-
6
日付を入力したセルをファイル名にして保存するには
Excel(エクセル)
-
7
VBA PDF ファイル名をセルからつける
Excel(エクセル)
-
8
マクロ、PDFを任意のフォルダへ保存
Excel(エクセル)
-
9
エクセルVBAでTargetのセルに設定された「名前の定義」の取得方法は?
Excel(エクセル)
-
10
Excelでセル内の文字をファイル名にする方法と、下のSheet1タブを2列にする方法は?
Excel(エクセル)
-
11
EXCEL ページを指定してPDF出力するVBAを教えてください。
PDF
-
12
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
13
条件によって印刷するシートを変える方法 EXCEL-VBA
Excel(エクセル)
-
14
VBA PDFで保存するマクロで実行時エラー 1004
Visual Basic(VBA)
-
15
Excelマクロのエラーを解決したいです。
Visual Basic(VBA)
-
16
エクセルをPDFにし複数のユーザーが各自の指定のデスクトップフォルダに保存するVBAを教えてください
Excel(エクセル)
-
17
Excel VBA セルの値をファイル名にして保存するには
Visual Basic(VBA)
-
18
エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
Excel(エクセル)
-
19
セルの値を使ってファイルを保存
Excel(エクセル)
-
20
エクセルのチェックボックスを保護対象から外すには
Windows Vista・XP
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
中出しをするとお腹が痛い・・・。
-
麻疹風疹の抗体検査結果につい...
-
エクセルでエラーが出て困って...
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
至急!尿検査前日にオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
精子が黄色?
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
健否~書類の書き方~
-
甲状腺が腫れているが血液検査...
-
はしかの抗体検査は何科の病院...
-
テスターで断線を調べる方法教...
おすすめ情報