responce=msgbox("Лист Excel",4+32,"Открыть лист Excel?")
if responce = 7 Then Wscript.Quit
Set WSHShell=WScript.CreateObject("WScript.Shell")
Я на верном пути? Помогите плиз

responce=msgbox("Лист Excel",4+32,"Открыть лист Excel?")
if responce = 7 Then Wscript.Quit
Set WSHShell=WScript.CreateObject("WScript.Shell")
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
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0