Возникла необходимость выводить отчеты, брать шаблон (там уже нарисована шапка, логотипы), добавлять туда данные и отдавать файл пользователю.
как это я сделал:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
conntobase = "dsn=DSN;"
Set FsoObj = CreateObject("Scripting.FileSystemObject")
tempfile = Server.MapPath(".") & "\xls\1.xls"
usefile = Server.MapPath(".") & "\xls\"&date&".xls"
Set FileName = FsoObj.GetFile(tempfile)
FileName.Copy usefile
Set objXL=Server.CreateObject("Excel.Application")
Set objWBook=objXL.WorkBooks.Open(usefile)
Set objWSheet=objWBook.WorkSheets( 1 )
dim arrayquery
q = request.QueryString()
arrayquery = split(q, "&")
i = 1
ixl = 7 // c какой строки начинаем добавлять записи
for each akey in arrayquery
if instr( 1 , akey, "akey")= 1 then
Set conn = Server.CreateObject("ADODB.Recordset")
conn.ActiveConnection = conntobase
conn.Source = "SELECT CONCAT(CONCAT(convert (billdprt, SQL_VARCHAR), '/'), convert(bill, SQL_VARCHAR)) as zakaznarad WHERE "&akey
conn.CursorLocation = 2
conn.LockType = 1
conn.Open()
objWSheet.Range("A"&ixl+i).Value = conn("zakaznarad")
conn.close
set conn = nothing
i = i + 1
next
Set objWSheet=Nothing
objWBook.Close True
Set objWBook=Nothing
objXL.Quit
Set objXL=Nothing
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
s.LoadFromFile(usefile
response.AddHeader "Content-Disposition", "attachment; filename="&usefile
Response.ContentType = "application/vnd.ms-excel"
Response.BinaryWrite s.Read
Response.Flush
s.Close
Set s = Nothing
все работает, все в ажуре.
но тут отказалось что на сервере не стоит офис и нет возможности его туда поставить, я слышал что к нему (к файлу Excel) можно обратиться через ADO, полазил по нету, почитал, решил опробовать:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim XLS
XLS = Server.MapPath(".") & "xls/1.xls"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& XLS & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
Conn.Execute "select * from [str1$]" \\ Лист под названием str1 - работает
Conn.Execute "select * from [str1$:a9]" \\ не работает
Conn.Execute "select [a9] from [str1$]" \\ не работает
Conn.Execute "select [$a9] from [str1$]" \\ не работает
Conn.Close
set conn = nothing
есть ли возможность как в первом варианте обратится к файлу excel, если не стоит офис на сервере? если нет то как работать с excel через ADO?
