Имя: Пароль:
1C
1С v8
Нужна загрузка в Табель из Excel
, , ,
0 spleen
 
08.12.11
14:10
Может у кого-то есть, поделитесь плиз наработкой (если не жалко конечно).
и если не трудно скинте на мыло вот эту обработку

http://infostart.ru/public/61090/  (не могу качать, не хватает кармы :))

почта [email protected]

Заранее спасибо.
1 Wobland
 
08.12.11
14:15
на вот, сделай под себя

   Попытка
       // Загрузка Microsoft Excel
       Состояние("Загрузка Microsoft Excel...");
       ExcelПриложение = Новый COMОбъект("Excel.Application");
   Исключение
       Сообщить("Ошибка при загрузке Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
       Возврат;
   КонецПопытки;
   // Открытие файла Microsoft Excel
   Состояние("Открытие файла Microsoft Excel...");
   ExcelФайл = ExcelПриложение.WorkBooks.Open(Путь);
   
   // Обработка файла Microsoft Excel
   Состояние("Обработка файла Microsoft Excel...");
   ExcelЛист = ExcelФайл.ActiveSheet;//Sheets(1);
   xlCellTypeLastCell = 11;
   ExcelПоследняяСтрока = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Row;
   
   //ExcelПоследняяСтрока=70;
   
   //ExcelПоследняяКолонка = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Column;
   //Сообщить(ExcelПоследняяСтрока);
   ЭлементыФормы.Индикатор.Значение=0;
   ЭлементыФормы.Индикатор.МаксимальноеЗначение = ExcelПоследняяСтрока-3;

   Для Строк = 3 По ExcelПоследняяСтрока Цикл//ExcelПоследняяСтрока
       ЭлементыФормы.Индикатор.Значение = ЭлементыФормы.Индикатор.Значение + 1;
       ОбработкаПрерыванияПользователя();
       ном=ExcelЛист.Cells(Строк, 2).Value;
2 spleen
 
08.12.11
14:18
(1) Спасибо конечно. Но это просто процедура загрузки из xls.
3 kosts
 
08.12.11
14:22
(0) Мы вместо загрузки табеля, доработали табель в 1С, что бы было удобнее его делать.
Лучше, чем париться с проблемами синхронизации при загрузке...
4 spleen
 
08.12.11
14:27
(3) клиенту буковки мешают. и хочет копировать строки как в Excell.
сложновато будет работу Excell перенести. Мне так кажется.
--------------

Если можете обработку с infostart скинуть. Очень жду.
5 kosts
 
08.12.11
14:28
(4) Сделай им приятно. Они сами спасибо скажут.
6 spleen
 
09.12.11
00:14
ап
7 ProProg
 
09.12.11
00:26
(6) доступ слабо купить? лучше унижаться попрошайничать часами?
8 Конфигуратор1с
 
09.12.11
01:18
лови на почту
9 Галахад
 
гуру
09.12.11
10:24
ОФФ.
(Почему-то не могу открыть новую тему. Апну эту)

Есть Файл Excel.
Есть ячейка.
Числовые форматы - Дополнительный
Тип - Почтовый индекс
Значение = 000515

Ставлю числовой формат "Текстовый", получаю
Значение = 515

Как бы мне нули не потерять?
10 DrShad
 
09.12.11
10:25
Формат()
11 vmv
 
09.12.11
10:25
(8) Откройте для себя метод Формат(....)
12 Галахад
 
гуру
09.12.11
10:28
(10), (11) Намек не понял. Можно немного больше букв?
13 DrShad
 
09.12.11
10:29
(12) СП украли? обратись к ДенисЧ
14 Галахад
 
гуру
09.12.11
10:34
(13) Ну почитал. И чего? Я получаю из Excel значение 515.
Тут хоть заформотируйся 000515 не получишь.
15 Галахад
 
гуру
09.12.11
10:43
Ну и чего? Как Формат-то использовать?
16 Галахад
 
гуру
09.12.11
10:49
Балбесы, короче.

Сам справился. :-)
17 DrShad
 
09.12.11
11:02
(14) дятел
18 DrShad
 
09.12.11
11:04
Формат(515, "ЧЦ=6; ЧВН=; ЧГ=")
19 Галахад
 
гуру
09.12.11
11:06
(17) Сам такой. Откуда ты взял, что ЧЦ всегда = 6?
20 GreyK
 
09.12.11
11:10
(19) Ибо Индекс!
21 Галахад
 
гуру
09.12.11
11:11
(20) Гм. Это ты меня так послал? Культурно. :-)
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс