|
おはようございます。
>この中にある、FindFilesが検索画面を表示しているようですが、ここにファイルのパスや、検索対象名を入れるにはどうしたら良いでしょうか。
結局、Sendkeysを使う方法しか調べられませんでした。
きちんとテストすると、不安定かも・・・。
参照設定で「Microsoft Forms 2.0 Object Library」をチェックしてください
Option Explicit
Public Declare Function BringWindowToTop Lib "USER32" (ByVal hWnd As Long) As Long
'====================================================================
Sub main()
Call kensaku("excel","d:")
End Sub
'=======================================================================
Sub kensaku(ByVal flnm, Optional ByVal path)
'flnm 検索ファイル文字列
'path 検索パス
Dim ie As Object
Dim ok As Boolean
Dim dto As New DataObject
Dim wn As Object
Set ie = CreateObject("InternetExplorer.application")
With ie
.Visible = True
On Error Resume Next
.ExecWB 32, 0
.Quit
End With
DoEvents
With CreateObject("shell.application")
ok = False
Do Until ok
For Each wn In .Windows
DoEvents
If wn.locationname = "検索結果" Then
ok = True
Exit For
End If
Next
Loop
End With
BringWindowToTop wn.hWnd
With Application
dto.SetText flnm
dto.PutInClipboard
.SendKeys "^v", True
DoEvents
If Not IsMissing(path) Then
dto.Clear
dto.SetText path
dto.PutInClipboard
.SendKeys "%l", True
DoEvents
.SendKeys "^v", True
DoEvents
End If
.SendKeys "{ENTER}", True
DoEvents
End With
End Sub
簡単なテストしかしてませんが・・・。
ちょっと、使いづらいなあ・・・。
|
|