| |
>▼すいまーひろ さん
>ひょっとしたら、この部分の記述は
>
> If InStr(myname, ws1.Range("F2").Value) > 0 Then
> 'もし myname に ws1.Range("F2").Value が含まれていたら
>
>ですむとか？
という疑問は、こういう風に書けないか？という疑問です。
（途中から）
ws1.Range("F3") = "検索中です。しばらくお待ち下さい。"
k = 1
Path = "Y:\DB\流用図\F" & ws1.Range("E2")
For Each File In FSO.GetFolder(Path).Files
Open Path & "\" & File.Name For Input As #1
Line Input #1, zuban '１行目
If Not EOF(1) Then
Line Input #1, myname '２行目
If InStr(myname, ws1.Range("F2").Value) > 0 Then
ws1.Range("A" & k) = zuban
ws1.Range("B" & k) = myname
ws1.Range("C" & k) = Left(File.Name, Len(File.Name) - 4)
ws1.Cells(k, 1).Select
k = k + 1
End If
End If
Close #1
Next File
ws1.Range("F3") = "３列目をダブルクリックすると、図面が見れます。"
|
|
kanabun
- 11/11/1(火) 17:00 -
