64bit & keine Ahnung

Moin,

unser Excel wird von 32bit auf 64bit demnächst umgestellt. Ich teste bereits in der 64bit 2019-er Version unsere Excel-Tabellen aus und dabei sind zwei Laufzeitfehler (Beispiel 1 und 2) auffällig. Ich habe absolut keine Ahnung wozu das nötig ist und bräuchte mal Hilfe

Gefunden habe ich ein Beispiel, um 32- und 64bit Code ausführen zu lassen..

#if Vba7 then 

'  Code is running in the new VBA7 editor 

     #if Win64 then 

     '  Code is running in 64-bit version of Microsoft Office 

     #else 

     '  Code is running in 32-bit version of Microsoft Office 

     #end if 

#else 

' Code is running in VBA version 6 or earlier 

#end if 

 

#If Vba7 Then 

Declare PtrSafe Sub... 

#Else 

Declare Sub... 

#EndIf

aber wie kann ich dies umsetzen ?

Beispiel 1

Private Declare Function ShellExecute Lib "Shell32.dll" _

   Alias "ShellExecuteA" (ByVal hWnd As Long, _

   ByVal lpOperation As String, ByVal lpFile As String, _

   ByVal lpParameters As String, ByVal lpDirectory As String, _

   ByVal nShowCmd As Long) As Long

Beispiel 2

Declare Function SHGetPathFromIDList Lib "shell32.dll" _

    Alias "SHGetPathFromIDListA" _

      (ByVal pidl As Long, ByVal pszPath As String) As Long



'Declare Function SHBrowseForFolder Lib "shell32.dll" _

  Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Besten Dank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

64bit & keine Ahnung

21.08.2023 08:31:50

volti

64bit & keine Ahnung

21.08.2023 15:17:04

depi1962

Private Declare PtrSafe Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As LongPtr, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As LongPtr Private Declare PtrSafe Function SHGetPathFromIDList Lib "Shell32.dll" Alias "SHGetPathFromIDListA" ( _ ByVal pidl As LongPtr, ByVal pszPath As String) As Long Private Declare PtrSafe Function SHBrowseForFolder Lib "Shell32.dll" Alias "SHBrowseForFolderA" ( _ lpBrowseInfo As BROWSEINFO) As LongPtr Type BROWSEINFO hOwner As LongPtr pidlRoot As LongPtr pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As LongPtr lParam As LongPtr iImage As Long End Type

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

64bit & keine Ahnung

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread