[[20210901125055]]　『同じフォルダ内のエクセルファイルを開く』（初手端歩）　ページの最後に飛ぶ

『同じフォルダ内のエクセルファイルを開く』（初手端歩）

実行ファイルと同じフォルダの同じ階層にあるエクセルファイルを開くためのマクロを組みたいのですが、上手くいかず、詳しい方にご教授願いたいです。

「実行時エラー'1004' 申し訳ありません。ファイル名が見つかりません。名前が変更されたか、移動や削除が行われた可能性があります。」
の表示が出てしまいまして・・・。

開きたいエクセルファイルの名前は「i組t番」という名前で、iは１～３の半角、tは１～１１の半角です。

　Sub エクセルを開く()

　Dim i As Long
　Dim T As Long
　i = Cells(1, 1).Value
　T = Cells(1, 2).Value

　Dim PATH As String
　Dim FLNAME As String
　PATH = "C:\Users\Desktop\クラブ"
　FLNAME = Dir(PATH & "i部t番.xls")

 　With Workbooks.Open(PATH & "\" & FLNAME).Sheets(1)

　　　（ここで開いたエクセルファイルに必要な操作をする）

　 End With

　End Sub

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

どこの行でそのエラーが出ているかわからないので確かなことは言えません

FLNAME = Dir(PATH & "i部t番.xls") の時点でエラーがでるかステップ実行で確認してください．

（no_name） 2021/09/01(水) 13:05

 ""の中はすべて文字と判断されるので
 "i部t番.xls"
 はそのままi部t番.xlsとみなされる。
 i & "部" & t & "番.xls"
 としてくれ。
 あとDir関数の中もWorkbooks.Openと同じようにPathとファイル名の間に\がいるのでは？
（ねむねむ） 2021/09/01(水) 13:06

丸被りしましたがそのまま。

エラーがでるときに「FLNAME」に何が格納されているかチェックしてみてはどうですか？
おそらく「""」になってしまってるとおもいますよ。

問題点は↓です

 × FLNAME = Dir(PATH & "i部t番.xls")
 ○ FLNAME = Dir(PATH & "\" & i & "部" & t & "番.xls")

（もこな２） 2021/09/01(水) 13:08

 あと
 >実行ファイルと同じフォルダの同じ階層にあるエクセルファイルを開く
 であるならば
 >PATH = "C:\Users\Desktop\クラブ" 
 は
 PATH = ThisWorkbook.Path
 でいいのでは？

（ねむねむ） 2021/09/01(水) 13:29

コメント返信：

[ 一覧(最新更新順) ]

[[20210901125055]] 『同じフォルダ内のエクセルファイルを開く』（初手端歩） ページの最後に飛ぶ

[[20210901125055]]　『同じフォルダ内のエクセルファイルを開く』（初手端歩）　ページの最後に飛ぶ