|   |   | 
| 
 | 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 | ||||
| 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) не тебе платить в любом случае. успокойся.     | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |