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

Программирование на Active Server Pages и VBScript.
Rawkfist
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 08.04.2011 (Пт) 18:48

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

Сообщение Rawkfist » 08.04.2011 (Пт) 18:54

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

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

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

Rawkfist
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 08.04.2011 (Пт) 18:48

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

Сообщение Rawkfist » 08.04.2011 (Пт) 19:01

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

mshak
Обычный пользователь
Обычный пользователь
 
Сообщения: 59
Зарегистрирован: 29.01.2008 (Вт) 14:17

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

Сообщение mshak » 13.05.2011 (Пт) 10:46

если еще надо то держи пример, может поможет.
Код: Выделить всё
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


Вернуться в ASP и VBScript

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5

    TopList  
cron