Потому что через Excel.Application (OLE) в час по чайной ложке.

через ADO ещё можно попробовать

ключевое слово "засосать", умеючи то долго....

(0) абрахамс давал идею через comsafearray
быстрее уж быть не может

(3) где!

4.  www.itpb.ru/forum4 посиом пройдись.....

самый быстрый способ - через ADO

только он местами сложнее.... по скольку поддерживает доступ только к данным, а не к обьектам

(6) а мне и нужны только данные

(4) ну поищи - у меня в архивах есть но они дома - только завтра что-то выложу.

(0) вот кстати способ через ВК
http://www.infostart.ru/projects/621/?&desc=1&ref=1173

(7) тогда ADO, + в нем можно использовать запросы SQL и получать сразу готовые выборки

(9) ВК не катит.

(10) Кинь пример

Странно, что в 1це есть метод записи табличного документа в Эксель, но нет обратной операции.

Пожно через ODBC драйвер. Строка подключения:
Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=C:\MyExcel.xls;DefaultDir=c:\mypath;

Потом пишешь простой запрос: SELECT * FROM [sheet1$]

Или через OLE DB. Вот строка:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties="Excel 8.0;HDR=Yes;IMEX=1";

(9)*** Для работы компоненты потребуется установленный Microsoft .NET Framework 2.0, который можно скачать отсюда.
LOL!

А если Excel 2007, то:
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\myFolder\myExcel2007file.xlsx;Extended Properties="Excel 12.0;HDR=YES";

(12) пример в (14)

можно через CSV

(0) Почитай Михайлова, там есть пример через ADO.

(14) а какой объект создавать?

(18) Орегенально, а как эксель конвертировать в CSV?

Фиксин, жесть. Напиши в дневнике! Про (13) напиши в 1С!

(22) ты имеешь что то против?!

(20) смотри (10)

(13) ничего странного - структура тз известна, а структура файла эксель - совершенно не предсказуема - кто знает, у кого какие зверушки в черепке бегают...

(25) а я думал что эксель состоит из ячеек и колонок?! гыгыгы

(26) серьезно чтоли?.. а как насчет объединенных колонок и строк? гыкать тянет?..

(27) В МХЛ тоже есть объединенные ячейки, в чем проблема, франц, Гыгыгы

(27) изучайте, батенька, мат-часть

(28) при чем тут мхл?.. в (0) про таблицу значений...
(29) дать тебе книжек?

(30) Речь идет о МХЛ, пардон если не так объяснил.

(0) кстати, а можно ли его потом обратно высосать? :)

(31) тада есть смысл сменить название темы..

Через ADO работает на порядок быстрее чем через OLE. Но есть проблемы. Например, если в одной колонке данные типа число и строка. Т. е. предварительно надопривести к одному типу

Об_Excel=Новый COMОбъект("Excel.Application");
   Об_файл = Новый Файл(ПутьКФайлуИсточнику);
   Ч_НачСтрока=0;
   Если Об_файл.Существует() Тогда
       Стр_Конект = "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq="+Об_файл.ПолноеИмя+";DefaultDir="+Об_файл.Путь+";";                      
       Об_Конект = Новый COMОбъект("ADODB.Connection");
       Попытка
           Об_Конект.Open(Стр_Конект);          
       Исключение
           Сообщить ("Не возможно подключится к Microsoft Excel Driver!!!
           |Возможно файл ["+Об_файл.ПолноеИмя+"] открыт другим пользователем!!!");
           Возврат;
       КонецПопытки;
       
       Попытка
           Стр_SQL = "SELECT * FROM [A:I] WHERE (Марка <> '') AND ((Модель <> '') OR (Модификация <> ''))  ORDER BY Марка";
           Об_РекордСет=Об_Конект.Execute(Стр_SQL);          
       Исключение
           Сообщить ("Не возможно получить данные из файла ["+ ОписаниеОшибки()+"!!!");
           Возврат;          
       КонецПопытки;
               
               
       Пока Об_РекордСет.EOF = Ложь Цикл
           
           МаркаНаименование = СокрЛП(Об_РекордСет.Fields("Марка").value);
           
КонецЦикла

самый быстрый способ это ОЛЕ в восьмерке вообще проста
Массив = Лист.UsedRange.Value;
Для каждого М из Массив Цикл
....

(34) может спарнем, что ОЛЕ быстрее, не один уже обломался с АДО, заспорив ))

(35)
что то сомневаюс.

(35) сомневайся... не первый...

(38) я то-же сомневаюсь, хоть сам пользуюсь ОЛЕ...
причины сомнения:

1. загрузка самого екселя
2. много проверок при получении данных (например на ошибку в формуле)
3. конфликт отладчиков, виснет при отладке...
4. возможность получать данные только по 1 ячейки, а не блоком

кроме того у екселя есть и еще проблемы:
1. при исключение 1с зависает процесс
2. не возможно использовать многопользовательский доступ

ADO -
1. сложнее в понимание и программирование
2. меньше функционала

Если обычные данные(7) - может скинуть их скриптом в txt-файл с разделителем, а потом взять 1С?

(39) даже и не сомневайся... погляди внимательно на (35)

+(41) и еще - у адо есть неприятное ограничение в количестве колонок

(41) там ты все равно получаешь массив ссылок, а в ADO ты получаешь массив значений! хотя спорить не буду, не сравнивал...

могу сказать, что выборка 40 000 строк и 32 столбцов по оле идет примерно 3-5 минут, на первый взгляд ADO будет быстрее... хотя конечно спорить не буду...

