Office: (Office 2016) FileDialog von 32-Bit auf 64-Bit umstellen

ChrisKal · 9. Oktober 2019

Hallo NG,
in unserer Firma auf Office 365 64-Bit umgestellt. Meine Access Anwendung habe ich soweit wieder am Laufen. Mein Problem ist, dass jetzt der FileDialog nicht mehr funktioniert. Es wird das Dialogfenster nicht geöffnet und es kommt auch keine Fehlermeldung. Mit der 32 Bit Version von Access hat es super funktioniert.

Vielen Dank für Eure Hilfe!
Christian
Code:

Option Compare Database
Option Explicit

'Funktionen DateiOeffnen bzw. DateiSpeichern aufrufen
'DateiÖffnen durch DateiOeffnen ersetzt

Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" Alias _
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" Alias _
"SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath$) As Long

Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Declare PtrSafe Function GetSaveFileName Lib "comdlg32.dll" Alias _
"GetSaveFileNameA" (pSavefilename As SAVEFILENAME) As Long

Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iTmage As Long
End Type

Private Type OPENFILENAME
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 Long
End Type

Private Type SAVEFILENAME
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 Long
End Type

Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_READONLY = &H1
Public Const OFN_HIDEREADONLY = &H4
Public Const BIF_RETURNONLYFSDIRS = &H1

Public Function VerzeichnisWählen(Title$, XHwnd As Long) As String
Dim x As Long, BInfo As BROWSEINFO, dwIList As Long
Dim szPath$, wPos%

With BInfo
.hOwner = XHwnd
.lpszTitle = Title
.ulFlags = BIF_RETURNONLYFSDIRS
End With
dwIList = SHBrowseForFolder(BInfo)
szPath = Space$(512)
x = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
If x Then
wPos = InStr(szPath, Chr(0))
VerzeichnisWählen = Left$(szPath, wPos - 1)
Else
VerzeichnisWählen = " "
End If
End Function

Public Function DateiOeffnen(Optional Titel, Optional Filter, _
Optional DefExtension, Optional Aktdir) As String
Dim strDateiName$, strDlgTitel$, strFilter$
Dim strDefExtension$, strAktDir$, strNull$
Dim OpenDlg As OPENFILENAME

strNull = Chr$(0)
strDateiName = String$(512, 0)
If IsMissing(Titel) Then
strDlgTitel = "Datei öffnen" & strNull
Else
strDlgTitel = Titel & strNull
End If
If IsMissing(Filter) Then
strFilter = "Alle Dateien" & strNull & "*.*" & strNull & strNull
Else
strFilter = Filter
End If
If IsMissing(DefExtension) Then
strDefExtension = strNull
Else
strDefExtension = DefExtension & strNull
End If
If IsMissing(Aktdir) Then
strAktDir = CurDir$ & strNull
Else
strAktDir = Aktdir & strNull
End If
With OpenDlg
.lStructSize = Len(OpenDlg)
.hwndOwner = Screen.ActiveForm.Hwnd
.lpstrFilter = strFilter
.nFilterIndex = 1
.lpstrFile = strDateiName
.nMaxFile = Len(strDateiName)
.lpstrInitialDir = strAktDir
.lpstrTitle = strDlgTitel
.Flags = OFN_FILEMUSTEXIST Or OFN_READONLY
.lpstrDefExt = strDefExtension
If GetOpenFileName(OpenDlg) 0 Then
DateiOeffnen = Left$(.lpstrFile, InStr(.lpstrFile, strNull) - 1)
Else
DateiOeffnen = " "
End If
End With
End Function

Public Function DateiSpeichern(Optional Titel, Optional Filter, _
Optional DefExtension, Optional Aktdir) _
As String
Dim strDateiName$, strDlgTitel$, strFilter$
Dim strDefExtension$, strAktDir$, strNull$
Dim SaveDlg As SAVEFILENAME

