Как передать объект Excel.Application клиенту?

@svf903 · Регистрация: 01.05.2008

Author24 — интернет-сервис помощи студентам

Пример работы с Excel.Application:

Код

Set Obj=CreateObject('Excel.Application')       
Obj.SheetsInNewWorkBook=1
Obj.WorkBooks.Add       
Set oCell=Obj.ActiveSheet          

oCell.Cells(1,1)='text'
. . . 

Obj.ActiveWorkbook.SaveAs(sFileName) ' сохраняем файл
Obj.Workbooks.Close 
Obj.Quit
Set Obj=Nothing

Можно ли вместо сохранения xls файла на диске передать его клиенту в бинарном виде (с указанием соответствующего ContentType)?

04.05.2008, 15:53

Response.Buffer = True
Set oFS = CreateObject('Scripting.FileSystemObject')
Set oFile = oFS.GetFile(Server.MapPath('a.jpg'))
Set oStream = CreateObject('ADODB.Stream')
oStream.LoadFromFile sFileName
Response.ContentType = 'ExcelApplication' (или как он там называется...)
Response.BinaryWrite oStream.Read
Response.End

@svf903 · 05.05.2008, 11:29 **[ТС]**

Может я не правильно сформулировал вопрос, но суть его была не в этом

Вопрос заключался в том, что если получая объект Obj следующим методом:

Код

Set Obj=CreateObject('Excel.Application')

возможно ли передать этот объект (именно объект Obj) клиенту в бинарном виде в формате файла xls?

Метод последовательного сохраненния в файл а потом считывания и передача файла в бинарном виде не подходит.

@svf903 0 / 0 / 0 Регистрация: 01.05.2008 Сообщений: 3
		1
	Как передать объект Excel.Application клиенту? 01.05.2008, 13:28. Показов 1555. Ответов 2 Метки нет (Все метки) Пример работы с Excel.Application: Код Set Obj=CreateObject('Excel.Application') Obj.SheetsInNewWorkBook=1 Obj.WorkBooks.Add Set oCell=Obj.ActiveSheet oCell.Cells(1,1)='text' . . . Obj.ActiveWorkbook.SaveAs(sFileName) ' сохраняем файл Obj.Workbooks.Close Obj.Quit Set Obj=Nothing Можно ли вместо сохранения xls файла на диске передать его клиенту в бинарном виде (с указанием соответствующего ContentType)? 0

Aladdin
	04.05.2008, 15:53	2
	Response.Buffer = True Set oFS = CreateObject('Scripting.FileSystemObject') Set oFile = oFS.GetFile(Server.MapPath('a.jpg')) Set oStream = CreateObject('ADODB.Stream') oStream.LoadFromFile sFileName Response.ContentType = 'ExcelApplication' (или как он там называется...) Response.BinaryWrite oStream.Read Response.End

@svf903 0 / 0 / 0 Регистрация: 01.05.2008 Сообщений: 3
	05.05.2008, 11:29 [ТС]	3
	Может я не правильно сформулировал вопрос, но суть его была не в этом Вопрос заключался в том, что если получая объект Obj следующим методом: Код Set Obj=CreateObject('Excel.Application') возможно ли передать этот объект (именно объект Obj) клиенту в бинарном виде в формате файла xls? Метод последовательного сохраненния в файл а потом считывания и передача файла в бинарном виде не подходит. 0