Имя: Пароль:
1C
1С v8
v8: Загрузка данных из Excel
0 shock3r
 
29.04.13
12:57
На форуме, по поиску, есть много тем, по выгрузке данных в xls, помогите примером, кодом, как обрабатывается xls файл, на выгрузку данных из него.
1 ssh2012
 
29.04.13
12:59
ТабДок.Сохранить() формат xls
2 palpetrovich
 
29.04.13
13:00
"Выгрузка данных из Excel" - имеется ввиду "Загрузка данных из Excel в 1с8"?
3 ssh2012
 
29.04.13
13:00
По загрузке COMSafeArray быстро работает
4 shock3r
 
29.04.13
13:05
(2) Да выгрузка данных из файла xls, например в ТЧ обработки / документа. Нужен пример кода
5 shock3r
 
29.04.13
13:05
(3) Поделитесь примером реализации, пожалуйста
6 shock3r
 
29.04.13
13:07
(1) я знаю, спасибо, но это выгрузка в xls
7 Aprobator
 
29.04.13
13:07
(0) типовая обработка была на ИТС. Загрузка данных из табличного документа вроде.
8 salvator
 
29.04.13
13:08
(0) Забанили в поисковиках? http://yandex.ru/yandsearch?lr=213&text=1с+загрузка+из+excel первая ссылка
9 ptiz
 
29.04.13
13:08
Из xls - это загрузка.
В xls - выгрузка.
10 shock3r
 
29.04.13
13:10
(8) Вы не поверите, но да, у меня на работе открыта только миста, поисковики забанены, кроме google по https протоколу, но смысла особого нету, т.к. всё равно дальше страница по http открывается, и нельзя посмотреть
11 palpetrovich
 
29.04.13
13:11
(5)пример ADODB:
   СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+ИмяФайла+"; Extended Properties=""Excel 8.0;HDR=No;IMEX=1;""";
   Connection = Новый COMОбъект("ADODB.Connection");
   Connection.Open(СтрокаПодключения);
   ИмяЛиста = "Лист1$";
   СтрЗапроса = "SELECT * FROM [" + ИмяЛиста+ "]";
   RecordSet = Connection.Execute(СтрЗапроса);
   Пока НЕ RecordSet.EOF() Цикл
       Наименование = RecordSet.Fields(1).value;
       //...
   КонецЦикла;
   Connection.Close();
   RecordSet = "";
13 ssh2012
 
29.04.13
13:13
"Обычный" способ

http://infostart.ru/public/163641/
14 palpetrovich
 
29.04.13
13:15
+(11) или просто Excel.Application:

   Excel = новый COMОбъект("Excel.Application");
   Книга = Excel.Workbooks.Open(ИмяФайла);
   Лист = Книга.Worksheets("Лист1").UsedRange;
   КолонкаНаименования = 1;
   Для Стр = 1  По 5 Цикл
       Наименование = Лист.Cells(Стр, КолонкаНаименования).Value;
   КонецЦикла;
   Excel.WorkBooks.Close();
   Excel = "";


если ничего не напутал :)
15 Aprobator
 
29.04.13
13:15
(12) 8000 за пример кода? У тя совсем крыша поехал, спекуль?
16 Maniac
 
29.04.13
13:18
(15) у меня там нету кода. тупо компонента которая читает все форматы под всеми режимами работы 1С, со всеми листами экселей , даже на линукс сервере. скорость 100 тысяч строк в минуту с таблицей в 15 колонок заполненными всеми данными.
17 Aprobator
 
29.04.13
13:18
пора уже Волшебнику тут с Мани бабло брать за подобную рекламу.
18 zladenuw
 
29.04.13
13:20
http://infostart.ru/public/20090/
Функция ПрочитатьЛистExcel(ТЗ = Неопределено, ЛистЭксель = Неопределено, НомерПервойСтроки = 1, НомерПервойКолонки = 1, ВсегоСтрок = 0, ВсегоКолонок = 0) Экспорт
Если ЛистЭксель = Неопределено Тогда
   ЛистЭксель = ПолучитьCOMОбъект(,"Excel.Application");
КонецЕсли;
Если ВсегоСтрок = 0 Тогда
   ВсегоСтрок = ЛистЭксель.Cells.SpecialCells(11).Row;
КонецЕсли;
Если ВсегоКолонок = 0 Тогда
   ВсегоКолонок = ЛистЭксель.Cells.SpecialCells(11).Column;
КонецЕсли;
Если ТЗ = Неопределено Тогда
   ТЗ =  Новый ТаблицаЗначений;
   Для Счетчик = 1 По ВсегоКолонок Цикл
       ТЗ.Колонки.Добавить("Колонка"+Счетчик, Новый ОписаниеТипов("Строка"));
   КонецЦикла;
КонецЕсли;
Для Счетчик = НомерПервойСтроки По ВсегоСтрок Цикл
   НоваяСтрока = ТЗ.Добавить();
КонецЦикла;

Область = ЛистЭксель.Range(ЛистЭксель.Cells(НомерПервойСтроки,НомерПервойКолонки), ЛистЭксель.Cells(ВсегоСтрок,ВсегоКолонок));
Данные = Область.Value.Выгрузить();

Для Счетчик = 0 По ВсегоКолонок-1 Цикл
   ТЗ.ЗагрузитьКолонку(Данные[Счетчик], Счетчик);
КонецЦикла;
ЛистЭксель = Неопределено;
Возврат ТЗ;
КонецФункции
19 Aprobator
 
29.04.13
13:20
(16) ....нету кода... - тем более.
20 Maniac
 
29.04.13
13:21
(19) учись работать. иначе всю жизнь будешь зарабатывать чуть больше грузчика.
21 shock3r
 
29.04.13
13:21
(11) (14) (18) Спасибо! Теперь есть с чем работать!
22 Aprobator
 
29.04.13
14:30
(20) торгаши никогда не были работниками. Они всегда были втюхивателями фуфла по большей части.
23 Maniac
 
29.04.13
15:53
(22) не придумывай ерунду. Нравятся мне вот такие сказочники которые чего то не знают, но на всех гнать горазды.
24 Кокос
 
29.04.13
15:58
(0) тебе куда?  в какую конфигурацию? в УФ есть различия
25 shock3r
 
29.04.13
16:18
(24) в обработку, на 1 раз запустить, обычная форма
26 Aprobator
 
29.04.13
16:22
(23) если я чего не знаю, то спрашиваю. Бывает это сейчас довольно редко. Но уж никак не занимаюсь торговлей на форуме. Есть у тебя ресурс - вот там и торгуй. А тут нефиг.
27 Aprobator
 
29.04.13
16:23
(25) типовая на ИТС есть, еще раз грю. Загрузка из табличного документа называется. Эксель она тоже прекрасно кушает.
28 Maniac
 
29.04.13
16:41
(26) сказал человек который в 44 года превращает специализированный форум в сборник задротов компьютерных игр.
29 Maniac
 
29.04.13
16:42
(25) для рабозов действительно на ИТС обработка. и там код процедуры из экселя есть нормальный.
Мало того можно вообще не использовать эксель. сделать на форму табличное поле в которое из буфера вставить любой лист (даже эксель не нужен) и потом просто прочитать этот табличный документ.
30 Aprobator
 
29.04.13
16:54
(28) здесь вообще много разделов по интересам есть. Если для тебя это открытие. Но реклама тут платное. Торговать дуй на свой ресурс.
31 Maniac
 
29.04.13
16:56
(30) не тебе платить в любом случае. успокойся.
Основная теорема систематики: Новые системы плодят новые проблемы.