質問: True End Sub ```
回答: > > Dir関数の制限でファイルのフルパスが長すぎてエラーがでているようなのですが(おそらく) > > > .AddItem Mid(Target,InstrRev(Target,"\")+1) とすればいいでしょう。 もちろん FileSystemObject の GetFileNameメソッドを使ってもいいですが。 Office TANAKA - Excel VBA FileSystemObject[GetFileNameメソッド] ちなみに、 提示のコードは VBA - VBAで複数のExcelファイルを印刷するマクロについて(131198)|teratail での私の回答のコードとまったく同じですが、FRIXIONさんと同一人物ですか? もしそうなら、下記でツリービューを使ってサブフォルダーも含む複数ファイルを選択できるサンプルのコードを提示してますが、それはチェックしてますか。 VBA - VBA フォームにウィンドウズ エクスプローラ(132232)|teratail