| |
▼太郎 さん：
>FifileSearchで、Filename = "?-*_??-*.xls"と指定しました。
>前に"過去情報"が付くﾌｧｲﾙは処理対象から外したいのですが、
>Filename = "?-*_??-*.xls"の指定ではだめなのでしょうか？
前に"過去情報"などあっても、含んで FoundFiles コレクションに格納され
てしまいますね。
FoundFileをLoopして処理をするときに 再度
＞ If Dir(.FoundFiles(i)) Like "?-*_??-*.xls" Then
のように、Like演算子で判別したらどうでしょう。
Sub test1()
Dim i As Long
With Application.FileSearch
.NewSearch
.LookIn = "D:\(Data)"
.Filename = "?-*_??-*.xls"
For i = 1 To .FoundFiles.Count
If Dir(.FoundFiles(i)) Like "?-*_??-*.xls" Then
'処理
End If
Next
End With
MsgBox "処理終了"
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
