Open an excel spreadsheet in Excel the Application not IE

[229257]

I would like some vbscript code that is attached to a command button. It should open an Excel spreadsheet in Excel the application not within the browser.

 

[FengShui1998]

229257,



Here's a start:

Set objXL = WScript.CreateObject("EXCEL.application&quot
objXL.Visible = True

' ADD a workbook
objXL.WorkBooks.Add "C:\temp\MyExcel.xls"


fengshui_1998

 

[Guest_imported]

<INPUT id=button1 name=button1 type=button value=Button>

<SCRIPT LANGUAGE=&quot;VBScript&quot;>

sub button1_onclick()

' Launch Excel
dim app
set app = createobject(&quot;Excel.Application&quot

' Make it visible
app.Visible = true

' Add a new workbook
dim wb
set wb = app.workbooks.add

' Fill array of values first...
dim arr(19,9) ' Note: VBScript is zero-based
for i = 1 to 20
for j = 1 to 10
arr(i-1,j-1) = i*j
next
next

' Declare a range object to hold our data
dim rng
set rng = wb.Activesheet.Range(&quot;A1&quot.Resize(20,10)

' Now assign them all in one shot...
rng.value = arr

' Add a new chart based on the data
wb.Charts.Add
wb.ActiveChart.ChartType = 70 'xl3dPieExploded
wb.ActiveChart.SetSourceData rng, 2 ' xlColumns
wb.ActiveChart.Location 2, &quot;Sheet1&quot; 'xlLocationAsObject

' Rotate it around...
for i = 1 to 360 step 30
wb.activechart.rotation = i
next

' Give the user control of Excel
app.UserControl = true

end sub
</SCRIPT>