Office: (Office 2016) Umstellunng auf 64-Bit System

EKAB · 1. Februar 2020

Hallo ,

unsere Konzern hat auf Offic365 (Access mit 64bit Version) umgestellt - grundsätzlich laufen die Access Anwendungen ohne Probleme - lediglich bei dieser Funktion kommt eine Fehlermeldung < Typen unverträglich>

Code:

Type DateiDialogStruktur
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (DateiDialogStruktur As DateiDialogStruktur) As LongPtr
Declare PtrSafe Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (DateiDialogStruktur As DateiDialogStruktur) As LongPtr

Private Declare PtrSafe 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 LongPtr
Private Declare PtrSafe Function GetDesktopWindow Lib "user32" () As Long

Public Const OFN_ALLOWMULTISELECT = &H200
Public Const OFN_CREATEPROMPT = &H2000
Public Const OFN_ENABLEHOOK = &H20
Public Const OFN_ENABLETEMPLATE = &H40
Public Const OFN_ENABLETEMPLATEHANDLE = &H80
Public Const OFN_EXPLORER = &H80000
Public Const OFN_EXTENSIONDIFFERENT = &H400
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_LONGNAMES = &H200000
Public Const OFN_NOCHANGEDIR = &H8
Public Const OFN_NODEREFERENCELINKS = &H100000
Public Const OFN_NOLONGNAMES = &H40000
Public Const OFN_NONETWORKBUTTON = &H20000
Public Const OFN_NOREADONLYRETURN = &H8000
Public Const OFN_NOTESTFILECREATE = &H10000
Public Const OFN_NOVALIDATE = &H100
Public Const OFN_OVERWRITEPROMPT = &H2
Public Const OFN_PATHMUSTEXIST = &H800
Public Const OFN_READONLY = &H1
Public Const OFN_SHAREAWARE = &H4000
Public Const OFN_SHAREFALLTHROUGH = 2
Public Const OFN_SHARENOWARN = 1
Public Const OFN_SHAREWARN = 0
Public Const OFN_SHOWHELP = &H10

Dim DateiDialogStruktur As DateiDialogStruktur
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danach soll mit dieser Funktion ein Pop-Up geöffnet werden (Explorer) wo man
eine Datei auswälen kann

Code:

Function OpenPicDialog(sId As String, sSuffix As String, Optional strPathID As String = "")

On Error GoTo Err_Öffnen_Click

Dim sDefaultPath As String
Dim sFileExt As String
Dim sPath As String
Dim sOldPath As String

' Bearbeitbarer Bereich
' ---------------------
sDefaultPath = "c:" 'Standart-Pfad

' ENDE: Bearbeitbarer Bereich
' ---------------------------

' Start Pfad laden
' ----------------
sPath = DateiOeffnen(sDefaultPath, "Datei öffnen")

If (sPath = "") Then
Exit Function ' Kein File geladen, deshalb Sub verlassen
End If

' evt. Allte Datei löschen
sOldPath = GetPicPath(sId, sSuffix, strPathID)
'If sOldPath "" Then
'FileDelete (sOldPath)
'End If

' Datei kopieren
' --------------

sFileExt = Right(sPath, 4) 'Endung auslesen lesen
FileCopy sPath, GetPicDir(strPathID) & "" & sId & sSuffix & "." & sFileExt

Exit_Öffnen_Click:
DoCmd.Hourglass False
Exit Function

Err_Öffnen_Click:
DoCmd.Hourglass False
MsgBox Err.Description
Resume Exit_Öffnen_Click
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider funktioniert das auf dem Office365 / 64-bit System nicht mehr ,
VBA bleibt bei der Zeile Rückwerte = GetOpenFileName(DateiDialogStruktur) mit Fehlermeldung hängen-

Code:

Function DateiOeffnen(Verzeichnis As String, Fenstertitel As String) As String
On Error GoTo Err_DateiOeffnen

Dim Dateityp As String
Dim Dateiname_mit_Pfad As String
Dim Dateiname As String
Dim Rueckwerte As Long

Dateityp = ""

' Bilder
'Dateityp = Dateityp & "Bilder (*.jpg;*.bmp)" & Chr$(0) & "*.jpg;*.bmp" & Chr$(0)

' Alle Dateien
Dateityp = Dateityp & "Alle Dateien (*.*)" & Chr$(0) & "*.*" & Chr$(0)

' Dateitypen in der Auswahlliste des Dateityp's

' Access-Dateitypen
' Dateityp = Dateityp & "Microsoft Access-Datenbanken (*.mdb)" & Chr$(0) & "*.mdb" & Chr$(0)

' Dateityp = Dateityp & "Add-Ins (*.mda)" & Chr$(0) & "*.mda" & Chr$(0)

' Dateityp = Dateityp & "Arbeitsgruppen-Dateien (*.mdw)" & Chr$(0) & "*.mdw" & Chr$(0)

' Dateityp = Dateityp & "MDE-Dateien (*.mde)" & Chr$(0) & "*.mde" & Chr$(0)

' Word-Dateitypen
' Word-Dokumente (*.doc)
' Dokumentenvorlagen (*.dot)
' Rich Text Format (*.rtf)
' Textdateien (*.txt)
' Schedule+-Kontakte (*.scd)
' Persönliches Adreßbuch (*.pab)
' Outlook-Adreßbuch (*.olk)
' MS-DOS Text mit Layout (*.asc)
' Text mit Layout (*.ans)
' HTML Document (*.htm;*.html;*.htx)
' Windows Write (*.wri)
' Lotus 1-2-3 (*.wk1;*.wk3;*.wk4)
' WordPerfect 6.x (*.wpd;*.doc)
' Microsoft Excel-Arbeitsmappen (*.xls)
' Works 3.0 für Windows (*.wps)
' Works 4.0 für Windows (*.wps)

