#0
by Базис
Есть большая таблица. При просмотре текст в ячейке не умещается и показан диезами, программно читаю двумя способами Поле5 = СокрЛП(Лист.Cells(НомерСтроки,5).Value) (1 вариант) Поле5 = СокрЛП(Лист.Cells(НомерСтроки,5).Text) (2 вариант) если данные чуть короче, то получаю: СокрЛП(Лист.Cells(НомерСтроки,5).Value) = "15.11.16" СокрЛП(Лист.Cells(НомерСтроки,5).Text) = "15.11.2016 8:31" А если длинней, то СокрЛП(Лист.Cells(НомерСтроки,5).Value) = "10.11.16" СокрЛП(Лист.Cells(НомерСтроки,5).Text) = "################" Первый вариант всегда теряет время, поэтому не годится. С .Text время остаётся, но нужно интерактивно или программно увеличить ширину столбца. А другие способы есть?
#5
by Базис
Исходник взял в книжке Андрея Михайлова, всё заработало, это было последним (стучит деревом по голове и наоборот) багом. Добавил перед чтением строк Лист.Columns.ColumnWidth = 18; и всё стало хорошо. Не придумал, куда писать про эксель.
#6
by DailyLookingOnASunse
Кстати про ADO. Читаю даты. IMEX=1 Если запущен Excel (для визуального сравнения, что есть и что загружается), то даты через ADO читаются как число (цифры в строке). Закрываю Excel - даты начинают читаться в формате dd.mm.yyy (также в строке). Пример (взято из табло конфигуратора): "40803" Строка "17.09.2011" Строка
#9
by Torquader
В чём проблема перевода числа в дату ? Не забываем, что даты в Excel как число и хранятся.
#10
by DailyLookingOnASunse
Дык и нет проблем. Учитывать только в коде нужно этот момент. Другой прикол вышел куда досаднее - ИНН вместо строки вышел числом с плавающей точкой и потерял последние две цифры. Так что Excel придется закрывать.
#11
by trdm
> Добавил перед чтением строк: Лист.Columns.ColumnWidth = 18; > и всё стало хорошо. И грустно и смешно...
#12
by Базис
Коллеги! Эта задача давно сдана. Пользователи обучены, благодарны, зарплата получена и увеличила экономическое могущество как моё, так и крайне-северной галактики. Единственный мой резон после был - задокументировать баг и фичу для потомков. Форматы документов из разных крупных АИС менять не мне.
#13
by Garykom
Так сложно слегка погуглить и найти без всяческих извратов с шириной колонки? Просто Range.Value2 This works the same way as Range.Value, except that it does not check the cell format and convert to Date or Currency. And thats probably why its faster than .Value when retrieveing numbers.
#15
by Torquader
А вот ИНН, ФСРАРИД и другие коды "умный" Excel "кушает" - то есть ему нужно объяснять, что в ячейке строка, а не число.
#16
by Zhuravlik
Попадал давно на подобное. Можно ADO, если с ним какие грабли возникнут - вот самое простое что можно сделать , сохранить xls как csv, и прочитать текст. Хотя если таблица действительно большая - то лучше ADO.
Тэги: 1С 8
Ответить:
Комментарии доступны только авторизированным пользователям
Похожие вопросы 1С
- Как определить колонку в ТЗ документа при двойном клике?
- Excel и 1С - вопрос про Excel?
- К ТЗ надо новую колонку и заполнить текущие строки в эту колонку значения
- Программно скопировать область из Excel книги 1 в Excel книгу 2
- Можно ли отредактировать файл Excel из 1С без установленного Excel?
- Excel - ошибка при закрытия Excel
- Как пересохранить из нового Excel в старый Excel ?
- Выгрузить колонку результата запроса в колонку дерева значений
- Выгрузка в Excel по шаблону Active Document различия Excel 2010 Excel 2016
- Выгрузка в Excel по шаблону Active Document различия Excel 2010 Excel 2016 ч2
В этой группе 1С
- Не получается загрузить таблицу значений в Excel через COMSafeArray
- Настроить обмен с банком УТ 11.3
- УНФ: как заставить пересчитаться динамические цены?
- Как в документообороте 2.1 сделать историю изменения файла приложения
- УТ11 ПВХ РазделыДатЗапретаИзменения
- Какое событие использовать? При начале ввода текста с клавиатуры добавить новую строчку в ТЧ
- Расчет себестоимости по интеркомпани
- НаСервереБезКонтекста как вызвать метод из модуля объекта вн. обработки
- задвоенные записи в запросе
- зуп 2.5->зуп 3.0
- УТ, Перемещение товара в розницу - товар пропал
- 8.3 Универсальная печать штрихкодов
- Комплексная автоматизация 2.0: Отчет о розничных продажах
- Скан документов в документообороте
- PostGreSQL ест подозрательно мало памяти
- Раздача программных лицензий по сети
- УФ, не работает условное оформление поля ввода
- Нужна обработка обслуживания 1С: Сканер штрихкода
- ЗУП 3.0 Как создать премию за счёт чистой прибыли
- ПостроительОтчета.ЗаполнитьНастройки() что там заполняется?