Hallo
Habe probiert ein makro, zum öffnen einer txt und importieren in das
geöffnete Tabellenblatt, zu schreiben.
Leider geht der Eintrag immer in eine neue Mappe. Das will ich aber
vermeiden.
Hat jemand eine Idee.
Danke
Flexo
Hi Flexo,
Habe probiert ein makro, zum öffnen einer txt und importieren
in das
geöffnete Tabellenblatt, zu schreiben.
Leider geht der Eintrag immer in eine neue Mappe. Das will ich
aber
vermeiden.Hat jemand eine Idee.
Ja.
Poste mal dein Makro.
Gruß
Reinhard
Habe probiert ein makro, zum öffnen einer txt und importieren
in das geöffnete Tabellenblatt, zu schreiben.
Leider geht der Eintrag immer in eine neue Mappe. Das will ich
aber vermeiden.
Hallo Flexo
Ich glaube, das lässt sich gar nicht vermeiden. Ich habe Makros geschrieben, um Zahlungsfiles (= Textfiles) von Banken und Postcheckämtern ins Excel zu übernehmen. Ich öffne aus dem Excel heraus die Textdatei und konvertiere sie. Dann kopiere ich das Ergebnis und füge es in eine vorhandene Tabelle ein. Und das alles wird von einem Makro erledigt. - Das klappt bestens.
Wenn Du mir ein Muster Deiner Text-Datei schickst, schau ich das gern mal an.
Grüsse Niclaus
Hi Niclaus,
Habe probiert ein makro, zum öffnen einer txt und importieren
in das geöffnete Tabellenblatt, zu schreiben.
Leider geht der Eintrag immer in eine neue Mappe. Das will ich
aber vermeiden.Ich glaube, das lässt sich gar nicht vermeiden.
Bist du da sicher?
Bin in einem Inetcafe ohne Excel und kann es erst morgen o.ä. testen.
Gruß
Reinhard
Ok, habe Dir mal so eine Datei gschickt. Gruss
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Das hier wäre das Makro… leider läuft es nicht. Da meine VBA Kenntnisse bescheiden sind, finde ich den Haken nicht.
Falls da was machbar wäre… danke
Sub CommandButton2_Click()
Dim wks As Worksheet
Dim vFile As Variant
Application.ScreenUpdating = False
Set wks = ActiveSheet
fFile = Application.GetOpenFilename(„Meine Datei (*.txt), *.dat“)
If vFile = False Then Exit Sub
Workbooks.OpenText FileName:=vFile, Tab:=False, semicolon:=False, _
comma:=True, Space:=False, other:=False
Application.ScreenUpdating = True
End Sub
Hi Niclaus,
Habe probiert ein makro, zum öffnen einer txt und importieren
in das geöffnete Tabellenblatt, zu schreiben.
Leider geht der Eintrag immer in eine neue Mappe. Das will ich
aber vermeiden.Ich glaube, das lässt sich gar nicht vermeiden.
Bist du da sicher?
Gruß Reinhard
Grüezi Reinhard
Du hast Recht - wie immer 
)
Ich habe bis jetzt (wie Flexo in seinem Makro) die Textdatei über Menu Datei / Öffnen ins Exel übernommen. Dabei wird immer eine neue Datei erstellt.
Tatsächlich kann man Daten einer Textdatei direkt in eine bestehende Tabelle an eine beliebige Stelle einfügen und zwar mit Menu Daten / Externe Dateien importieren.
Im Makro heisst es dann ActiveSheet.QueryTables.Add(Connection:= _
„TEXT;\ServerName\users$\Flexo\Test .txt“, Destination:=Range(„A1“))
.Name = "Test " usw.
und n i c h t : Application.GetOpenFilename
Ich glaube, damit ich auch die Frage von Flexo beantwortet.
Viele Grüsse und alles Gute
Niclaus
1 „Gefällt mir“
Hallo Niclaus
stimmt… klappt wunderbar. Habe jetzt nur das Problem, dass das Userform wo der Code eingebaut ist einfriert.
Ich werde das Problem mal erläutern, vielleicht kennt ja einer die Lsg.
Danke und Gruss
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]