макрос выдает ошибку Compile error 64bit

Пользователь

Сообщений: 298 Регистрация: 03.07.2020

30.07.2022 21:36:36

Добрый вечер.
Нашел в интернете макрос, пытаюсь его запустить, а он выдает ошибку (связанную с необходимостью перевода в x64)

Как исправить эту ошибку, чтобы макрос запускался ?

Прикрепленные файлы

1.xls (120.5 КБ)

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

30.07.2022 21:47:02

После каждого Declare надо добавить слово PtrSafe
тогда заработает:

Код

Declare PtrSafe Function GetTickCount& Lib "kernel32" ()
Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

ZVI

Пользователь

Сообщений: 4609 Регистрация: 23.12.2012

30.07.2022 21:55:55

В коде используется только Beep, поэтому для любой версии Excel достаточно вместо 3-х строк сверху так:

Код

#If VBA7 Then
  Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#Else
  Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#End If

Dalm Пользователь Сообщений: 298 Регистрация: 03.07.2020	#4 30.07.2022 23:44:32 ZVI, Игорь, понял. Спасибо

Ігор Гончаренко Пользователь Сообщений: 14576 Регистрация: 01.01.1970	#5 31.07.2022 03:44:19 Dalm, я тоже пользуюсь форумом, вместо того чтобы почитать справку а что? очень удобно! и даже и текстом вопроса можно не заморачиваться - форум не справка, тут могут понять о чем речь Изменено: Ігор Гончаренко - 31.07.2022 03:45:57 Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

Читают тему