Hallo Leute,
habe mir jetzt ein VBA Code zusammen gestellt, bei dem eine feste Datei im vorhinein ausgewählt wurde. Dies funktioniert soweit auch wie geplant.
Mit Application.FileDialog sollte das meiner Meinung nach auch funktionieren, allerdings bin ich ein wenig hilflos wie ich dies nun einbinde...
Hier mal das Beispiel:
Edit: Hab den Befehl Application.FileDialog gefunden. Aber ich weiss leider immer noch nicht, wie ich jetzt die ausgewählte Datei einbinde. Bekomme hiermit immer einen Laufzeitfehler.
habe mir jetzt ein VBA Code zusammen gestellt, bei dem eine feste Datei im vorhinein ausgewählt wurde. Dies funktioniert soweit auch wie geplant.
Mit Application.FileDialog sollte das meiner Meinung nach auch funktionieren, allerdings bin ich ein wenig hilflos wie ich dies nun einbinde...
Hier mal das Beispiel:
Visual Basic-Quellcode
- Dim fso As Object
- Public Function XMLDateiEinlesen() As String
- Dim oFileDialog As FileDialog
- Set oFileDialog = Application.FileDialog(msoFileDialogFilePicker)
- With oFileDialog
- .Title = "Import XML"
- .Filters.Add "XML-Dateien", "*.xml", 1
- .ButtonName = "Auswählen"
- If .Show = -1 Then XMLDateiEinlesen = .SelectedItems(1)
- End With
- End Function
- Sub XMLAuslesen()
- Dim ZeilenNr As Integer
- Dim fo As Object ' Ordner
- Dim fi As Object ' Datei
- ZeilenNr = 1
- Worksheets(1).Activate ' Erstes Tabellenblatt
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set fo = fso.GetFile(XMLDateiEinlesen)
- MsgBox ("Fertig")
- End Sub
Edit: Hab den Befehl Application.FileDialog gefunden. Aber ich weiss leider immer noch nicht, wie ich jetzt die ausgewählte Datei einbinde. Bekomme hiermit immer einen Laufzeitfehler.
