Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: Excel Dialogs xldialog.wbt
; ///////////////////////////////////////////////////////////////////// ; Winbatch OLE - Working with Excel's built-in dialogs ; script assumes you are working with a workbook that is not ; visible, but you might want to perform various tasks like ; moving a worksheet, or emailing the workbook/ ; rather than devising a custom control, or invoking an ; addition WB Extender, like Postie, your just make a call ; to a built-in Dialog ( there are a lot of them ) ; in the example, a blank workbook is created, but ; you could easily change the script to load one of your own ; Stan Littlefield, December 22, 2002 ; ///////////////////////////////////////////////////////////////////// xlDialogSendMail = 189 xlDialogWorkbookCopy = 283 DB = ObjectOpen("Excel.Application") DB.Visible = @FALSE DB.UserControl = @FALSE DB.DisplayAlerts = @FALSE oAPP = DB.Workbooks oXLS = oAPP.add ; for testing message("Testing Excel Dialogs", "I have a workbook, and I want to Move it") oDialog = DB.Dialogs( xlDialogWorkbookCopy ) oDialog.Show() ;must reset the Visible Property DB.Visible = @FALSE message("Testing Excel Dialogs", "Now I want to email it") oDialog = DB.Dialogs( xlDialogSendMail ) oDialog.Show() DB.Visible = @FALSE ObjectClose( oDialog ) ObjectClose( oXLS ) ObjectClose( oAPP ) DB.Quit ObjectClose(DB) BoxShut() Exit
Article ID: W15646
File Created: 2003:05:13:11:29:22
Last Updated: 2003:05:13:11:29:22