csv oder txt einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Klaus,
hier ein Import-Makro erstellt unter Excel 365 (aktuelle Version 2021-03-07).
LG
Franz

Sub KR_Import_CSV_TXT()
' Import einer CSV- oder TXT-Datei nach Zelle A1 ins aktive Tabellenblatt
Dim varDatei
Dim wkbImport As Workbook
Dim wksImport As Worksheet
Dim rngCopy As Range
Dim wksZiel As Worksheet
'Ziel-Tabellenblatt setzen
Set wksZiel = ActiveSheet
'Name der zu importieren Datei auswählen
varDatei = Application.GetOpenFilename(Filefilter:="CSV/TXT-Dateien (*.txt;*.csv), *.txt;*. _
csv", Title:="Bitte CSV- oder TXT-Datei für den Import auswählen")
If varDatei = False Then Exit Sub
'Bildschirm-Aktualisierung deaktivieren
Application.ScreenUpdating = False
'CSV/Text-Datei öffnen
Application.Workbooks.OpenText varDatei, Origin:=xlWindows, Startrow:=1, _
Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False, DecimalSeparator:=" _
.", Local:=False
Set wkbImport = ActiveWorkbook
Set wksImport = wkbImport.Worksheets(1)
'Daten in Zieltabelle kopieren
Set rngCopy = wksImport.UsedRange
rngCopy.Copy wksZiel.Range("A1")
'Dateiname unter kopierten Daten einfügen
wksZiel.Cells(rngCopy.Rows.Count + 1, 1) = varDatei
'CSV/Text-Datei ohne zu speichern wieder schliessen
wkbImport.Close Savechanges:=False
'Bildschirm-Aktualisierung wieder aktivieren
Application.ScreenUpdating = True
End Sub

Sorry Franz, igendwo habe ich mich da verritten. Dein Makro funktioniert perfekt ! Erst, wenn ich ein paar Ziel-Adressen auf dem Tabellenblatt verschiebe, wird die Dateiherkunft nicht mehr in der letzen Zeile + 1 angezeigt. Fehler am Rande : ich muß oft das, was ich nun aus - dem Block, den ich aus Deiner eingelesenen csv erstellt habe, neu generieren/berechnen lasse. Mal geht trotz einschalteter Neuberechnung F9, mal muß ich Zelle für Zelle alles einzeln ! anklicken und via Enter eine Neuberechnung erzwingen. Ich würde Dir gerne meine Unkenntnis in der Gesamtheit zeigen, was ich leider mit 300 kB nicht darstellen läßt. Darf ich Dir so irgendwo ca. 1 MB zur Durchsicht zeigen/in's Netz stellen, ohne H. Herber zu verärgern, um zu erkennen, wo ich da wieder falsch abgebogen bin ? Oder magst Du mir KlausReich att web Punkt de zumindest für diese Monster-Datei Deine Mailadresse nennen ? Alles weitere mit dem Hinweis, das ich da in der "privaten" Korrespondenz noch eine Datei an Dich versendet habe, die selbstverständlich auch für interessierte Herbers öffentlich ist.
Gruß, Klaus Reich

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread