Help! I need an alternative to "Send Keys"

[jreeper]

I inherited a number of Excel projects and the previous developer open a workbook and delete all but a few sheets... the Send Keys will often not reach the dialog box in time to accomplish the task. I am looking for a way similar to access to set the warning dialog off and then turning it back on after completion... is there a way?

[Al Chara]

Before the sendkeys you can make the macro wait, by using the ontime function.

[jreeper]

I didn't want to use send keys... too difficult to guarantee success... but FYI I found the "Application.DisplayAlerts = False" is what I needed. Thanks

[Mark O'Brien]

I don't know if you'd be interested, but you don't have to open a worbook to delete sheets from it. This would get rid of the stupid SendKeys command (I have a semi-irrational hatred of that command).

This example will open a workbook in C:Temp called "Book2.xls" it will then delete sheet2 from that workbook, assuming that sheet exists.

Public Sub main()



  Dim XL As Excel.Application

  Dim WBK As Excel.Workbook

  

  

On Error GoTo ERR_MAIN

  Set XL = CreateObject("Excel.Application")

  Set WBK = XL.Workbooks.Open("C:TempBook2.xls")

  

  XL.DisplayAlerts = False

  WBK.Sheets("Sheet2").Delete

  XL.DisplayAlerts = True

  

ERR_MAIN:

  WBK.Close savechanges:=True

  Set XL = Nothing



End Sub

I hope this is of use.

EDIT:: Obviously there are too many backslashes in the path definition, but you can remove those. That's a known bug of this message board.
_________________
[b] Mark O'Brien

[ This Message was edited by: Mark O'Brien on 2002-04-05 13:32 ]

[ This Message was edited by: Mark O'Brien on 2002-04-05 18:07 ]

[jreeper]

Thanks Mark... that should come in very handy.