strNull = Chr$(0)
strDateiName = String$(512, 0)
If IsMissing(Titel) Then
strDlgTitel = "Datei öffnen" & strNull
Else
strDlgTitel = Titel & strNull
End If
If IsMissing(Filter) Then
strFilter = "Alle Dateien" & strNull & "*.*" & strNull & strNull
Else
strFilter = Filter
End If
If IsMissing(DefExtension) Then
strDefExtension = strNull
Else
strDefExtension = DefExtension & strNull
End If
If IsMissing(Aktdir) Then
strAktDir = CurDir$ & strNull
Else
strAktDir = Aktdir & strNull
End If
With SaveDlg
.lStructSize = Len(SaveDlg)
.hwndOwner = Screen.ActiveForm.Hwnd
.lpstrFilter = strFilter
.nFilterIndex = 1
.lpstrFile = strDateiName
.nMaxFile = Len(strDateiName)
.lpstrInitialDir = strAktDir
.lpstrTitle = strDlgTitel
.Flags = OFN_HIDEREADONLY
.lpstrDefExt = strDefExtension
If GetSaveFileName(SaveDlg) 0 Then
DateiSpeichern = Left$(.lpstrFile, InStr(.lpstrFile, strNull) - 1)
Else
DateiSpeichern = " "
End If
End With
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

markusxy · 10. Oktober 2019

Da müssten mehrere Lösungen zu finden sein, da das Thema schon mehrfach behandelt wurde.

Aber Google einfach nach Access Filedialog.
Da finden sich Lösungen, mit der Office Filedialog Klasse, die es schon seit Office 2007 gibt.

Edit:
Das grundsätzliche Problem: Die Deklarationen wurden zwar als PtrSafe (PointerSafe) deklariert ohne die Deklaration wirklich so zu gestalten, dass sie sowohl für 32 als auch für 64 Bit passt. Das betrifft aber auch die Typ Deklarationen.

knobbi38 · 11. Oktober 2019

Hallo Christian,

exakt dieses Thema wurde schon mehrfach behandelt und die Probleme sind immer die gleichen:
Die Deklarationen müssen nach 64Bit umgeschrieben werden, ebenso die benutzerdefinierten Datentypen.
Bei der Verwendung diese benutzerdefinierten Datentypen muß auch noch darauf geachtet werden, daß für die Berechnung der Länge eines Types ggf. die LenB() Funktion zu verwenden ist.

Warum verwendest du nicht den eingebauten Filedialog?

Ulrich

Joss · 11. Oktober 2019

Hallo Christian,

du könntest mal einen anderen Dateiauswahldialog testen:
VBA Tipp: Dateiauswahl-Dialog 1

... und einen anderen Verzeichnisauswahldialog:
VBA Tipp: Ordnerauswahl-Dialog 1

Vielleicht hilft dir das weiter?

Gruß
Josef

EKAB · 3. Februar 2020

Hallo ,

ich habe exakt das gleiche Problem mit fast dem gleichen Code. Was wurde hier denn als Lösung angeboten ?

Gruss
Franz

ReginaR · 3. Februar 2020

Hallo Franz, das steht doch alles in den vorangegangenen Beiträgen.
Das Umschreiben auf 64-bit ist nicht gnaz trivial, wenn es "nur" um den Datei-Öffnen -Dialog geht, gibt es entspanntere Lösungen (siehe Links in den Beiträgen).

EKAB · 3. Februar 2020

Hallo Regine,

das mag für einen VBA Programmierer schon zutreffen - leider bin ich das nicht.
Der Code des wohl meine Access-Datei vor Jahren verwendete (nicht von mir) hat jetzt mehr als 15 Jahre funktioniert und leider verwendet unsere Gruppe nun ein 64-Bit System .

Der Code öffnet einen DateiDialog und kopiert eine Datei und einer bestimmten ID zu einem Ort auf dem File.Server. Ich kann nicht beurteilen ob das mit diesen VBA-Codes im Post auch gehen würden.

Gibt es hier im Forum keine VBA Programmierer die das anpassen könnten - gegen eine Rechnung selbstverständlich

Danke
Franz

knobbi38 · 3. Februar 2020

Hallo Franz,

wenn es sich nur um die Dateiauswahl handelt, kann der in Access eingebaute Filedialog normalerweise die API Funktionen ersetzen und ist automatisch 64Bit fähig. Das sollte kein großes unterfangen sein.

Siehe auch Beispiel hier:
https://docs.microsoft.com/de-de/off...ion.filedialog

