Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ХЕЛП! Excel обращение макроса к книге, из которой был запущен макрос. / 6 сообщений из 6, страница 1 из 1
21.03.2011, 19:45
    #37176129
renkr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ХЕЛП! Excel обращение макроса к книге, из которой был запущен макрос.
доброго времени суток.
что то я не могу разобраться как заставить макрос активировать книгу, из которой он собственно был запущен.
суть - перенос данных из формы для заполнения в базу данных.
беда в том, что база лежит отдельным файлом, а не на соседнем листе.
грубо пока так.
Windows("blank.xls").Activate
Range("D4:K4").Select
Selection.Copy
Windows("base.xls").Activate
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


то есть выделяем из бланка необходимые данные и копируем их в базу данных.
НО бланк только изначально как форма имеет фиксированное название.
а далее переименовывается в зависимости от даты и вида операций.
следовательно обращение по имени файла уже не получится, ибо при копировании бывший бланк будет называться уже по-другому.
вопрос: как привязать макрос к книге, из который он был запущен?
так чтобы после сохранения "бланк.хлс" в какой-нибудь "работа 22,03,11" я смог запустить макрос и он бы все скопировал.
...
Рейтинг: 0 / 0
21.03.2011, 20:24
    #37176168
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ХЕЛП! Excel обращение макроса к книге, из которой был запущен макрос.
renkr,

Код: plaintext
1.
2.
Windows("blank.xls").Activate'можно даже не активировать. Но знать бы имя или индекс листа....
Range("D4:K4").Copy
ThisWorkbook.Range("C8").PasteSpecial xlPasteValues 'ThisWorkbook - обращение к книге с макросом
...
Рейтинг: 0 / 0
21.03.2011, 20:33
    #37176181
renkr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ХЕЛП! Excel обращение макроса к книге, из которой был запущен макрос.
у то есть чтобы опять скопировать следующую строку данных из бланка я могу прописать просто ThisWorkbook.Range("D4:K4").Copy ?
а вставка у меня уже в другой файл.
...
Рейтинг: 0 / 0
21.03.2011, 20:35
    #37176185
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ХЕЛП! Excel обращение макроса к книге, из которой был запущен макрос.
renkr,

ну да. Я просто не понял какая из книг с макросом. Только не ThisWorkbook.Range("D4:K4").Copy , а с указанием листа:
Код: plaintext
ThisWorkbook.Sheets("Лист1").Range("D4:K4").Copy
...
Рейтинг: 0 / 0
21.03.2011, 20:37
    #37176188
renkr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ХЕЛП! Excel обращение макроса к книге, из которой был запущен макрос.
blank с макросом.
макрос открывает base и копирует туда необходимые строки из blank по разным листам в файле base.
...
Рейтинг: 0 / 0
21.03.2011, 20:42
    #37176195
renkr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ХЕЛП! Excel обращение макроса к книге, из которой был запущен макрос.
отлично. после сохранения с другим именем все по-прежнему работает.

большое спасибо.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ХЕЛП! Excel обращение макроса к книге, из которой был запущен макрос. / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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