Open Excel Spreadsheet

sektor · #1 (**permalink**) August 13th, 2008, 06:41 AM

I got the following code. The workbook isn't opened.

Option Explicit

Dim objExcel
Dim objWorkbook

Set objExcel = WScript.CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\New_users.xls" )

Set objExcel = Nothing
Set objWorkbook = Nothing

jbinarao · #2 (**permalink**) June 28th, 2010, 11:13 PM

Would this work for you? You would not be limited to opening only XLS Files, but also DOC, PDF, TXT, MP3, EXE, etc:

Code:

Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")

'WScript.Echo "The next line of code runs the file."
objShell.Run "C:\Scripts\New_users.xls", 5, True

'WScript.Echo "The next line of code destroys the object."
Set objShell = Nothing

More details on the Run Method can be found here:
http://msdn.microsoft.com/en-us/libr...ky(VS.85).aspx