Имя: Пароль:
1C
1С v8
загрузка из exel
0 Aleksei_Pro
 
28.08.12
20:47
ребят подскажите, как установить чтение 1 страницы и сделать перебор строк и получить значение ячеек строки:
   ТекстПользователю = "Чтение файла Excel";
   
   Попытка
       COMОбъект = Новый COMОбъект("Excel.Application");
   Исключение
       СообщениеОбОшибке = НСтр("ru = 'Не удалось загрузить цены из файла Excel. Убедитесь, что на сервере установлена программа Microsoft Excel. Подробности: '")
                           + КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
       ВызватьИсключение СообщениеОбОшибке;
   КонецПопытки;
   
   Попытка
       
       Workbook      = COMОбъект.Workbooks.Open(ИмяФайлаЗагрузки);
       
   
               
       Workbook.Close();
       
   Исключение
1 skunk
 
28.08.12
20:51
2 Aleksei_Pro
 
28.08.12
20:53
Workbook      = COMОбъект.Workbooks.Open(ИмяФайлаЗагрузки);
       Лист1 = Workbook.Worksheets(1);
а как перебрать строки то листа1?
3 skunk
 
28.08.12
21:16
КолСтрок1 = НашФайл.Sheets.Item(ИмяЛиста).UsedRange.Rows.Count();// Количество строк
КолСтрок2 = Лист.Cells(1,1).SpecialCells(11).Row;// Количество строк - вариант 2
КолСтрок =  Макс(КолСтрок1, КолСтрок2);// Берем тот что больше

для х = 1 по КолСтрок цикл
 сообщить(Лист1.Cells(х, 1).Value);
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший