実現したいこと
- 作業中のブックと同じファイル内にある、名前に「テスト」が入った別ブックを開きたい
発生している問題・エラーメッセージ
実行エラー ‘1004’ 申し訳ございません。C:¥Users¥Desktop¥ファイル¥が見つかりません。名前が変更されたか、移動や削除が行われた可能性があります。
該当のソースコード
VBA
1 2Sub GetActiveWorkbookPath() 3 Dim sBookName As String 4 Dim sDir As String 5 Dim sPath As String 6 Dim wb As Workbook 7 8 sBookName = Dir(“*テスト*") 9 10 sDir = ThisWorkbook.Path 11 12 sPath = sDir & "¥" & sBookName 13 14 Workbooks.Open FileName:=sPath, ReadOnly:=True, UpdateLinks:= 0 15 16End Sub 17
試したこと
特にファイル名の変更や移動はおこなっていない為、、コードに修正がありましたらご教示いただきたいです。
なおエラーは下記の場所で出ています。
Workbooks.Open FileName:=sPath, ReadOnly:=True, UpdateLinks:= 0
補足情報(FW/ツールのバージョンなど)
Windows、Excelバージョン2008です。

回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。