Excel Automation - No Find Dialog

wey97 · #1 (**permalink**) 02-28-05, 10:40

I can use the following code in Word to show the Edit->Find dialog box:

Code:

Dim wordApp As New Word.Application
With wordApp
	.Visible = True
	.Documents.Open strFile
	.Dialogs(wdDialogEditFind).Show
	.ActiveDocument.Close
	.Quit
Wend
Set wordApp = Nothing

There is no xlDialogEditFind index though. How can I search with the Excel Edit->Find dialog?

DavidCoutts · #2 (**permalink**) 03-02-05, 11:55

Application.Dialogs(xlDialogFormulaFind).Show

but i cant get it to work very well why dont you build your own,

i have been looking at using the windows api but the find dialog seems not to work to well as it is modleless

wey97 · #3 (**permalink**) 03-02-05, 12:13

Yeah the problem with xlDialogFormulaFind is it is not the same as the Edit->Find Box as if you press Ctrl->F.

Theres a workaround here: http://www.excelbanter.com/q-t_13199...alog-box-.html

I found the easiest thing (although ugly) is to SendKeys "^f"

Internet Services

Web Development

Digital Marketing

Consumer Tech