powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как настроить вызов макроса только при первом открытии Excel
12 сообщений из 12, страница 1 из 1
Как настроить вызов макроса только при первом открытии Excel
    #36172888
chesterfielda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго времени суток!!!
Таблица Excel настроена на импорт данных из Access
В "Свойстве внешнего диапазона" убраны все галочки об обновлении(фоновое обновление, обновление при открытии файла)
Хочу чтобы у меня данные обновлялись только при первом открытии Excel. Например, открываю первый раз книгу, данные обновляются, сохраняю ее и при следующем открытии работаю уже с этим набором данных

Вот макрос, который обновляет данные
Sub Auto_open()
'
' Auto_open Макрос
' Макрос записан 01.09.2009 (noname)
'

'
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub
И как мне настроить чтобы он вызывался не каждый раз при открытии, а только при первом открытии???
...
Рейтинг: 0 / 0
Как настроить вызов макроса только при первом открытии Excel
    #36172893
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
chesterfielda,

после обновление отключите внешний диапазон. Тогда и при следующем открытии файла обновлять будет нечего.
...
Рейтинг: 0 / 0
Как настроить вызов макроса только при первом открытии Excel
    #36172905
chesterfielda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Эт я понимаю!!!...
Но мне бы хотелось это программно сделать, чтобы при первом открытии он сам отключился
...
Рейтинг: 0 / 0
Как настроить вызов макроса только при первом открытии Excel
    #36173052
chesterfielda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Видимо при закрытии, надо отключить автовызов макроса...т.е. поидее поменять ему имя, если я не ошибаюсь
Но как это лучше сделать??
...
Рейтинг: 0 / 0
Как настроить вызов макроса только при первом открытии Excel
    #36173245
chesterfielda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
big-dukechesterfielda,

после обновление отключите внешний диапазон. Тогда и при следующем открытии файла обновлять будет нечего.

А можно как-нить написать макрос на отключение внешнего диапазона????
...
Рейтинг: 0 / 0
Как настроить вызов макроса только при первом открытии Excel
    #36173433
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
chesterfielda,

Если у вас 2007, то примерно так
Код: plaintext
ActiveSheet.ListObjects("Query").Unlink
...
Рейтинг: 0 / 0
Как настроить вызов макроса только при первом открытии Excel
    #36173445
maksimTS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
За пределами диапазона (в кот подтягиваются данные) можно хранить какой то символ ("+" да, "-" нет), при открытии проверить значение этой ячейки ("-" вытянуь инфо, "+" нет). Или как вариант создать текстовый файл, и в нем записывать были обновленя или нет(ну а при открытии экселевского файла это проверить).
...
Рейтинг: 0 / 0
Как настроить вызов макроса только при первом открытии Excel
    #36173633
chesterfielda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
big-dukechesterfielda,

Если у вас 2007, то примерно так
Код: plaintext
ActiveSheet.ListObjects("Query").Unlink


У меня к сожадению 2003
Создаю макрос
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Auto_Close()
'
' Auto_Close Макрос
' Макрос записан 01.09.2009 (Admin)
'

'
  ActiveSheet.ListObjects("Query").Unlink
End Sub

Выдает ошибку:
Run-time error '9':
Subscript out of range
...
Рейтинг: 0 / 0
Как настроить вызов макроса только при первом открытии Excel
    #36173658
chesterfielda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
maksimTSЗа пределами диапазона (в кот подтягиваются данные) можно хранить какой то символ ("+" да, "-" нет), при открытии проверить значение этой ячейки ("-" вытянуь инфо, "+" нет). Или как вариант создать текстовый файл, и в нем записывать были обновленя или нет(ну а при открытии экселевского файла это проверить).
Если честно вообще никогда не писал макросы...(((
А как там условия пишутся???
...
Рейтинг: 0 / 0
Как настроить вызов макроса только при первом открытии Excel
    #36173886
chesterfielda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
big-dukechesterfielda,

Если у вас 2007, то примерно так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub Auto_open()
'
' Auto_open Макрос
' Макрос записан 01.09.2009 (Admin)
'

'
If (Range("A4") = "") Then
Range("A4").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
End If
End Sub


Но все-таки хотелось бы при закрытии отключить внешний диапозон,если он подключен...так что если кто-нить поможет как это сделать или хотя бы где можно посмотреть, буду очень признателен!!!!
...
Рейтинг: 0 / 0
Как настроить вызов макроса только при первом открытии Excel
    #36174490
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
chesterfieldaНо все-таки хотелось бы при закрытии отключить внешний диапозон,если он подключен...так что если кто-нить поможет как это сделать или хотя бы где можно посмотреть, буду очень признателен!!!!Привинтите на лист три кнопки: connect, read, disconnect
посмотрите тут по поводу connect/disconnect mdb. при таком подходе сразу пропадает проблема автозапуска и проч.
...
Рейтинг: 0 / 0
Как настроить вызов макроса только при первом открытии Excel
    #36174502
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
недостаток автозаписи запроса к базе в том, что если её переместить, всё летит. А через метод выше можно прописать путь к базе ида Thisworkbook.Path и хранить базу в одной папке с файлом excel.
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как настроить вызов макроса только при первом открытии Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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