Results 1 to 3 of 3
  1. #1
    Join Date
    Mar 2003
    Posts
    130

    Question Unanswered: Excel Automation - No Find Dialog

    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?

  2. #2
    Join Date
    Jan 2004
    Location
    Aberdeen, Scotland
    Posts
    1,067
    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

  3. #3
    Join Date
    Mar 2003
    Posts
    130
    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"
    Last edited by wey97; 03-02-05 at 13:24.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •