При считывании из excel в ТЗ в ячейке появляется лишний пробел
Есть в файле excel столбец формата Общий, содержащий 6 цифр (например, 147258). Есть столбец в ТЗ формата Строка(25), куда я считываю экселевский столбец.
В итоге в ТЗ получаю результат вида "147 258", т.е. между цифрами появляется пробел.
Как этого избежать?
Считываю данные вот этим способом
В итоге в ТЗ получаю результат вида "147 258", т.е. между цифрами появляется пробел.
Как этого избежать?
Считываю данные вот этим способом
Попытка
ПолеВводаФайл = ИсточникФайла;
Состояние(" Внимание! ... идёт загрузка данных!");
Excel = Новый COMОбъект("Excel.Application");
WB = Excel.Workbooks.Open(ИсточникФайла);
WS = WB.Worksheets(1);//указываем номер листа - 1
arr = WS.UsedRange.Value;
WB.Close(0);
Исключение
Предупреждение("Внимание! Файл не открыт."+Символы.ПС+"Попробуйте открыть и пересохранить данный файл программой Эксель.");
Возврат;
КонецПопытки;
Для каждого стрКол Из arr.Выгрузить().Получить(0) Цикл
ТабПоле.Добавить();
КонецЦикла;
ТабПоле.ЗагрузитьКолонку(arr.Выгрузить().Получить(0), "Артикул");
ТабПоле.Колонки.Артикул.Ширина = 25;
ЭлементыФормы.ТабПоле.СоздатьКолонки();
ПоказатьОтветы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Эта пакость не исправляется даже так:
Excel = Новый COMОбъект("Excel.Application");
Excel.ReferenceStyle=1;
WB = Excel.Workbooks.Open(ИсточникФайла);
WS = WB.Worksheets(1);
ВсегоСтрок = WS.Cells(1,1).SpecialCells(11).Row;
Сообщить(WS.Cells.Range("A1").NumberFormat); // сообщает @
Сообщить(WS.Cells.Range("A1").NumberFormatLocal); // сообщает @
WS.Cells(ВсегоСтрок,1).NumberFormat = "@";
WB.Save();
Сообщить(WS.Cells.Range("A1").NumberFormat); // сообщает @
Сообщить(WS.Cells.Range("A1").NumberFormatLocal); // сообщает @
WB.Close(0);
А ячейки все равно как числовые передаются...
Excel = Новый COMОбъект("Excel.Application");
Excel.ReferenceStyle=1;
WB = Excel.Workbooks.Open(ИсточникФайла);
WS = WB.Worksheets(1);
ВсегоСтрок = WS.Cells(1,1).SpecialCells(11).Row;
Сообщить(WS.Cells.Range("A1").NumberFormat); // сообщает @
Сообщить(WS.Cells.Range("A1").NumberFormatLocal); // сообщает @
WS.Cells(ВсегоСтрок,1).NumberFormat = "@";
WB.Save();
Сообщить(WS.Cells.Range("A1").NumberFormat); // сообщает @
Сообщить(WS.Cells.Range("A1").NumberFormatLocal); // сообщает @
WB.Close(0);
А ячейки все равно как числовые передаются...
Я ручками создала колонку "Артикул" в ТЗ. Поставила ей тип строка.
И получается, что во время выполнения вот этого действия:
ТабПоле.ЗагрузитьКолонку(arr.Выгрузить().Получить(0), "Артикул");
в ТабПоле колонка Артикул становится числовой? Я правильно Вас поняла?
В каком месте кода нужно значение преобразовать?
И получается, что во время выполнения вот этого действия:
ТабПоле.ЗагрузитьКолонку(arr.Выгрузить().Получить(0), "Артикул");
в ТабПоле колонка Артикул становится числовой? Я правильно Вас поняла?
В каком месте кода нужно значение преобразовать?
Все-таки колонка имеет тип Строка. Даже после загрузки значений. Но что делать с пробелом? Убрать я его не могу (а вдруг в будущем будут артикулы с пробелом, а я их тоже почищу). Как сделать чтобы не вставлялся этот пробел?
Экселевский файлик содержит 7000 строк. Я нажимаю колонку/формат ячеек/текстовый.
Эксель показывает, что все ячейки текстовые. НО на самом деле текстовыми они становятся только если по ячейке два раза щелкнуть (в уголке появляется предупреждение, что ячейка содержит число в виде текста). Щелкнутые ячейки перекидываются правильно (без пробелов). Но я же не могу вручную 7000 ячеек нащелкать...
Эксель показывает, что все ячейки текстовые. НО на самом деле текстовыми они становятся только если по ячейке два раза щелкнуть (в уголке появляется предупреждение, что ячейка содержит число в виде текста). Щелкнутые ячейки перекидываются правильно (без пробелов). Но я же не могу вручную 7000 ячеек нащелкать...
Вот это да! Со того времени как я задала этот вопрос, я переехала из глубокой Сибири в Москву, проработала несколько лет во франчах, ушла из 1С вообще и уже 2 года пишу на c#. А тут такой привет из прошлого)))
(20) Большое спасибо, помогло столкнулся с такой-же проблемой, некоторые артикулы с пробелами => все пробелы нельзя удалять, данный способ сработал.
Если Колонка = 3 Тогда
Значение = СокрЛП(Лист.Cells(СтрокаТабExcel, Колонка).Text);
Иначе
Значение = СокрЛП(Лист.Cells(СтрокаТабExcel, Колонка).Value);
КонецЕсли;
Если Колонка = 3 Тогда
Значение = СокрЛП(Лист.Cells(СтрокаТабExcel, Колонка).Text);
Иначе
Значение = СокрЛП(Лист.Cells(СтрокаТабExcel, Колонка).Value);
КонецЕсли;
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот