|
Нужна загрузка в Табель из 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) Гм. Это ты меня так послал? Культурно. :-)
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |