VBA Excel mit SetCurrentDirectory (ActiveWorkbook.Pfad) funktioniert nicht mit 64-bit

Wir derzeit alle änderungen, die notwendig sind, um unsere VBA-Vorlagen für die Arbeit mit Office 2010 32-bit und 64-bit. Wir laufen in ein Problem, ich habe versucht, Sie zu beheben.

Dies ist der code, funktioniert nur für 32-bit-innerhalb der DynamicXLSAppHandler:

Dim L_Return As Long

'Set Current Directory in SaveAs dialog
If ActiveWorkbook.Path <> "" Then
    ChDrive (ActiveWorkbook.Path)
    ChDir (ActiveWorkbook.Path)
    L_Return = SetCurrentDirectory(ActiveWorkbook.Path)
End If

Der Zweck dieses code ist es, wenn der Benutzer klickt auf "Speichern" oder "Strg-S", werden Sie aufgefordert, ein Dialogfeld speichern unter in das Verzeichnis (Pfad), die Sie ursprünglich geöffnet, das Dokument/die Vorlage aus. Ohne diesen code (wegen der 64-bit-Inkompatibilität) es jetzt einfach öffnet "Dokumente" als Standard, und müssen die Benutzer navigieren Sie zu dem ursprünglichen Pfad.

Frage ich mich, ob es eine neue Möglichkeit dies zu tun, für die 64-bit-Version, oder wenn ich haben, Dinge zu ändern, komplett.

  • Beachten Sie, dass ChDrive wird scheitern, wenn Ihre Arbeitsmappe passiert, gerettet zu werden, auf einem nicht verbundenen Netzlaufwerk, z.B. wenn ActiveWorkbook.Path ist \\mycompany\somedrive\somefolder. Ich habe gelernt, auf die harte Weise.
InformationsquelleAutor Josh3030150 | 2013-06-03
  1. 1

    Verwenden SetCurrentDirectory - API 64-bit, müssen Sie den PtrSafe - Schlüsselwort zu der Deklaration der Funktion:

    #If VBA7 Then
    Private Declare PtrSafe Function SetCurrentDirectory Lib "kernel32" _
        Alias "" SetCurrentDirectoryA(ByVal lpPathName As String) As Long 
#Else
    Private Declare Function SetCurrentDirectory Lib "kernel32" _
        Alias "" SetCurrentDirectoryA(ByVal lpPathName As String) As Long 
#End If

    Übrigens:

    • Warum brauchen Sie ChDrive und ChDir sowie SetCurrentDirectory?

    • ChDir sollte erst überschritten werden, einen Laufwerksbuchstaben, z.B. so:

      ChDrive Left(Activeworkbook.Path, 1)

    • Wir sind nicht über die API, haben wir diese in einer If-Anweisung. Wir verwenden ChDrive und ChDir, um zu füllen Sie die SetCurrentDirectory. Was wir tun ist, verwenden, um füllen Sie die SendAs-pop-up, damit es nicht, werfen Sie die person in das Standard-Verzeichnis (eigene Dateien).
    • Also, was ist SetCurrentDirectory in deinem code? Eine benutzerdefinierte Funktion?
    • Es ist Teil einer benutzerdefinierten Sub-Klasse für die Schritte vor dem Speichern. Also, wenn ich wollte die API in diesem Sub-Klasse, wie würde ich es tun mit dem ActiveWorkbook.Pfad?
    • Ihr code korrekt ist, wie es ist, wenn man die api erklärt, wie ich zeigte. Ich weiß wirklich nicht, was du meinst mit "Sub-Klasse". Wenn Sie die API verwenden, brauchen Sie nicht ChDrive oder ChDir
    • Eine andere Frage, ist dieser code abwärtskompatibel? Also, wenn wir es verwenden, mit Office-32-bit wird es auf die gleiche oder wird es Fehler auslösen? Auch ich entschuldige mich für meine falsche Begriffe, hier ist die erste Zeile code für den Abschnitt, enthält die erste Anweisung ein: Private Sub dynamic_Excelapp_workbookBeforeSave(ByVal I_book As Workbook, ByVal SaveAsUI As Boolean, cancel As Boolean) also wo würde ich die Private Declare innerhalb dass?
    • Hab ich geändert, der code für die 32bit-Kompatibilität. die Erklärung geht an der Spitze Ihrer Klasse Modul, bevor Sie irgendwelche subs
    • Danke Josie, ich mache einen Fehler, indem die ChDir und ChDrive, ich hatte vergessen, dass Sie eigentlich auskommentiert Alter vor und sollte sich nun einfach entfernen. Ich sollte in der Lage sein den code aktualisiert und getestet, heute werde ich aktualisieren, sobald ich testen. Nochmals vielen Dank für Ihre Hilfe bei diesem.
    • Hallo Josie, es scheint, die VBA7 nicht richtig funktioniert. Ich erhalte eine Fehlermeldung beim Debuggen, dass die Staaten "Außerhalb der Prozedur Ungültig". Beachten Sie, dass dies bei der Ausführung im 32-bit-Office.
    • was ist der genaue code, die Meldung bedeutet einfach, Sie haben etwas an der falschen Stelle
    • Am Ende haben wir es nicht brauchen die Richtlinie des 'If VBA7, Anderes'. Ich entfernt das und nur codiert Private Declare PtrSafe Function SetCurrentDirectoryA Lib "kernel32" (ByVal lpPathName Als String) Als Long und das hat geklappt. Danke für Eure Hilfe.

    InformationsquelleAutor JosieP
Schreibe einen Kommentar