Приложение VBA AddressOf Crash Office

Я хочу запустить простой фрагмент, но evertime Access и Excel сбой.

Я бегу CallbackTest2, не могли бы вы мне помочь. Благодарю выделение.

Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" ( _ ByVal lpPrevWndFunc As Long, _ ByVal hwnd As Long, _ ByVal msg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) _ As Long Sub CallbackTest2() CallWindowProc AddressOf CallbackMsg, 0, 0, 0, 0 End Sub Public Function CallbackMsg _ (msg As String, _ ByVal nUnused1 As Long, _ ByVal nUnused2 As Long, _ ByVal nUnused3 As Long) MsgBox "CallBack Work :)" & msg End Function 

Нашел решение.

Вещи, которые я меняю:

  • CallbackMsg от функции до суб
  • Строковый параметр, заполненный данными VarPtr («Hallo Welt»)

РАБОЧАЯ ВЕРСИЯ:

 Private Declare Function CallWindowProc _ Lib "user32.dll" Alias "CallWindowProcA" ( _ ByVal lpPrevWndFunc As Long, _ ByVal hwnd As Long, _ ByVal msg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long private Sub CallbackTest2() CallWindowProc AddressOf CallbackMsg, VarPtr("Hallo Welt"), 0, 0, 0 End Sub Private Sub CallbackMsg( _ msg As String, _ ByVal nUnused1 As Long, _ ByVal nUnused2 As Long, _ ByVal nUnused3 As Long) MsgBox msg End Sub 
  • Импорт формулы Excel в MS Access
  • Получение количества строк в таблице с помощью Access VBA без использования справочника Excel
  • Как экспортировать данные из базы данных Oracle в файл csv?
  • Дополнительное пространство в новом столбце, образованное объединением двух столбцов в Excel
  • получение непредвиденной ошибки из внешнего драйвера базы данных (1) при импорте данных из Excel для доступа
  • Unrecognized DB Format-Excel VBA для доступа к базе данных
  • Не удается открыть файл Excel 2013 после его редактирования через Access 2013 VBA
  • Excel связан с доступом, связанным со 2-мя замками Excel, которые Excel
  • Удалить дубликаты и объединить данные в одной ячейке в формате html в MS Outlook
  • VBA Excel - Запрос доступа не обновляется
  • Ссылка на текущий файл Excel / лист
  • Давайте будем гением компьютера.