E
EnHoE007
Gast
Hallo zusammen
Könnt ihr mir bitte helfen und zwar:
Ihr kennt sicher die Funktion "Externe" Daten Importieren im EXCEL, wo man das Trennzeichen (Meistens Tab oder Komma) eingeben kann und man bekommt dann eine schöne Tabelle.
Mein Inputfile Sieht folgendermassen aus: (Wurde mit einem PGM zuvor gemacht)
Vorname¦Nachname¦Geb¦ ... ist an einem String und alle Wörter sind mit Trennzeichen "¦" getrennt.
Nun möchte ich halt per "Knopfdruck" auf dem Blatt auf welchem ich mich befinde die Funktion "Externe Daten Importieren" ausführen lassen. Ich bin soweit gekommen:
Ich denke die Aktion muss ich nun an der markierten Kommentarstelle reinwursteln.
Danke für jeglichen Input!
Gruss
Könnt ihr mir bitte helfen und zwar:
Ihr kennt sicher die Funktion "Externe" Daten Importieren im EXCEL, wo man das Trennzeichen (Meistens Tab oder Komma) eingeben kann und man bekommt dann eine schöne Tabelle.
Mein Inputfile Sieht folgendermassen aus: (Wurde mit einem PGM zuvor gemacht)
Vorname¦Nachname¦Geb¦ ... ist an einem String und alle Wörter sind mit Trennzeichen "¦" getrennt.
Nun möchte ich halt per "Knopfdruck" auf dem Blatt auf welchem ich mich befinde die Funktion "Externe Daten Importieren" ausführen lassen. Ich bin soweit gekommen:
Code:
Private Sub btn_sfs_ausw_Click()
'KONSTANTEN
Const delimiter = "¦"
'DEKLARATIONEN
Dim FileStream, InputFile
Dim mySheet As Worksheet
Dim FileAuswahl As FileDialog
Dim InputFilname As Variant
Dim Header As String
Dim Inputline As String
Set FileAuswahl = Application.FileDialog(msoFileDialogFilePicker)
If FileAuswahl.Show = -1 Then
InputFilename = FileAuswahl.SelectedItems.Item(1)
tb_sfs.Text = FileAuswahl.SelectedItems.Item(1)
Else
MsgBox ("Keine Datei ausgewählt!")
Exit Sub
End If
Set FileStream = CreateObject("Scripting.FileSystemObject")
Set InputFile = FileStream.OpenTextFile(InputFilename, 1, False)
Header = InputFile.ReadLine
Do While InputFile.AtEndOfStream <> True
Inputline = InputFile.ReadLine
Set mySheet = sheet_filter
mySheet.Name = "Filter"
'Hier muss jetzt Di Zeile aufgesplittet Werden und der Delimiter richtig aufgelöst werden und _
' Zeilenweise aufs Blatt geschrieben werden.
Loop
InputFile.Close
End Sub
Ich denke die Aktion muss ich nun an der markierten Kommentarstelle reinwursteln.
Danke für jeglichen Input!
Gruss