| |
>Sub FileOpen2()
>'-------------------------------------------------------------------------
> Dim searchFile As String
> Dim InputFile As String
> Dim fileCounter As Long
>'-------------------------------------------------------------------------
> With Application.FileSearch
> .NewSearch
> .LookIn = Thisworkbook.Path
> .SearchSubFolders = False
> .FileName = "aaa.prn"
> .MatchTextExactly = True
> If .Execute() > 0 Then
> Open InputFile For Input Access Read As #2
↑
InputFileの中身が不明。
> 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 & "個あります"
↑
何のために「.」が、ついているのか不明。
こんな場所でいいのかな？
> '今回は例としてこれで
例として出すとろくな結果が返ってこない方が多いです。
まともなコードを提示してない方が多い、ろくなデータを提示してない方が多いので....
>'-----
> Close
>End Sub
|
|
Jaka
- 07/6/13(水) 14:46 -
