Thread: SendKey commands
View Single Post
  #2 (permalink)  
Old July 6th, 2003, 02:30 PM
alex_read alex_read is offline
Authorized User
  
Join Date: Jul 2003
Posts: 35
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via MSN to alex_read
Default
Hi Charlie, try this method as it'll be more efficient & you won't have to rely on sendkeys: :)
Code:
Dim objXLApp
Set objXLApp = CreateObject("Excel.Application")

objXLApp.Workbooks.Open "C:\Book1.xls"
objXLApp.visible = true
objXLApp.DisplayAlerts = False

objXLApp.Run "Book1.xls!Macro1"

objXLApp.Workbooks(1).Save
objXLApp.Workbooks(1).Close
objXLApp.DisplayAlerts = True
objXLApp.Quit
Reply With Quote