Имя: Пароль:
1C
1C 7.7
v7: Exel Выделить диапазон ячеек (всё, что введено) и удалить/очистить его
0 aka AMIGO
 
05.08.15
20:03
Код примерный:
    ЛистЭксель=РабочаяКнига.Worksheets("Печать");
        ЛистЭксель.Cells.Select();//Выделить область
        ЛистЭксель.Application.Selection.ClearContents();

Спотыкается на Select:

ЛистЭксель.UsedRange.Select();//Выделить область
{E:\1C\ДРУГОЕСТО\EXCEL.ERT(202)}: Microsoft Office Excel: Метод Select из класса Range завершен неверно


Как указать выделение?
Спасибо!
1 aka AMIGO
 
05.08.15
20:05
Пробовал и так:
ЛистЭксель.UsedRange.Select();

Не проходит..
2 aka AMIGO
 
05.08.15
21:05
Переделал:

    ЛистЭксель=РабочаяКнига.Worksheets("Печать");
    UsedRange=ОкноExcel.ActiveSheet.UsedRange;
    ЛистЭксель.UsedRange.Select();//Выделить область
    ЛистЭксель.Application.Selection.ClearContents();

Ошибка прежняя..
3 ДенисЧ
 
05.08.15
21:15
А что нам говорит товарищЪ записчик макросов?
4 HawkEye
 
05.08.15
21:20
(0) лови
НовыеРабочиеКниги=ExcelApp.WorkBooks;
        РабочаяКнига    =НовыеРабочиеКниги.Open(ПутьКФайлу);            
        ExcelApp.Visible = 1;
РабочаяКнига.Sheets("Лист1").Range("B12").Select();
        РабочаяКнига.Application.Selection.ClearContents();
5 HawkEye
 
05.08.15
21:22
+4 ну или твой вариант
    
РабочаяКнига.Sheets("Лист1").UsedRange().Select();
6 mehfk
 
05.08.15
21:23
Excel = Новый COMОбъект("Excel.Application");
    РабочаяКнига = Excel.WorkBooks.Add();    
    Sheet = РабочаяКнига.Worksheets("Лист1");
    UsedRange = Sheet.UsedRange;
    UsedRange.Select();
    Sheet.Activate();
    Excel.Selection.ClearContents();
7 aka AMIGO
 
06.08.15
08:47
Ого!! Пока я спал, уважаемые форумчане работали!
Спасибо!

(3) у меня нетбук, мееедленный, и экранчик 10", не дошли руки до макросов..
Но на сегодня наметил, проработаю сей момент.

(4)(5)(6) Спасибо, мужики! Успехов вам во всех ваших делах!
8 aka AMIGO
 
06.08.15
11:09
Очередная беда, связанная с ошибкой Select()

Два файла Excel
Если заглянуть в обоих на лист "Печать", то можно увидеть разницу в его оформлении.
Что характерно, если запускаю обработку с файлом Тест.xlsm, то Select() срабатывает на-ура..
https://yadi.sk/i/8gASVpwfiJGJW
картинка:


А вот с этим - дает ошибку сабжа, Select не срабатывает
https://yadi.sk/i/k2D2PJ3niJGcE
картинка:


как-же записать оператор правильно, чтобы сработало и во втором случае?
9 aka AMIGO
 
06.08.15
11:09
10 Масянька
 
06.08.15
11:16
(9) А чего это у вас такой низкий ночной тариф?! У нас - с июля 2,43.
11 aka AMIGO
 
06.08.15
11:19
(10)  не знаю, это на совести бухгалтера :)
возможно, сельская местность
вот тарифы М и МО:
http://www.energo-consultant.ru/sprav/tarifi_na_elektroenergiuy_na_2015_god/tarifi_na_elektroenergiyu_v_moskve_2015
12 Масянька
 
06.08.15
11:28
(11) Афигеть...
13 aka AMIGO
 
06.08.15
11:38
что-ж такое творится-то..
При обработке с Тест все варианты Select() проходят хорошо, а с Тест2 - ни один вообще..
Чем-же отличаются эти файлы? у нах длина разная, но, видно, не в этом дело.. вышли-то из одних рук!
14 aka AMIGO
 
06.08.15
11:42
я вначале пытался удалить Лист "Печать", и создать новый - не вышло..
вот мои попытки: http://www.forum.mista.ru/topic.php?upd&id=749826

Ни удалить, ни почистить не получается в Тест2..
15 aka AMIGO
 
06.08.15
11:52
Если кто добрый найдется, запустит у себя эту обработку - скажу Большое ГранМерси :)
https://yadi.sk/d/OiVeTpyniJMBo

Что она делает: читает ячейки с Листа "Таблица расчетов", записывает в ТЗ, затем в Excel чистит Лист "Печать", читает ТЗ и записывает рачетные данные в этот лист.

ЗЫ. извините за Г-код.. нервы не позволяют развешивать розовые бантики..
16 aka AMIGO
 
06.08.15
11:54
(15) + у меня с файлом Тест работает заметно медленнее, и на Select(() не авостит, а с Тест2 проскакивает быстро и уходит в авост..
17 Масянька
 
06.08.15
11:57
(15) Боярин! Ты скажи, чего тебе надобно? (С)
С чем долбишься-то?
18 aka AMIGO
 
06.08.15
11:59
(17) Надо сформировать Лист "Печать", для печати квитанций.
Для этого надо удалить с этого листа старые записи, полностью почистить..
у меня не получается чистка!
19 HawkEye
 
06.08.15
12:00
(15) так если поведение обработки зависит от файла, наверное и сами файлы надо приложить? )))
20 Масянька
 
06.08.15
12:01
(18) Данные для печати откуда берутся?
21 Fish
 
06.08.15
12:02
(18) А не проще удалить весь лист?
22 aka AMIGO
 
06.08.15
12:04
(19) так я вроде уже дал ссылки:
https://yadi.sk/i/8gASVpwfiJGJW - Тест

https://yadi.sk/i/k2D2PJ3niJGcE - это Тест2

Только скачать..

Или не качается по ссылке?

(21) пытался, друже.. не получается, чего-то я не понимаю в этом деле.. см. (14)
23 Масянька
 
06.08.15
12:05
(22) Боярин! Ты опиши задачу...
24 Масянька
 
06.08.15
12:06
Повангую чуть-чуть...
Откуда-то (откуда?) берутся данные для заполнения первого листа. А на втором листе - квитанции, которые берут данные с первого листа.
Не?
25 aka AMIGO
 
06.08.15
12:13
(23) Есть файл *.xlsm, с макросами
В нём 2 листа.
Лист "Таблица расчетов" заполняется бухгалтером/оператором вручную.
Этот лист в последних колонках содержит информацию, нужную для создания квитанций, выдаваемых на руки жителям.

Далее - надо сформировать эти квитанции, чтобы бушка не считала и не заполняла их вручную.


Квитанции формируются на Листе "Печать". Всё содержимое Листа "Печать" обновляется ежемесячно. Дальше - всё распечатывается, разрывается по квитанциям, раздается на руки..

Теперь создание квитанций делается обработкой, она читает данные с листа "Таблица расчетов", чистит лист "Печать", и заполняет его данными из созданной после чтения листа "таблица расчетов" ТЗ
26 Fish
 
06.08.15
12:15
(25) Может, не стоит изобретать велосипед, и полностью отказаться от экселя?
27 Масянька
 
06.08.15
12:16
(25) Я - почти колдунья :))))

Обработка чья (программа)?
Объединенные ячейки есть?
Ссылки (с листа на лист) есть?
28 Масянька
 
06.08.15
12:17
(26) Поддержу.
Если учет ведется в какой-то программе - зачем использовать Excel?
29 aka AMIGO
 
06.08.15
12:24
(26) НеТ, не могу, друже.. первичные данные только в Excel"е.. готовятся на дачном участке, у буха есть ноут с офисом.. и это- всё.. Так работают вот уже 5лет.

(26) Обработка моя, за что прошу прощения..

(28)никакой программы, кроме офиса-2013

файл Exel пересылается с участка на флешке главному бухгалтеру, у неё есть 1С Для запуска обработки!
После обработки файла - он распечатывается, квитанции распечатываются, и флешка возвращается на садово-огородный участок :)


ЗЫ. Ёлкины-моталки.. я-ж могу сформировать квитанции в 1С, а потом научить бухгалтера переносить табличный документ в Excel.. Но это ей не понравится..
30 Масянька
 
06.08.15
12:27
(29) Блин, боярин...
А ты делай квитанции в 1С и сохраняй их в Excel, отдавай буху и пусть - печатает, режет и т. д.
31 aka AMIGO
 
06.08.15
12:28
(30) Можно и так.. Попробую этот вариант, имеет право на жизнь.
Спасибо!
32 aka AMIGO
 
06.08.15
12:30
есть и еще один вариант - не чистить лист "Печать", а записывать прямо туда.. Только грязь может остаться..
хвосты от старой записи, а это неприятно..
33 Масянька
 
06.08.15
12:33
(32) Делай все в обработке.
Данные (которые бух вручную вносит) считывай, обрабатывай, формируй квитки, сохраняй (в новом файле, например) и пусть бух работает. То есть исходный файл excel используй только для чтения данных.
34 HawkEye
 
06.08.15
13:10
(22) качается но я открываться не хочет )))
35 HawkEye
 
06.08.15
13:15
(29) "я-ж могу сформировать квитанции в 1С, а потом научить бухгалтера переносить табличный документ в Excel.. Но это ей не понравится.."

почему не понравится?
зачем бухгалтера чему-то учить...
1. вариант: Обработка берет с флешки файл Excel и рядом генерит готовый  для пеати Excel файл на ту же флешку.
2. вариант: Обработка берет файл Excel с флешки в 1С генерит печатную форму, отправляет на печать, на печатную форму кладешь кнопку при нажатии на которую на флешке сохраняется файл Excel.
3. вариант: Обработка берет файл Excel с флешки, открывает шаблон Excel и в нем заполняет нужные поля. дальше бухгалтер или печатает или сохраняет или и то и другое )


кароче куча вариаций ))
36 aka AMIGO
 
06.08.15
13:46
спасибо, други мои, получается, вы выполняете за меня работу.. Просто спасибо за советы, они для меня более ценные..

Вот, что я уже сделал:  Создаю Экселевский файл "Печать", пусть печатает из него (за намёк отдельное спасибо Масяньке :) )

Сейчас буду общаться с ГБ, думаю, этот вариант она примет.
37 Масянька
 
06.08.15
13:51
(36) Ну, дык - деньгами делись... :)))))))))))
38 ДенисЧ
 
06.08.15
13:52
(37) Гусары денег не берут! )))
39 Масянька
 
06.08.15
13:54
(38) Ладно... Согласна на шпоры - продам. :))))))))
40 HawkEye
 
06.08.15
13:58
(39) первый раз прочитал как шПроты )
41 Масянька
 
06.08.15
14:01
(40) Голодный? :)))))))))
42 HawkEye
 
06.08.15
14:02
(41) неа.. откушал только что )
43 aka AMIGO
 
06.08.15
14:09
(37) я за спасибо создал обработку.. половину "спасибы" этой - отдаю тебе! С превеликим удовольствием! :)
44 Масянька
 
06.08.15
14:13
(43) Спасибо!