Скрипт для открывания Excel

[Rawkfist]

Ребята помогите со скриптом который бы открывал файл excel. Что то я туплю, но никак не получается.

responce=msgbox("Лист Excel",4+32,"Открыть лист Excel?")
if responce = 7 Then Wscript.Quit
Set WSHShell=WScript.CreateObject("WScript.Shell")

Я на верном пути? Помогите плиз

[Rawkfist]

Вообще чайник в скриптах. Или нужно с помошью Open Object делать?

[mshak]

если еще надо то держи пример, может поможет.

Код: Выделить всё

option explicit
Const xlCenter = -4108
dim excel_app, excel_wb, excel_sheet

Set excel_app = CreateObject("Excel.Application")
excel_app.Visible = true
excel_app.SheetsInNewWorkbook = 1

Set excel_wb = excel_app.Workbooks.Add
If excel_wb Is Nothing Then Quit
   Set excel_sheet = excel_app.ActiveSheet

With excel_sheet.Range("A2")
    .Font.Bold = True
    .Value = "Надпись"
    .HorizontalAlignment = xlCenter
End With

' сохранение
excel_wb.SaveAs "d:\1vbs.xls"

' close exсel
excel_app.ActiveWorkbook.Close True
excel_app.Quit

Set excel_sheet = Nothing
Set excel_wb = Nothing
Set excel_app = Nothing