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:
-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
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? –
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