スキルアップ・問題解決なら、モーグにおまかせ！

引用:
フォルダ内のPDFファイルの一覧を取得して
Replace関数やワークシート関数Substituteを使用して表示できない文字を削除したいが
置換対象の文字列がShift-JISの場合の指定方法や検索方法を教えてください

 
=SUBSTITUTE(A1,CHAR(128),"")
等で良いでしょう。
 
 
 
0x80 の文字 との事ですが、そのファイルは どんな OSで作成されたのでしょうか？
 
0x80 は 制御文字であり Windowsの場合、単体では、ファイル名に使用できません。
あるとすれば、0x80 文字コードの一部として持つ様な特殊文字をファイル名に指定したのでしょうか？
 
再現できないので、確認のしようもありませんが、
エクスプローラー上からそのファイル名を修正する事は出来ますか？
 
できないのであれば、
本来想定していない 0x80 を含むファイル名を VBAのオブジェクトから操作するのは
難しいかもしれません。
そんな場合は元の OS システム側でファイル名を変える方法を探った方が早いと思います。

引用:
Shift-JISの文字コードで表記できない文字0x80

Windows-1252 におけるユーロ記号（€）。
 

引用:
PDFのプレビューが出来ない

その文字は Windows におけるファイル命名規則において使用できないわけではなく、
また Adobe Acrobat ではその文字が含まれている PDF ファイルも開くことができるのですが、
PDF ファイルのプレビューを行なっているアプリケーションは何なのでしょうか。
 

引用:
EXCELのVBAを使用

引用:
表示できない文字を削除したい

引用:
置換対象の文字列がShift-JISの場合の指定方法や検索方法

その文字だけを狙い撃ちしたいのであれば Chr(128) の戻り値を
空文字列に置換なさればよろしいでしょう。
 
-----------------------------------------------------------------
 
NewFileName = Replace(OldFileName, Chr(128), "")
 
-----------------------------------------------------------------
 

引用:
Excel 2021

また、「印刷できない文字」をまとめて削除したいのであれば、
ワークシート関数の CLEAN でも一応可能でしょう。
 
-----------------------------------------------------------------
 
NewFileName = WorksheetFunction.Clean(OldFileName)
 
-----------------------------------------------------------------