【実行時エラー1004】 ExcelアドインVBA 特定PCだけエラー

Question

VBAでPDFを自動生成するプログラムを
Excelアドインファイルにして10台のPCで使用しています。

10台のPCのうち　１台だけこのアドインを使用するとエラーが発生しています。

他のPCは正常にPDF生成ができているので、プログラムではなく
ExcelやPCの環境が悪さをしていると考えています。

やったこと
VBAプロジェクトオブジェクトモデルへのアクセスを信頼する」をチェック

解決の糸口や、調べる際の適切な検索ワードを教えて頂けますと幸いです。
よろしくお願い致します。

エラーの詳細は以下の通りです。

VBAのエラー個所は以下です

コード
FNAME1 = FPASS & LABE(0) & "_" & GOU1(k1)
ws1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FNAME1 & ".pdf" '選択したシートをPDF出力

エラーウィンドウは以下です

Comments

[itagagaki]

ファイルを保存するフォルダのアクセス許可設定は大丈夫ですか？

[riko]

質問ありがとうございます！
保存先のフォルダには手動でPDF保存することができます

Answer 1

解決　

結論：ファイルパスの指定に問題があった。

10台すべてのPCは社内のネットワークサーバーに接続している
そのネットワークサーバーにある任意のフォルダにPDFを保存　
という流れ。

１台のPCだけネットワークサーバーへのアクセスルートが異なっていた。

どのPCも同一のフォルダにアクセスできるが
その時のファイルパスが実は異なっていた

という部分に気付かなかった

Answer 2

もし、ファイルが存在しないのにエラーが発生しているなら、ファイルシステムが、アクセス拒否をしているために発生している症状だろうとおもいます。

また、ファイルアクセス権は、適切に割り当てられているなら、このような過去事例を疑って見てはいかがでしょうか？

フォルダ内のファイルのコンテンツタイプを指定している。という事例でした

ファイルのコンテンツタイプの指定したからといって、異なるタイプだとアクセスが拒否するわけでわありませんが、バックグラウンドサービスとして動くファイルのインデクサーの動きや、シェルの挙動が変わるので、意図しないファイルロックを誘発させている場合があります。

過去事例では、このような内部処理にまで踏み込んでいませんでしたが、可能性として、ファイルロック状態を生み出していた可能性が高いだろうとおもいます。

Comments

[riko]

ご回答ありがとうございます。

ファイルパスの指定に問題があり
そこを修正したら解決しました。

詳細は自己解決欄に書きましたのでご参考ください。

丁寧に教えて頂き本当にありがとうございます！