Excelファイルを開くと「'PERSONAL.pdf'のファイル形式と拡張子が一致しません。」という表示が出てきます。

Question

どのExcelファイルでも同じことになります。

どのExcelファイルの拡張子(.xlsx)(.xism)(.xls)でも出ます。

Excelアプリ自体を開いても出ます。

「はい」にすると、開こうとした「〇〇.xlsx」ファイルと「PERSONAL.pdf」という文字化けしたファイルの両方が開きます。

「いいえ」にすると、開こうとした「〇〇.xlsx」ファイルだけ開きます。

「PERSONAL.pdf」ファイルを閉じようとすると保存するか聞かれます。

「保存」にしても「〇〇.pdf」として保存されません。（「〇〇.xlsx」に上書き保存されている感じです）

このVBAを実行したら出るようになりました。

（そしてPDFファイルで保存できませんでした）

　　　Sub PDFを同じフォルダに同じ名前で保存()

　　　ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, \_ 

　　　Filename:=Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".")) & "pdf" 

　　　End Sub

どうしたらこの表示が出なくなりますか？

Excel2019

Windows11

Answer 1

ago_733さん、こんにちは。

個人用マクロファイルで 「PDFを同じフォルダに同じ名前で保存」するコードを実行した為、個人用マクロファイル PERSONAL.XLSB が格納されている XLSTART フォルダーに 「PERSONAL.pdf」が作成されて保存された状態と思われます。

フォルダーのアドレスバーに以下の文字列をコピペして Enter して XLSTART フォルダー の場所（隠しファイル）を開いて、「PERSONAL.pdf」を削除します。

%appdata%\Microsoft\Excel\XLSTART

エクスプローラーで「Windows の隠しファイルと隠しフォルダを表示する」設定にしてから、XLSTART の場所を開く事も出来ます。

C:\Users\＜ユーザー名＞\AppData\Roaming\Microsoft\Excel\XLSTART

---

---

＜元のコード＞

Sub PDFを同じフォルダに同じ名前で保存()

　　　ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

　　　Filename:=Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".")) & "pdf"

End Sub

個人用マクロブック（PERSONAL.xlsb）上で ThisWorkbookとすると「ThisWorkbook」＝「PERSONAL.xlsb」となってしまいますので、ThisWorkbook を 現在表示しているExcelブック を指す ActiveWorkbook に直すと良かったです。

↓

＜修正後＞

Sub PDFを同じフォルダに同じ名前で保存()

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, \_ 

    fileName:=Left(**ActiveWorkbook**.FullName, InStrRev(**ActiveWorkbook**.FullName, ".")) & "pdf" 

End Sub

Answer 2

Makapuさん

ご教示いただきありがとうございます。

年始の休みの為、返信とお礼が遅くなり申し訳ございません。。。

おかげさまで、フォルダーの見つけ方を詳細に教えていただけたので「PERSONAL.pdf」を見つけることができ、無事に「拡張子が一致しません」という表示が出てこなくなりました。

また、教えていただいたコードを入れると、当初希望していた「VBAを実行してPDFファイル形式の保存」まですることができました。

とってもとっても嬉しいです！！本当にありがとうございました！！

Makapuさんに心より感謝申し上げます。

Answer 3

エクスプローラーで

personal.pdf

を探し、それを削除する。

Answer 4

VBAの公式サポート場所は海外となっています。

VBA(マクロ)に関しては、海外コミュニティで聞いて下さい。

・Stack Overflow(VBA)

　　[VBA プログラミングに関する質問]

　　Stack Overflow には、説明的なタイトル、完全で簡潔な問題ステートメント、問題を再現する
　　ための十分な詳細の要求などのガイドラインがあることに注意してください。
　　機能要求または過度に広範な質問は、トピック外と見なされます。
　　新しいユーザーの場合は、Stack Overflow ヘルプ センター にアクセスして詳細を確認して下さい。

※ 閲覧者・回答者が多い公式サポートサイトをお勧めします。

　 英語で質問を送信してください。