Mehrere Dateiformate importieren
13.04.2021 16:02:19
DanteMan
ich hätte mal eine kurze Frage zwecks Datenimport.
Ich habe eine Excel Datei mit der ich folgendermaßen .xml Dateien öffne und einlesen kann:
Private Sub CommandButton_XML_laden_Click()
Dim strFileName
Dim strFilter As String
Dim xml_Import As Worksheet
'Dateifilter definiert
strFilter = "XML-Dateien(*.xml*), *.xml*;"
'Laufwerk und Pfad in dem die XML-Datei liegt
ChDrive "I"
ChDir "I:\Gruppen"
'dem im Dialogfeld gewählten Namen auslesen
strFileName = Application.GetOpenFilename(strFilter)
'prüfen ob eine gültige Datei ausgewählt wurde
If strFileName = False Then Exit Sub
'gewählte Datei importieren
ActiveWorkbook.XmlImport Url:=strFileName, importmap:=Nothing, overwrite:=True, Destination:= _
Range("$B$4")
End Sub
Nun möchte ich noch neben den xml Dateien auch die Möglichkeit haben Dateien mit der Endung .txt und .proberties auszuwählen und einzulesen. Leider bekomme ich das nicht ganz hin. Hat hier einer von Euch vielleicht einen Tip und kann mir hier weiterhelfen?
Danke schon mal,
Gruß
Dante