|
46745の福益です。
闇雲に次のようなことをやってみたのです。
”Sagyou" というブックの中の選ばれたシートでプログラムを動かそうとしたのです。
このあとに主プログラムをコールしたのですが、シートは変わりませんでした。
Sub Search()
dfilename = ""
With Application.FileSearch
.NewSearch
.LookIn = "D:\xlsdata"
.SearchSubFolders = True
.Filename = "Sagyou"
.MatchTextExactly = True
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
res = MsgBox(.FoundFiles(i) + "を選択しますか?", vbYesNo)
If res = vbYes Then
dfilename = .FoundFiles(i)
Workbooks.Open (dfilename)
Call cal
Exit Sub
End If
Next
Else
MsgBox "検索条件を満たすファイルはありません。"
End If
End With
End Sub
|
|