|   |   | 
| 
 | помогите прочитать из Excel | ☑ | ||
|---|---|---|---|---|
| 0
    
        axell 30.10.10✎ 15:13 | 
        Ребята помогите плиз! Сохранил список табличной части документа в xls. Код номенклатуры выглядит так 098834. Но при попытке прочитать xls в 1С он почему то читается как 98834. Ребята как победить???? Всем заранее респект!     | |||
| 1
    
        axell 30.10.10✎ 15:14 | 
        т.е нуля впереди нет, из за этого не могу найти номенклатуру по коду.     | |||
| 2
    
        Megas 30.10.10✎ 15:23 | 
        Формат  И выводить лидирующие 0 может поможет, хотя странно | |||
| 3
    
        luns 30.10.10✎ 15:36 | 
        я всегда сначала вот этой функцией преобразую екселевский лист в табличный документ 1с, а уж его и разбираю.  // Функция считывает в табличный документ данные из файла в формате Excel // // Параметры: // ТабличныйДокумент - ТабличныйДокумент, в который необходимо прочитать данные // ИмяФайла - имя файла в формате Excel, из которого необходимо прочитать данные // НомерЛистаExcel - номер листа книги Excel, из которого необходимо прочитать данные // // Возвращаемое значение: // Истина, если файл прочитан, Ложь - иначе // Функция ПрочитатьТабличныйДокументИзExcel(ТабличныйДокумент, ИмяФайла, НомерЛистаExcel = 1) Экспорт xlLastCell = 11; ВыбФайл = Новый Файл(ИмяФайла); Если НЕ ВыбФайл.Существует() Тогда Сообщить("Файл не существует!"); Возврат Ложь; КонецЕсли; Попытка Excel = Новый COMОбъект("Excel.Application"); Excel.WorkBooks.Open(ИмяФайла); Состояние("Обработка файла Microsoft Excel..."); ExcelЛист = Excel.Sheets(НомерЛистаExcel); Исключение Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel."); Возврат ложь; КонецПопытки; ТабличныйДокумент.Очистить(); ActiveCell = Excel.ActiveCell.SpecialCells(xlLastCell); RowCount = ActiveCell.Row; ColumnCount = ActiveCell.Column; Для Column = 1 По ColumnCount Цикл ТабличныйДокумент.Область("C" + Формат(Column, "ЧГ=")).ШиринаКолонки = ExcelЛист.Columns(Column).ColumnWidth; КонецЦикла; Для Row = 1 По RowCount Цикл Для Column = 1 По ColumnCount Цикл ТабличныйДокумент.Область("R" + Формат(Row, "ЧГ=") +"C" + Формат(Column, "ЧГ=")).Текст = ExcelЛист.Cells(Row,Column).Value; КонецЦикла; КонецЦикла; Excel.WorkBooks.Close(); Excel = 0; Возврат Истина; КонецФункции // () | |||
| 4
    
        axell 30.10.10✎ 15:42 | 
        (2)Спасибо помогло!  (3)Сопипаст! Очень интересный и грамотный подход спасибо за идею! | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |