Работа с XLS файлами в ASP

@LexaIvanov · Регистрация: 25.09.2007

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

Есть файл .xls (прайс-лист к примеру). Его надо закачать на сервер и как-нибудь обрабатывать в HTML странички. Можно ли с ним работать как с ACCESS или лучще не надо??? Есть ли еще какие нибудь способы??

@t1k · 28.01.2008, 14:09

1. Да
2. Да

@AlexBor · 28.01.2008, 14:23

Спасибо. Пока не работает, но я ее достану!

@parashin · 29.01.2008, 12:30

У меня тоже не работает. Обращаюсь к листу Excel как к таблице базы по имени и ни фига не работает. Говорит 'Объект 'list1' не найден ядром базы данных Microsoft Jet. Проверьте существование объекта и правильность имени и пути.'

У кого-нибудь есть рабочий пример, подкиньте пожалуйста, очень нужно.

@parashin · 29.01.2008, 12:42

Все разобрался. Оказывается нужно указывать имя листа в формате [имя$]

@AlexBor · 29.01.2008, 12:45

У меня вариант для чтения работает:
Set oConn = Server.CreateObject('ADODB.Connection')
oConn.Open 'Driver={Microsoft Excel Driver (*.xls)}; DBQ=' & Server.MapPath('/STELLUS/Report/Stat1.xls')
Set oRS = oConn.Execute('SELECT * FROM [Лист1$]')
Response.Write oRs('Re-re') & '
',
а вот как записать туда данные?

@parashin · 29.01.2008, 13:05

Вот сейчас как раз читаю про это. Если интересно сходи сюда

http://support.microsoft.com/support/kb/articles/Q257/8/19.ASP

@parashin · 29.01.2008, 14:34

Блин. Чего то не получается. Получается только в первый столбец записать. А в остальные никак.

У кого-нибудь есть какие-нибудь соображения по поводу этого кода?

<%
set connExcel=Server.CreateObject ('ADODB.Connection')

connExcel.Open 'Provider=Microsoft.Jet.OLEDB.4.0;Extend ed Properties=''Excel 8.0;HDR=YES''

ata Source=C:InetpubwwwrootIntranet est.xls'

set rsExcel=Server.CreateObject ('ADODB.Recordset')

rsExcel.Open '[list1$A1:B10]' ,connExcel,adOpenKeyset ,adLockOptimistic ,adCmdTable

rsExcel.AddNew
rsExcel.Fields (0)=100
rsExcel.Fields (1)=200 ' на этой строчке выдает ошибку.
rsExcel.Update
rsExcel.AddNew
rsExcel.Fields (0)=100
rsExcel.Fields (1)=200
rsExcel.Update
rsExcel.AddNew
rsExcel.Fields (0)=100
rsExcel.Fields (1)=200
rsExcel.Update

%>

@t1k · 29.01.2008, 14:50

HDR=YES означает что в шаблоне должны быть определены заголовки столбцов, если они не определены, то пишется только в первый.

[first][second][third]
[ ][ ][ ]
[ ][ ][ ]
[ ][ ][ ]
[ ][ ][ ]

Вообще не стоит ждать от этого способа слишком больших результатов - он конечно самый быстрый, но и весьма ограниченный.

@parashin · 29.01.2008, 15:19

А мне много не надо. Нужно инфу из базы слить в Excel файл с уже заданным шаблоном.

Просто не хочется использовать клиента автоматизации.

@AlexBor · 29.01.2008, 16:27

А у меня через OLE DB работать не хочет, я ему:
Set oConnection = Server.CreateObject('ADODB.Connection')
With oConnection
.Provider = 'Microsoft.Jet.OLEDB.4.0'
.ConnectionString = 'Data Source=' & Server.MapPath('/STELLUS/Report/Stat1.xls') & _
';Extended Properties=Excel 9.0;'
.Open
End With, а он мне в ответ:
Microsoft JET Database Engine (0x80004005)
Could not find installable ISAM.

@parashin · 29.01.2008, 16:39

Extended Properties=Excel 8.0

@AlexBor · 29.01.2008, 16:47

Так я Excel 2000 использую. Она мне тогда напишет, что интерфейса такого не знает.

@parashin · 29.01.2008, 16:47

Не знаю у меня Excel2000 и все работает

@AlexBor · 29.01.2008, 16:52

Я пробовал, вот результат:
Provider (0x80004002)
No such interface supported

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@LexaIvanov 0 / 0 / 0 Регистрация: 25.09.2007 Сообщений: 38

	Работа с XLS файлами в ASP 30.10.2007, 17:20. Показов 5404. Ответов 33 Метки нет (Все метки) Есть файл .xls (прайс-лист к примеру). Его надо закачать на сервер и как-нибудь обрабатывать в HTML странички. Можно ли с ним работать как с ACCESS или лучще не надо??? Есть ли еще какие нибудь способы?? 0

@t1k 4 / 4 / 5 Регистрация: 10.05.2007 Сообщений: 1,616
	28.01.2008, 14:09
	1. Да 2. Да 0

@AlexBor 0 / 0 / 0 Регистрация: 23.01.2008 Сообщений: 14
	28.01.2008, 14:23
	Спасибо. Пока не работает, но я ее достану! 0

@parashin 1 / 1 / 0 Регистрация: 21.06.2007 Сообщений: 654
	29.01.2008, 12:30
	У меня тоже не работает. Обращаюсь к листу Excel как к таблице базы по имени и ни фига не работает. Говорит 'Объект 'list1' не найден ядром базы данных Microsoft Jet. Проверьте существование объекта и правильность имени и пути.' У кого-нибудь есть рабочий пример, подкиньте пожалуйста, очень нужно. 0

@parashin 1 / 1 / 0 Регистрация: 21.06.2007 Сообщений: 654
	29.01.2008, 12:42
	Все разобрался. Оказывается нужно указывать имя листа в формате [имя$] 0

@AlexBor 0 / 0 / 0 Регистрация: 23.01.2008 Сообщений: 14
	29.01.2008, 12:45
	У меня вариант для чтения работает: Set oConn = Server.CreateObject('ADODB.Connection') oConn.Open 'Driver={Microsoft Excel Driver (.xls)}; DBQ=' & Server.MapPath('/STELLUS/Report/Stat1.xls') Set oRS = oConn.Execute('SELECT FROM [Лист1$]') Response.Write oRs('Re-re') & ' ', а вот как записать туда данные? 0

@parashin 1 / 1 / 0 Регистрация: 21.06.2007 Сообщений: 654
	29.01.2008, 13:05
	Вот сейчас как раз читаю про это. Если интересно сходи сюда http://support.microsoft.com/support/kb/articles/Q257/8/19.ASP 0

@parashin 1 / 1 / 0 Регистрация: 21.06.2007 Сообщений: 654
	29.01.2008, 14:34
	Блин. Чего то не получается. Получается только в первый столбец записать. А в остальные никак. У кого-нибудь есть какие-нибудь соображения по поводу этого кода? <% set connExcel=Server.CreateObject ('ADODB.Connection') connExcel.Open 'Provider=Microsoft.Jet.OLEDB.4.0;Extend ed Properties=''Excel 8.0;HDR=YES''ata Source=C:InetpubwwwrootIntranet est.xls' set rsExcel=Server.CreateObject ('ADODB.Recordset') rsExcel.Open '[list1$A1:B10]' ,connExcel,adOpenKeyset ,adLockOptimistic ,adCmdTable rsExcel.AddNew rsExcel.Fields (0)=100 rsExcel.Fields (1)=200 ' на этой строчке выдает ошибку. rsExcel.Update rsExcel.AddNew rsExcel.Fields (0)=100 rsExcel.Fields (1)=200 rsExcel.Update rsExcel.AddNew rsExcel.Fields (0)=100 rsExcel.Fields (1)=200 rsExcel.Update %> 0

@t1k 4 / 4 / 5 Регистрация: 10.05.2007 Сообщений: 1,616
	29.01.2008, 14:50
	HDR=YES означает что в шаблоне должны быть определены заголовки столбцов, если они не определены, то пишется только в первый. [first][second][third] [ ][ ][ ] [ ][ ][ ] [ ][ ][ ] [ ][ ][ ] Вообще не стоит ждать от этого способа слишком больших результатов - он конечно самый быстрый, но и весьма ограниченный. 0

@parashin 1 / 1 / 0 Регистрация: 21.06.2007 Сообщений: 654
	29.01.2008, 15:19
	А мне много не надо. Нужно инфу из базы слить в Excel файл с уже заданным шаблоном. Просто не хочется использовать клиента автоматизации. 0

@AlexBor 0 / 0 / 0 Регистрация: 23.01.2008 Сообщений: 14
	29.01.2008, 16:27
	А у меня через OLE DB работать не хочет, я ему: Set oConnection = Server.CreateObject('ADODB.Connection') With oConnection .Provider = 'Microsoft.Jet.OLEDB.4.0' .ConnectionString = 'Data Source=' & Server.MapPath('/STELLUS/Report/Stat1.xls') & _ ';Extended Properties=Excel 9.0;' .Open End With, а он мне в ответ: Microsoft JET Database Engine (0x80004005) Could not find installable ISAM. 0

@parashin 1 / 1 / 0 Регистрация: 21.06.2007 Сообщений: 654
	29.01.2008, 16:39
	Extended Properties=Excel 8.0 0

@AlexBor 0 / 0 / 0 Регистрация: 23.01.2008 Сообщений: 14
	29.01.2008, 16:47
	Так я Excel 2000 использую. Она мне тогда напишет, что интерфейса такого не знает. 0

@parashin 1 / 1 / 0 Регистрация: 21.06.2007 Сообщений: 654
	29.01.2008, 16:47
	Не знаю у меня Excel2000 и все работает 0

@AlexBor 0 / 0 / 0 Регистрация: 23.01.2008 Сообщений: 14
	29.01.2008, 16:52
	Я пробовал, вот результат: Provider (0x80004002) No such interface supported 0