エラー1004 PDFの保存ができません。解決方法を教えてください。

Question

実行時にエラー1004　ドキュメントの保存ができませんでした。ドキュメントが開いているか、保存時にエラーが発生した可能性があります。

と出ます。
以下お願いいたします。

ちなみにVBAド素人がちまちまやっています。
他にもおかしい部分がありましたらご教示願います。

Sub ボタン1_Click()

Dim StartTime, StopTime As Variant
'ここから実行時間のカウントを開始します↓コメントアウト中
'StartTime = Time

Application.ScreenUpdating = False
 Dim Result As Long
 Dim camname
 
 Dim PSheet As String
 PSheet = "テンプレ②"
  camname = Worksheets(PSheet).Cells(3, 5)  '大学名
 
    Result = MsgBox("本当にあってる？？？？？", vbYesNo + vbExclamation)
    If Result = vbYes Then
    
     Dim lastrow As Long
     Dim i As Long
     lastrow = Range("d65536").End(xlUp).row
        For i = Range("D4") To lastrow      '始まりから終わりまで繰り返し
            
              ActiveSheet.ExportAsFixedFormat _
          Type:=xlTypePDF, _
          fileName:=ThisWorkbook.Path & "_" & Date & camname _
              & ".pdf", _
          Quality:=xlQualityStandard, _
          Includedocproperties:=True, _
          IgnorePrintAreas:=False, _
          openafterpublish:=False
         
        Next i

  MsgBox "掲示が【" & ThisWorkbook.Path & "】フォルダ内に格納されました。"

 Else
        ''[いいえ]がクリックされたときの処理
    End If

End Sub

Qchan1962 · Accepted Answer

こんにちは、For i Nextについては Range("D4")に数値(1以上）が入っていると想定します。
空欄、文字、０などがあれば、エラーです。Cells(0,"E")は存在しない為。

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
fileName:=ThisWorkbook.Path & "\" & Date & camname _
& "_" & Worksheets(PSheet).Cells(i, "E").Value & ".pdf", _
Quality:=xlQualityStandard, _
Includedocproperties:=True, _
Ignoreprintareas:=False, _
openafterpublish:=False

ついて、"\"を付けたのはOKです。もう一つ　DateはDate型なのでStringに変更する必要があります、

該当部分は、Filename:=ThisWorkbook.Path & "\" & Format(Date, "yyyymmdd") & camname _

また、Worksheets(PSheet).Cells(i, "E").Value　についてもString型である必要があるので.Textにした方が良いでしょう。

Qchan1962 · Answer

>これはdateのエラーに対する対処法であってますか？？
Date型などに限定する事ではないのですが、他のバージョンや環境で作成したVBAで起きる可能性がある参照不可の事例の対処です。
通常、コンパイルエラーですがレアケースもあるかと思い回答に入れました。

＞やはりないと不便なのでFormat(Date…を入れました！日付も入り、ちゃんと動きます！
良かったと思います。

＞別シートに同じボタンを作成したところ、保存先が変わってしまいました。
基本的に機械はうそをつかないと言うのが私の経験です。何か原因があると思います。または、
根本的な不具合の可能性を除外しませんが、これについては、改めてスレッドを上げるなどした方が良いと思います。

アドバイスとして、その現象を検証するには、環境などを改めて示されたほうが良いと思いますし、同じコードを
実行しているかなどを検証して示した方が良いでしょう。
VBE　表示　　ローカルウィンドウで　コードにブレークポイントを設置したり、F8などでステップインなどするのも検証方法として挙げられます。
漠然とした現象だけを質問されても誰も質問を質問で返すしかなく、進まないと思います。

申し訳ありませんが、このスレッドに関しては、解決したものと理解しますのであしからず。
また、追加の質問に関しましても、質問を拝見しタイミングが合えば、回答、検証等のアドバイスが
出来ればと思っていますので、よろしくお願いいたします。

Qchan1962 · Answer

#4 参照不可：が存在していれば、そのチェックボックスを外して試してください。（コンパイルエラーでないのでこっちで良いと思いますが、）
追加：参照不可：が存在していれば、そのチェックボックスを外してから再度チェックを入れ試してください。
必要のない参照設定の場合は、外すだけでOKです。

Qchan1962 · Answer

＞別シートに同じボタンを作成したところ、保存先が変わってしまいました。
別シートとは、別ブックですか？別ブックであれば、そのブックは、保存されていますか？
ThisWorkbook.Pathは、VBAが実行されているブックの保存先です。

＞date部分を失くしたら動くようになりました！
dateを使用しないならそれでよいと思いますが、通常 Format(Date・・・でファイル名に入れられるはずです。
推測するに、Range("d65536")とあるので旧バージョンのExcelではないでしょうか？
もしそうであれば、dateでエラーが発生している可能性を考えます。
VBEのツールから参照設定を見てください。参照不可：が存在していれば、そのチェックボックスを外して試してください。

GooUserラック · Answer

もしかしたら１ページに収まらないので、同じ名前の物が出来てしまっていませんか？

GooUserラック · Answer

同じ名前のPDFを作る事になっていますよね?
fileName:=ThisWorkbook.Path & "_" & Date & camname _
& i & ".pdf"
とかにしたらどうなりますか?

エラー1004 PDFの保存ができません。解決方法を教えてください。

こんにちは、For i Nextについては Range("D4")に数値(1以上）が入っていると想定します。

>これはdateのエラーに対する対処法であってますか？？

#4 参照不可：が存在していれば、そのチェックボックスを外して試してください。

＞別シートに同じボタンを作成したところ、保存先が変わってしまいました。

もしかしたら１ページに収まらないので、同じ名前の物が出来てしまっていませんか？

同じ名前のPDFを作る事になっていますよね?

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング