Из Excel в ТЗ #212689


#0 by Alex83
Наверно было уже. Но поиск чет не работает. Как из Excelевского файла перегнать данные в таблицу значений?
#1 by Мулька
перебором строк Экселя, через буфер обмена - выбирай ?
#2 by Alex83
так вот как это примерно в коде будет?
#3 by Мулька
Исключение    Предупреждение("Неудачная попытка создать объект 'Excel.Application'.
#4 by Мулька
Через буфер если, то вставил а потом по кнопке:
#5 by Alex83
охренеть я просто команды связанные с Экселем мало себе представляю тем более на инглише. сорри за тупость)), а где запись непосредственно в ТЗ?
#6 by Мулька
Да где хошь. В переменную забирай (Артикул=) или сразу в тз - хозяин-барин ПС: Про выход из цикла не забудь - например, при значении переменной СокрЛП(Артикул) = ""
#7 by smaharbA
в 1С можна за одну команду все данные с листа екселя затощить
#8 by Alex83
уж не ЗначениеИзФайла ли?
#9 by smaharbA
нет
#11 by smaharbA
можно быстрее раз в 100
#12 by Alex83
так ты уже скажешь или травить будешь?
#13 by gr13
соответственно ТЗ это Таблица значений Файл-элемент формы (переменная) с путем до файла) ПервСтрока - элемент формы (переменная) с номером первой строки, которую требуется загружать... если строка первая, то загружаются наименования колонок...в ТЗ из файла эксель
#14 by gr13
я не вижу большой задержки в этом файле)))
#15 by Alex83
спасибо попробую
#16 by smaharbA
кода будет примерно стокаже как в но быстрее, быстрее даже чем через АДО... + и еще вот это неверно ... вернее так не всегда верно, что это последние ячейки с данными
#17 by gr13
у меня не возникало проблем с этим.. объясни
#18 by Мулька
не будет, однако.
#19 by gr13
что не будет? кто мне объяснит?
#20 by smaharbA
ты на счет АДО ? могу поспорить что будет быстрее... если будет форматирование, а данных не будет, то тоже попадут в UsedRange либо в SpecialCells даже если данных всего 3 строки, а табличка расчерчена на весь лист к примеру...
#21 by Мулька
Кода от шарамбы не будет.
#22 by gr13
и что?..
#23 by smaharbA
и что - будешь перебирать 65000 строк вместо 3... неоднократно был, и даже пытались оспорить что АДО быстрее, пока не натестировались :)
#24 by Мулька
+ от от смашарбы, сорри.
#25 by Alex83
у меня почему то он не хочет открывать Экселевский файл, ругается и говорит что его нет, хотя он есть. С чем может быть связано?
#26 by gr13
мож он у тебя открыт?
#27 by mergan
Нетак указываешь.
#28 by gr13
кстати в той обработки необходимо закрыть еще объект эксель Эксель.Exit; так бу правильно? просто по "" или 0 он не закрывает
#29 by Alex83
я вставил в начале Файл=ФС.ВыбратьФайл(1,"1.xls"); Открываю его и он мне сразу говорит "файл не найден". Эксель закрыт..
#30 by Alex83
Может формат или версия Экселя должна быть какой-нить особенной? ))
#31 by gr13
"1.xls" должна быть переменной, т.к. на выходе она содержит <ИмяФайла> - переменная, содержащая на входе строку с именем файла, а на выходе - имя выбранного файла;
#32 by gr13
ВыбратьФайл(<?>,,,,) Синтаксис: ВыбратьФайл(<ТипДиалога>,<ИмяФайла>,<ИмяНачКаталога>,<ЗаголовокОкна>,<Фильтр>,<Расширение>,<Таймаут>) Назначение: Открывает окно диалога выбора/сохранения файла. Возвращает: 0 - если в окне диалога нажата кнопка 'Отмена', 1 - если нажата кнопка 'ОК'. Параметры: <ТипДиалога> -: 0 - диалог типа <открыть>, 1 - диалог типа <сохранить>; <ИмяФайла> - переменная, содержащая на входе строку с именем файла, а на выходе - имя выбранного файла; <ИмяНачКаталога> - переменная, содержащая на входе строку с  начальным каталогом, а на выходе - имя выбранного каталога; <ЗаголовокОкна> - строка с заголовком окна; <Фильтр> - строка с фильтром отбора файлов (например: 'Все файлы (*.*) |*.*'); <Расширение> - строка с расширением файла по умолчанию; <Таймаут> - время ожидания отклика пользователя в секундах (необязателен). Подробнее см. в документации, глава 'Работа с Файлами
#33 by Alex83
все это понятно. тока что надо сделать вообще стереть 1.xls?
#34 by Alex83
вапщето нет, нада Файл=ФС.ВыбратьФайл; так?
#35 by gr13
иначе соответственно не выбран( КонецЕсли;
#36 by gr13
все учи матчасть
#37 by Alex83
теперь ругается: Эксель.Workbooks.Open(Файл,0,1); {C:ОБРАБОТКИСОХРАНИТЬ ЗАКАЗ.ERT}: Microsoft Excel: Не удалось найти '1.xls'. Проверьте задание имени и местоположения файла. При попытке открытия файла с использованием списка недавно использованных файлов из меню ''Файл'' убедитесь, что файл не был переименован, перемещен или удален.
#38 by gr13
читай или научись читать внимательно ЖКК
#39 by mergan
#40 by Мулька
А смашарба пропал, однако.
#41 by Alex83
Так ведь сделал все как в на проверку существования уже не ругается, по логике все должно работать. подскажите последний раз из-за чего данная хрень, мне через полчаса надо сказать человеку можно ли осуществить это или нет.
#42 by gr13
напиши что выводит Сообщить(Файл)... и тебе все станет ясно... потом идем медленно в... ЖКК
#43 by smaharbA
ты хоть знаешь что возвращает ФС.ВыбратьФайл ?
#44 by gr13
неа.. не знает(((
#45 by mergan
Возвращает: 0 - если в окне диалога нажата кнопка 'Отмена', 1 - если нажата кнопка 'ОК'.
#46 by smaharbA
#47 by gr13
он не у тебя спрашивал(((
#48 by smaharbA
тока если спорить начнем... :)
#49 by Alex83
Спасибо Ребята, просто под конец дня ваще отупел окончательно. Все заработало, век не забуду ваше терпение! ))
#50 by smaharbA
КонецПроцедуры ... Это быстрый метод из екселя (кстати тут ТЗ ваапче нафих ненужна для последующей работы)
#51 by smaharbA
... Это определение "истино" последней строки, тутже можна и колонки
Тэги:
Ответить:
Комментарии доступны только авторизированным пользователям

В этой группе 1С