powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Что и как использовать? Надстройку или рабочую книгу...
6 сообщений из 6, страница 1 из 1
Что и как использовать? Надстройку или рабочую книгу...
    #34709215
TrazBon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте уважаемые знатоки:) нужен ваш совет. У меня есть два файла: "оформление заказа"(ОФ) и "база". мне нужно сделать макросы которые переносили бы определенные области ячеек из "базы" в ОФ... насколько я знаю это можно сделать с помощью надстройки или рабочей книги... но если я делаю с помощью рабочей книги то файл с базой всегда открыт, что нежелательно. Если же делаю надстройку то немогу т.е. незнаю как скопировать ячейки из базы
в ОФ
...
Рейтинг: 0 / 0
Что и как использовать? Надстройку или рабочую книгу...
    #34709219
TrazBon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите как мне скопировать ячейки из файла из которого сделана надстройка или же как мне скрыть рабочую книгу от чужих глаз... а может быть есть другой ход решения данной проблемы???...

П.С. Я в этом деле новичок, так что не обессудте если не так обрисовал проблему... :)
...
Рейтинг: 0 / 0
Что и как использовать? Надстройку или рабочую книгу...
    #34709443
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Достаточно убрать обновление экрана
Код: plaintext
1.
2.
3.
4.
    Application.ScreenUpdating = False
    Set xlWb = xlAp.Workbooks.Open("C:\...\....xls", , True)
    ...
    xlWb.Close False
    Set xlWb = Nothing
а еще в меню "окно" есть пункт "скрыть", можно скрыть книгу.
P.S.
покажи как пробывал.
...
Рейтинг: 0 / 0
Что и как использовать? Надстройку или рабочую книгу...
    #34710146
TrazBon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо!!! :)... Убирать обновление экрана не стал т.к. не понял что мне с этим кодом делать... Да мне окно -> скрыть вполне хватит...

Вот код макроса:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    Sub KopTabl()    
    NameBD = "База.xls"
    NameOF = "Оформление заказа.xls"        
    Application.Workbooks(NameBD).Worksheets("ОФ.З-ЗА").Rows("13:20").Copy
    Application.Workbooks(NameOF).Worksheets("ОФ.З-ЗА").Range("ПоследняяСтрока").Insert
    Application.CutCopyMode = False
    End Sub 

И ещё один вопрос по коду: Как мне в 4-й строке кода, цифры 13 и 20 заменить на переменные (например a и b)... пробовал так:


Код: plaintext
1.
2.
3.
    а =  13 
    b =  20 
    Application.Workbooks(NameBD).Worksheets("ОФ.З-ЗА").Rows("a:b").Copy

Ничего не получилось... (Переменные делал как Integer и как Variant)...
...
Рейтинг: 0 / 0
Что и как использовать? Надстройку или рабочую книгу...
    #34710612
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Переменные без кавычек
Код: plaintext
Rows(a & ":" & b)
...
Рейтинг: 0 / 0
Что и как использовать? Надстройку или рабочую книгу...
    #34712508
TrazBon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
То что надо... все классно работает... спасибо всем... :)
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Что и как использовать? Надстройку или рабочую книгу...
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]