Office: Code von 32-Bit auf 64-Bit umschreiben

Hallo

Ich habe vor längerer Zeit von einem Bekannten eine Excel Datei bekommen, mit der ich Dateien und Orte bestimmter Laufwerke auflisten kann

Jedoch liefe diese datei nur unter 32bit.
Da ich jetzt aber ein 64-Bit System mit mit 64-Bit Office müsste man einen Teil des Codes umschreiben. Ich weiß aber nicht, wie ich anfangen muss.

---------
Public Type BROWSEINFO '
hOwner As Long '
pidlRoot As Long '
pszDisplayName As String '
lpszTitle As String '
ulFlags As Long '
lpfn As Long '
lParam As Long '
iImage As Long '
End Type '
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
'############################################################################### #############


Private z!

Sub Dateisuche(Laufwerk, Dateien)
Dim tmp, Wdhlg, Dateiname As String
On Error Resume Next
If Right(Laufwerk, 1) "" Then Laufwerk = Laufwerk + ""
tmp = Dir(Laufwerk & Dateien)
Do While Len(tmp)
Dateiname = Laufwerk & tmp
Application.StatusBar = Dateiname
'Die folgenden Angaben können auch in eine Feldvariable
'oder in eine Listbox eingelesen werden:
Cells(z, 1).Select
Cells(z, 1) = Laufwerk & tmp 'Pfad
Cells(z, 2) = FileLen(Laufwerk & tmp) 'Größe
Cells(z, 3) = FileDateTime(Laufwerk & tmp) 'Datum/Zeit
Cells(z, 4) = tmp 'nur Dateiname
z = z + 1
tmp = Dir()
Loop
tmp = Dir(Laufwerk, vbDirectory)
Do While Len(tmp)
If (tmp ".") And (tmp "..") Then
If (GetAttr(Laufwerk & tmp) And vbDirectory) = vbDirectory Then
Dateisuche Laufwerk & tmp, Dateien
z = z - 1
Wdhlg = Dir(Laufwerk, vbDirectory)
z = z + 1
Do While Wdhlg tmp
Wdhlg = Dir()
Loop
End If
End If
tmp = Dir()
Loop
On Error GoTo 0
Application.StatusBar = False
End Sub


'Aufruf mit dem folgenden Makro
Sub Suchen()
Dim Laufwerk$, Dateien$
'Erste Zeile, in der eine Eintragung erfolgt
z = 2
'Alte Eintragungen löschen
[a2:e50000] = ""
'Den Variablen Laufwerk und Dateien kann auch ein Wert direkt zugewiesen werden.
Laufwerk = GetDirectory("Bitte einen Ordner wählen") 'Ersatz: ... = C:Eigene Dateien"
If Laufwerk = "" Then Exit Sub
'Ersatz: Dateien = "*.*"
Dateien = InputBox("Nach welchen Dateien soll in" & Chr(10) & " " & Laufwerk & Chr(10) & "gesucht werden (z. B. *.xls)?", "Dateityp", "*.*")
If Dateien = "" Then Exit Sub
Dateisuche Laufwerk, Dateien
End Sub



'Ruft das Dialogfeld zur Ordnerauswahl auf
Function GetDirectory(Msg) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim r As Long, x As Long, pos As Integer
With bInfo
.pidlRoot = 0&
.lpszTitle = Msg
.ulFlags = &H1
End With
x = SHBrowseForFolder(bInfo)
path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
GetDirectory = Left(path, pos - 1)
Else
GetDirectory = ""
End If
End Function

Vielleicht kann mir jemand helfen.

:)

 

Moin!
Teste mal
Declare PtrSafe Function

Gruß Ralf

 

Danke für deinen Tip.
Aber ich muss gestehen, dass ich eigentlich von VBA keine Ahnung habe.

 

Hallo zusammen,

der Tip von Ralf alleine sollte so nicht ganz reichen. *wink.gif*

Unter 64 Bit (wer braucht ein 64 Bit Office ? *rolleyes.gif* ) sollte man SHGetPathFromIDList gar nicht mehr verwenden.

Alternative siehe z.B. hier
https://social.msdn.microsoft.com/Fo...forum=exceldev

Mit der Zeile ruft du alle Ordner auf
Debug.Print ShellGetFolder(BIF_BROWSEINCLUDEFILES, "Select a folder", BIF_BrowseFolder)

 

Hier Übersicht über 64-Bit-Visual Basic for Applications sollte alles benötigte stehen, aber andererseits, so wie es aussieht, haben wir einen Cargo-Kult-Fall, also hilft es nicht *frown.gif*

 

Wo muss ich den den Befehl

Debug.Print ShellGetFolder(BIF_BROWSEINCLUDEFILES, "Select a folder", BIF_BrowseFolder)

einfügen??

Ich möchte ja, in jedem Tabellenblatt, die unterschiedlichen Ordner aussuchen, wo sich die jeweiligen Dateien befinden.

Sorry, weil ich keine Ahnung hab.

Und was soll Cargo-Kult-Fall bedeuten ???

 

Frag den Bekannten, alles andere wird eine Endlos-Orgie. Du schreibst ja selber, Du hast keine Ahnung und willst, wenn ich das richtig sehe, im Grunde nur, dass das eine Makro wieder läuft.

 

Hallo,

ganz verrückte Idee von mir ...

Schmeiss das 64 Bit Office von der Platte und installiere die 32 Bit Version ... die läuft genauso auf deinem Windows und ich kenne keine Vorteile eines 64 Bit Office gegenüber der 32 Bit Variante.
Oder arbeitest du mit riesigen Dateien und DataSets ?
https://support.office.com/de-de/art...e-6c6f49b8d261