VBA フルパス、ファイル名制限

Question

ファイルを開くダイアログにて
ファイルを選択してリストボックスに表示させる際に、特定のファイルだけ
「【実行時エラー53】そのようなファイルはありません」
が出て来ました。
デバッグした際に
Filename = Dir(Target)
でエラーが出ていることがわかりました。
Dir関数の制限でファイルのフルパスが長すぎてエラーがでているようなのですが(おそらく)
どうにかこのエラーを解決してファイルをリストボックスに表示させる方法はありますか？
ちなみにファイルはありませんと出ていますが
ちゃんと存在しています。
よろしくお願い致します

Private Sub btn_FileOpen_Click()
   Dim OpenFileName As Variant, Target As Variant
   'カレントディレクトリを指定
   ChDrive "C"
   ChDir "C:\test"
   OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
                                              MultiSelect:=True)
   If IsArray(OpenFileName) Then
       With Me.BookInput
         
'リストボックスにファイル名を表示
           For Each Target In OpenFileName
               Filename = Dir(Target)
               Pathname = Replace(Target, Filename, "")
               .AddItem ""
               .List(BookInput.ListCount - 1, 0) = Filename
               .List(BookInput.ListCount - 1, 1) = Pathname
           Next Target
           'ファイルのあるフォルダーのパスをラベルに表示
           Me.lblPath.Caption = .List(0, 1)
       
       End With
   Else
       MsgBox "キャンセルされました"
   End If
End Sub
Private Sub btn_FilePrint_Click()
   Dim wb As Variant
   Dim Fn As Variant, i As Long
   
   With Me.BookInput
       For i = 0 To .ListCount - 1
           Set wb = Workbooks.Open(.List(i,1) & .List(i,0),ReadOnly:=True)
           wb.PrintOut 'ブック全体を印刷
           wb.Close
       Next
 End with
Application.ScreenUpdateing = True
End Sub

Answer 1

ファイルの名前が長過ぎる等でエラーが返却されているものと思われます。

FileSystemObjectオブジェクトを使われてはどうですか。
FileSystemObjectオブジェクト - FileExistsメソッド

Answer 2

自力で分解すればよろしいかと。

Filename = Mid(Target, InStrRev(Target, "\") + 1)

ただし本当にエラーの原因がこれなら、ってことですが。

Comments

[退会済みユーザー]

ttyp03さん〉
回答ありがとうございます
Filename = Mid(Target, InStrRev(Target, "\") + 1)
を試したさいにエラーはなくなりました。

Answer 3

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

Comments

[退会済みユーザー]

hatena19さん〉
回答ありがとうございます

.AddItem Mid(Target,InstrRev(Target,"\")+1)
で試してできました。

FileSystemObject の GetFileNameメソッドも試してみます。

端末が違いますが
同一人物です。

すみませんまだ確認してないです
これからツリービューを使ったファイルの選択方法を学習してみます。

Answer 4

ファイル名を取るだけなら、ShortPathにしてはいかがでしょう。

参考：VBAで長いパスが扱えないと思ったら

Comments

[sazi]

カレントディレクトリは"C:\test"となっていますから、パスの問題では無いかと。

[ladybird]

あ、たしかに。長いのはファイル名の可能性が高いですね

[sazi]

解決したのは、パスをカットして解決したみたいですね。
失礼しました。

[ladybird]

いえいえ。調べ直すきっかけとなり勉強になりました。