(41) проспоришь. Когда-то на т1С заспорил также с глумом, потом экспериментировал. Использование вариантных массивов для обмена с экселем приближается по скорости с АДО, но все-же проигрывает

ADO быстрее

(44) Миша, уже спорили и тут и на кубани и на рилнете, моя метода быстрее любого адо, но на больших массивах, когда более 5000 строк и 10 колонок
загрузка 60000 строк на 20 колонок идет секунды

засосать ексель... оригинальное половое извращение...

(21) Файл - Сохранить как... - CSV (разделители - запятые)(*.csv)

Если стоит задача вывести информацию из бд пользователю, то лушчий способ это использование
ADO + MS DataGrid  
в v8 есть возможность вставить ActiveX control
найди в списке Microsoft DataGrid Control назови его DG (если он конечно есть)
создай адо рекорсет присовой DataGrid.DataSource рекорсет
после присвоения рекордсета к гриду грид автоматом получает все записи за секунду (без циклов и вводов данных)

это пример для SQL server-а

Перем REC,СтрСоединения,Con;
   Con=Новый  COMОбъект("ADODB.Connection");
   REC=Новый COMОбъект("ADODB.Recordset");
   СтрСоединения="Driver={SQL Server};Server=server;Database=ИмяБД;Uid=sa;Pwd=;" ;
   Если Con.State=1 Тогда Con.Close();    КонецЕсли;
   Con.Open(СтрСоединения) ;
   REC.Open("Таблица",Con,3);    
   DataGrid=ЭлементыФормы.DG;    
   DataGrid.DataSource=rec;
   DataGrid.ReBind();

НО данная .ocx есть не на всех машинах так что нужно еще ее поставить на машину клиента
Приемущества ADO в том что ado универсальный инструмен работы с бд, использовать adо только для выборки всего листа нет смысла поскольку, сила ado  в том что в ней можно использовать SQL запрос, не только для выборки но и для ввода удаления обновления создания таблиц удаления таблиц итд....

ЗЫ
недавно ствил эксперимент что быстрее XBase или Ado (в части выборки данных) при работе с дбфниками
XBase на две три секунды быстрее

блин, когда уже эти мелкософтовцы перейдут на XML, чтобы можно было парсить.

(49) еще один блин...
ну че может спорнем со всеми сразу на коньяк ?

Мля, уже который раз читаю как "Можно ли зассать Excel..." что за провакационное название.

(51) покажи весь код с использованием массива
Массив = Лист.UsedRange.Value;
Для каждого М из Массив Цикл
что здесь ???

(53)+1 согласен!!!

ведь кроме получения ССЫЛКИ с ней надо чего-то сделать!!!

(15) зато быстрее чем все остальное работает

(53) тоже самое что и с АДО, рассовывание по ячейкам ТЗ
вот для семерки, к примеру -

//*******************************************
Процедура Сформировать()
   Перем Файл,Путь;
   Если ФС.ВыбратьФайл(0,Файл,Путь,"","(*.xls)|*.xls","XLS")=0 Тогда
       Возврат;
   КонецЕсли;
   т1=_GetPerformanceCounter();
   ТЗ=СоздатьОбъект("ТаблицаЗначений");
   Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="javascript";
   Скрипт.timeout=-1;
   Ексель=СоздатьОбъект("Excel.Application");
   Книги=Ексель.Workbooks;
   Книга=Книги.Open(Путь+Файл);
   Окно=Книга.Windows.Item(1);
   Окно.Visible=0;
   Листы=Книга.Worksheets;
   Лист=Листы.Item(1);
   Диапазон=Лист.UsedRange;
   Скрипт.addobject("Диапазон",Диапазон);
   Массив=Скрипт.eval("new VBArray(Диапазон.Value)");
   Ексель.DisplayAlerts=0;
   Книга.Close(0);
   Ексель.DisplayAlerts=-1;
   Для к=1 По Массив.ubound(2) Цикл
       ТЗ.НоваяКолонка();
   КонецЦикла;
   Для л=Массив.lbound(1) По Массив.ubound(1) Цикл
       ТЗ.НоваяСтрока();
       Для к=Массив.lbound(2) По Массив.ubound(2) Цикл
           ТЗ.УстановитьЗначение(ТЗ.КоличествоСтрок(),к,Массив.getItem(л,к));
       КонецЦикла;
   КонецЦикла;
   Сообщить(_GetPerformanceCounter()-т1);
   ТЗ.ВыбратьСтроку();
КонецПроцедуры

у меня 60000х30 за 50 сек выдернуло
а 40000х10 за 24 сек
кстати былоб быстрее, на серваке у меня глобальный флаг объектов выставлен, это замедляет

+(56) причем по ОЛЕ я могу определить истинно заполненный диапазон, а не тот у которого просто оформление, и не перебором

отвечаю на (51) я привел пример использования MS DataGrid-а
если ты думаешь что перебирая массив будет быстрее чем использование
DataGrid.DataSource-а тот ты сильно ошибаешся, жаль нет времени на дисскусия но попробую твой код дома, кто знает может так быстрее)))

Кто пробовал 56?
У меня ругается: Метод объекта не обнаружен (lbound)

Разобрался, кому интересно:

Диапазон = ЛистПрайса.UsedRange;    
МассивДанных = Диапазон.Value.Выгрузить();
ВсегоСтрок = МассивДанных[0].Количество() - 1;
Для НомерСтрокиПрайса = 0 По ВсегоСтрок Цикл
   Значение = МассивДанных[НомерКолонки][НомерСтроки];
...

Работает очень быстро, спс smaharbA

(60) Да я ужо давно разобрался и на инфостартец лежит обработка по названию Чтец Excel... ;-)