Allerdings können neben API Aufrufen andere Dinge, wie z.B. nicht mehr unterstütze Libraries oder ActiveX-Komponenten, einem das "Leben" schwer machen. Dann wird die Umstellung u.U. schnell kompliziert bis gar unmöglich.

Gruß Ulrich

PS: Beispiele mit dem Access-Filedialog gibt es hier im Forum genug - einfach mal suchen.

EKAB · 3. Februar 2020

Hallo Ulrich,

danke dir und allen für die Hilfe hier im Forum. Vrmtl. werde ich dieses Thema nicht lösen können, weil meine VBA-Kenntnisse zu gering sind.

Ich bekommen ja nur an 1 Stelle die Feldermeldung --> Fehler beim Kompilieren Typen unverträglich !

Rueckwerte = GetOpenFileName(DateiDialogStruktur)

Vrmtl. hier liegt irgendwo der Grund, dass die 64-bit Version nicht funktioniert.

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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber kann ein VBA-Programmierer hier im Forum nicht gegen ein Entgelt dieses Problem lösen ?

Der bisherige Code macht halt genau das was wir brauchen

Gruss
Franz

markusxy · 3. Februar 2020

\@EKAB,
es müssen alle Deklarationen und alle Strukturen geändert werden.
Da passt nichts zusammen. In erster Linie geht es darum, alles was ein Pointer ist in LongPtr umzuwandeln. Aber eben nur die Pointer. Man muss also genau verstehen, was jeder einzelne Parameter bedeutet.

Wenn es nur um das Aussehen geht, kann man das gleiche auch mit der Shell Klasse machen. Die nutzt vermutlich die selben API Methoden wie dein Code.

Ansonsten würde ich wie erwähnt den File Dialog nehmen.

Du kannst mir eine PN schicken, wenn du wen suchst der das für euch macht.

EKAB · 3. Februar 2020

Hallo Markus,

danke dir , was meinst du mit PN ? Kann ich dir nicht einfach per Mail einen Auszug aus der DB mit genau diesem Problem senden , du erledigst das und schickst und eine Rechnung ?

Danke
Franz

markusxy · 3. Februar 2020

PN = Private Nachricht.

Meinen Namen anklicken - > Eine Private Nachricht an markusxy schicken
wählen...

micmen · 1. Mai 2020

eben erst gesehen - da gibt es ja doch noch neuere Threads zu diesem Problem...
habe verteilt auf mehrere Seiten Puzzleteil für Puzzleteil die Infos für die Lösung gefunden und das hier mal zusammengefaßt aufgeschrieben:
comdlg32.dll-Dateidialog: so für 64bit anpassen

ist ganz schnell angepaßt...

P.S.:
Und diese MS-Lösung ist ein ziemlicher Schrott: Der Filter ist armselig und das Feld für die zu wählende Datei zeigt dauernd irgendwelche irritierenden Strings an.

jhc · 4. Mai 2020

Hallo,
mach das doch einfach so.

Code:

Public Function Dateiname() As String
Dim f As Office.FileDialog
Dim f As Office.FileDialog
Set f = Application.FileDialog(msoFileDialogFilePicker)

f.Show

If f.SelectedItems.Count > 0 Then ' Prüfen auf 'Abbrechen'-Button
Dateiname = f.SelectedItems(1)
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So schlimm ist das doch nicht.

Office: (Office 2016) FileDialog von 32-Bit auf 64-Bit umstellen

FileDialog von 32-Bit auf 64-Bit umstellen

FileDialog von 32-Bit auf 64-Bit umstellen

FileDialog von 32-Bit auf 64-Bit umstellen

FileDialog von 32-Bit auf 64-Bit umstellen

FileDialog von 32-Bit auf 64-Bit umstellen

FileDialog von 32-Bit auf 64-Bit umstellen - Similar Threads - FileDialog Bit Bit

FileDialog

Mehrfache Auswahl mit FileDialog

Filedialog-Filter nicht erkannt

XLS2000: FileDialog u. sht.protect

Effizienter Import/Export mit TransferSpreadSheet und FileDialog

Datei mit FileDialog direkt öffnen

FileDialog

Users found this page by searching for:

ms access file dialog ohne ocx