2016-09-04 3 views
0

Bitte nicht über die Namenskonventionen mit etwas kommentieren, Ansätze, zu fragen, was der Code tun soll, oder alles, was nicht direkt zu meinem Problem zusammenhängt:msoFileDialogFilePicker in Fehler führt

Dies läuft für mich perfekt , jedes Mal - Ein Fenster erscheint, und ich wähle mehrere Excel-Dateien und ihre Daten werden in mein Blatt hochgeladen (Code nicht abgebildet). Mein Klient sagt, dass er einen Fehler bekommt, wenn er es ausführt, und natürlich nahm ich an, dass es war, weil er es auf einem Mac lief ... aber er sagt, dass er den Fehler auf sowohl PC als auch Mac erhält. Ich kann den Fehler nicht erstellen ... und hier sind wir.

Hier ist der Code in Frage ist, markiert die irrende Linie in gelb: enter image description here

enter image description here

-Code für das Kopieren:

Sub Import_Employee_Sheet() 
    With Application.FileDialog(msoFileDialogFilePicker) 
     .AllowMultiSelect = True 

     If .Show = True Then 
     End If 
    End With 
End Sub 

Antwort

2

Dies ist wahrscheinlich, weil er das nicht gesetzt Microsoft Object [Version number] Library Referenz unter Tools/Referenzen in der IDE, oder weil es kaputt ist. Siehe auch this Post auf, wie man das Problem OHNE die Objektreferenz zu beheben, um ähnliche Probleme in der Zukunft zu vermeiden.

bearbeiten

Es sollte lesen "... ohne die Bibliothek Referenzeinstellung" oben.

+0

Okay, ich sehe die Lösung - Also für meine Ausbildung funktioniert das, weil es eine Ganzzahl anstelle von "MsoFileDialog" verwendet, die von der Bibliothek abhängig ist? –

+0

Das 'FileDialog'-Objekt nimmt einen Parameter in Form einer 'MsoFileDialogType'-Konstante, die den Typ des Dialogfelds darstellt, in diesem Fall den' msoFileDialogFilePicker'. Daher ist der Parameter mit einer Zahl austauschbar (geben Sie Long im Fix ein, nicht Integer, aber das ist nicht wichtig). Der Grund für die Fehlerbehebung liegt in den ersten drei Codezeilen, nicht nur in der ersten. Siehe https://msdn.microsoft.com/en-us/library/office/ff196794.aspx – Miqi180

Verwandte Themen