' Excel-Dateitypen
' Textdateien (*.prn;*.txt;*.csv)
' QuattroPro/DOS-Dateien (*.wq1)
' Microsoft Works 2.0-Dateien (*.wks)
' dBASE-Dateien (*.dbf)
' Add-Ins (*.xla;*.xll)
' Mustervorlagen (*.xlt)
' Arbeitsbereiche (*.xlw)
' Tabellen (*.xls)

' Sicherungsdateien (*.xlk;*.bak)
' HTML-Dateien (*.html;*.htm)

' Vorgegebenes Verzeichnis
If Verzeichnis = "" Then
' Wenn leer, dann soll das aktuelle Verzeichnis verwendet werden
Verzeichnis = CurDir$ & Chr$(0)
Else
' ANSI "0" an das übergebene Verzeichnis anhängen
Verzeichnis = Verzeichnis & Chr$(0)
End If

If Fenstertitel = "" Then
' Wenn kein Titel übergeben worden ist
Fenstertitel = "Datei öffnen"
Else
' ANSI "0" an übergebenen Fenstertitel anhängen
Fenstertitel = Fenstertitel & Chr$(0)
End If

' Speicherplatz für Dateieintrag (mit Pfadangabe) reservieren
Dateiname_mit_Pfad = Space$(255) & Chr$(0)

' Speicherplatz für Dateieintrag (ohne Pfadangabe) reservieren
Dateiname = Space$(255) & Chr$(0)

'Datenstruktur von DateiDialogStruktur festlegen
DateiDialogStruktur.lStructSize = Len(DateiDialogStruktur)
DateiDialogStruktur.hwndOwner = 0&
'DateiDialogStruktur.hwndOwner = Application.hWndAccessApp
DateiDialogStruktur.lpstrFilter = Dateityp
DateiDialogStruktur.nFilterIndex = 1
DateiDialogStruktur.lpstrFile = Dateiname_mit_Pfad
DateiDialogStruktur.nMaxFile = Len(Dateiname_mit_Pfad)
DateiDialogStruktur.lpstrFileTitle = Dateiname
DateiDialogStruktur.nMaxFileTitle = Len(Dateiname)
DateiDialogStruktur.lpstrInitialDir = Verzeichnis
DateiDialogStruktur.lpstrTitle = Fenstertitel
DateiDialogStruktur.flags = OFN_FILEMUSTEXIST Or OFN_PATHMUSTEXIST Or OFN_HIDEREADONLY Or OFN_LONGNAMES
DateiDialogStruktur.nFileOffset = 0
DateiDialogStruktur.nFileExtension = 0
DateiDialogStruktur.lCustData = 0
DateiDialogStruktur.lpfnHook = 0
DateiDialogStruktur.lpTemplateName = ""

Rueckwerte = GetOpenFileName(DateiDialogStruktur)

If Rueckwerte 0 Then
DateiOeffnen = Left(DateiDialogStruktur.lpstrFile, InStr(DateiDialogStruktur.lpstrFile, Chr$(0)) - 1)
End If

Exit_DateiOeffnen:
Exit Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Err_DateiOeffnen:
MsgBox Err.Description
Resume Exit_DateiOeffnen

End Function

Sicher für euch VBA-Prodifis eine Kleinigkeit --> klar ist der Konzern stellt nicht auf 32-bit zurück.

Danke für die Hilfe
Franz

:)

markusxy · 3. Februar 2020

Vergiss es.
Es gibt seit Jahren eine eigene Klasse dafür, mit einer Unmenge von Möglichkeiten.

Google einfach nach VBA Datei dialog.

EKAB · 3. Februar 2020

Danke aber kann mir niemand die Stelle zeigen wo ich den VBA-Code anpassen muss, damit diese Funktion auch wieder auf dem 64-bit System funktioniert ?

Danke

markusxy · 7. Januar 2021

von EKAB

Danke aber kann mir niemand die Stelle zeigen wo ich den VBA-Code anpassen muss
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das wären viele Änderungen notwendig.
Und es macht keinen Sinn seine Zeit dafür zu verschwenden.
Außer natürlich du willst die Zeit anderer bezahlen.

Aber schau dich einfach um.
Hier oder im Outlook Forum müsste es ein funktionierendes Beispiel geben.

EKAB · 3. Februar 2020

Leider habe ich die Zeit nicht und vrmtl. auch nicht das VBA Wissen.
Aber wenn doch dieser Code unter der 32-bit Version funktioniert kann es doch für einen VBA Programmierer nicht das Thema sein diesen auch lauffähig unter der 64-Bit Version zu machen.

Gerne kann das auch gegen Entgelt sprich Rechnung an eine Firma gemacht werden - an dem sollte es nicht scheitern.

Danke
Franz

jhc · 18. Februar 2020

Hallo,
ist das noch aktuell?
Als Firma kann ich das machen.
Gruß
Jo

Office: (Office 2016) Umstellunng auf 64-Bit System

Umstellunng auf 64-Bit System

Umstellunng auf 64-Bit System

Umstellunng auf 64-Bit System

Umstellunng auf 64-Bit System - Similar Threads - Umstellunng Bit System

"Klasse nicht registriert" nach Umstieg auf 64 Bit

ACC 2016 / Runtime 32-/64-Bit

Front- und Backend verknüpfen/verlinken 64-bit

Umstellung auf Windows 64 bit, Code-Anpassung

Office 365 64 Bit-Version, VBA-Code funktioniert nicht mehr

Microsoft Teams Version 1.3.00.12058 (64-Bit) und Problem mit Bluetooth Headsets

Problem mit Zertifikat Outlook 2007 Win7 Pro 64 bit