Dim objXL, objWB, objWS
Dim strWorkBookName as string
strWorkBookName="C:\workbook.xlsx"
Set objXL = CreateObject("Excel.Application")
Set objWB = objxl.workbooks.open(strWorkBookName)Have to make sure office reference is checked. Thanks Jason E. Bruce [Description: Description: FHC_e-mail_art] 155 Memorial Drive P.O. Box 3000 Pinehurst, NC 28374 DIRECT: (910) 715-5355 E-MAIL: [email protected]<mailto:[email protected]> www.firsthealth.org<http://www.firsthealth.org> Working Together, First in Quality, First in Health P Please consider the environment before printing this e-mail. From: [email protected] [mailto:[email protected]] Sent: Monday, October 07, 2013 10:56 AM To: [email protected] Subject: [MARKETING] [talkbws] #SAFE# Open Excel Is there a better way to open excel or is this the only way? If Step = "OPEN EXCEL" Then If Rule("") Then Shell_ """C:\Program Files\Microsoft Office\Office12\EXCEL.EXE""" Activate "Microsoft Excel", True Connect "Microsoft Excel", stWindows Step = "RUN MACRO" Exit Sub Thank you, Jesus Lopez System/Financial Analyst SMU Department Dignity Health 3033 N. 3rd Avenue Phoenix, AZ 85013 602.307.2754 (O) [email protected]<mailto:[email protected]> Caution: This email is both proprietary and confidential, and not intended for transmission to or receipt by any unauthorized persons. If you believe that is has been received by you in error, do not read any attachments. Instead, kindly reply to the sender stating that you have received the message in error. Then destory it and any attachments. Thank you. --- To post a message to this list, send mail to: [email protected]<mailto:[email protected]> You are currently subscribed as: [email protected]<mailto:[email protected]> Unsubscribe in the customer center on our website: http://www.bostonsoftwaresystems.com/Customers/ListServe.aspx --- To post a message to this list, send mail to: [email protected] You are currently subscribed as: [email protected] Unsubscribe in the customer center on our website: http://www.bostonsoftwaresystems.com/Customers/ListServe.aspx
<<inline: image001.jpg>>
