Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Muss nochmal nerven: Textbox mit Tabs einlesen
06.11.2008 08:27:00
TomTom
Hi,
bin leider immer noch nicht weiter gekommen, suche immer noch die Möglichkeit, eine Textdatei (mit Tabstopps Trennzeichen) in eine Excel Datei zu lesen. dabei sollte man mit dem öffnen Dialog die Datei vorher auswählen können.
Hier nochmal meine Datei:
https://www.herber.de/bbs/user/56543.zip
hat jemand ein einfaches Beispiel ? Wenn nach dem Import in der Excel leere Spalten entstehen, sollen diese aber nicht nachträglich gelöscht werden (so wie beim Textkonvertierungs-Assistent bei Excel das Menü "Aufeinanderfolgende Trennzeichen als ein Zeichen behandeln" bewirkt)
Wäre echt wichtig :-(
Danke mal
Tom

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Muss nochmal nerven: Textbox mit Tabs einlesen
06.11.2008 09:14:27
Rudi
Hallo,
teste mal:

Sub ReadFile()
Dim strTxt As String, myArr, lngL As Long, wks As Worksheet
Dim strFile As String
With Application.FileDialog(1)
.AllowMultiSelect = False
.InitialFileName = "n:\test\*.txt*" 'anpassen
.InitialView = 2
If .Show = -1 Then
strFile = .SelectedItems(1)
End If
End With
If strFile  "" Then
lngL = 1
Open strFile For Input As #1
Set wks = Workbooks.Add(1).Sheets(1)
Do Until EOF(1)
Line Input #1, strTxt
myArr = Split(strTxt, vbTab)
With wks
.Range(.Cells(lngL, 1), .Cells(lngL, UBound(myArr) + 1)) = myArr
End With
lngL = lngL + 1
Loop
Close #1
End If
End Sub


Gruß
Rudi

Anzeige
SUPPI, vielen Dank :-))) o.T.
06.11.2008 09:28:00
TomTom
Hallo Rudi, noch ne kleine Nachfrage
06.11.2008 10:04:27
TomTom
...
beim Import der Daten werden diese nicht in die Datei mit dem Makro importiert, sondern das Makro öffnet ein neues, seperates Tabellenblatt und importiert die Daten da rein.
Kannst Du das Makro so ändern, damit die Daten in der gleichen Datei in das Tabellenblatt "IMPORTDATEN" reinkommen ?
Wäre nett,
Danke
Tom
Habs selber gefunden, danke oT
06.11.2008 11:12:00
TomTom

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige