| |
こんにちは。
End With の記述場所がおかしかったようですね。失礼しました。
下記のようにすべきでした。
Sub FileOpen2()
'-------------------------------------------------------------------------
Dim InputFile As String
'-------------------------------------------------------------------------
InputFile = "aaa.prn"
With Application.FileSearch
.NewSearch
.LookIn = ThisWorkbook.Path
.SearchSubFolders = False
.Filename = InputFile
.MatchTextExactly = True
.Execute
'↓以下も個数を返すうえでは必要ないですね
' If .Execute() > 0 Then
' Open InputFile For Input Access Read As #2
' Else
' InputFile = Application.GetOpenFilename _
' (Title:="ファイル開く", _
' FileFilter:="全てのファイル(*.*),*")
' If InputFile = "False" Then Exit Sub
' Open InputFile For Input Access Read As #2
' End If
'↑
' End With 'ここではなかったですね (^^;
'-------------------------------------------------------------------------
'Call ステートメントに続きます
MsgBox InputFile & "は" & .FoundFiles.Count & "個あります"
'今回は例としてこれで
'-------------------------------------------------------------------------
End With 'こっちの誤りでした
Close
End Sub
作成しているマクロ自体 FileOpen の方法で既に出来上がっており，こちらのコードでファイル検索の意図が伝わると思い込んでいました。
検索数で完全一致したかどうかを確認する材料として例をあげたのですが，いけない質問の仕方だったのですかね？
（実はXXXなんですが，と質問を発展させる気は全く無かったのですが･･･）
コードを省略して掲載するのはボリュームの問題等もあり致し方ないことだと思っているのですが，質問するのも難しいものですね！
VBAの勉強以外に他の方の質問の仕方についても気にしながら，今後もこちらのサイトを利用していきたいと思います。
今後ともよろしくご教示願います。
|
|
多摩川
- 07/6/14(木) 17:53 -
