Textdatei genau indie Mappe mit dem Makro einlesen
Logan
Erst einmal möchte ich Hans Herber für die Datei danken, mit der er meine letzte Anfrage baeantwortet hat.
Aber genau dazu hab ich jetzt wieder zwei Probleme(Die Probleme sind im Quelltext durch Hier erstmal der Code des Userforms, den ich durch H. Herber jetzt habe:
Option Explicit
Private Sub cmdOpen_Click()
If Dir(txtFile1.Text) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Else
Workbooks.Open txtFile.Text <--- 1.)
End If
Unload Me
End Sub
Private Sub cmdSelect_Click()
Dim vFile As Variant
vFile = Application.GetOpenFilename("Textdateien (*.txt), *.txt") <--- 2.)
vFile = False Then Exit Sub
txtFile1.Text = vFile
End Sub
zu 1.) Ich würde die Text-Datei gerne in genau die Arbeitsmappe einlesen, in der ich auch mein Modul habe! So wie es jetzt ist, öffnet sich ein neues Fenster, in das die Tabelle mit den Daten aus der *.txt eingefügt wird. Geht das irgendwie einfacher, als die Tabellen von der neuen Arbeitsmappe in die mit meinem Modul reinkopieren zu lassen?
zu 2.)Also in der Auswahl des Dateiformats hätte ich gerne nicht nur *.txt zur Auswahl, ich möchte auch noch zusätzlich Excel-Dateien auswählen lassen können. Wenn ich es weglasse, bekomme ich nur alles angezeigt, und so will ich das auch nicht!
MfG Logan