Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

nochmal txt.Import

nochmal txt.Import
02.10.2003 17:06:04
Heiko F.
Hallo nochmal an alle ,
hatte vor 2 Stunden schon die Frage gestellt und eine super Lösung bekommen
(Reinhardt und Hans ).-- DANKE!

Nun eine andere Frage. Mit dem Modul wird die txt datei ausgelesen und eingefügt.
Ich möchte nun das Modul in einer Art Mustermappe abspeichern und die txt .Datei
soll in eine vorhenden xls Datei KBR01.xls kopiert werden.
Könnt ihr mir nochmal helfen ?


Sub TextImport()
Dim arr As Variant
Dim iRow As Integer, iCounter As Integer
Dim sFile As String, sTxt As String
sFile = Range("P1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
iRow = 9
Close
Open sFile For Input As #1
icol = 6 'F-Spalte
iRow = 9
For n = 1 To 6 'ersten 6 Zeilen überlesen
Line Input #1, sTxt
Next n
Do Until EOF(1) Or iRow > 2888
Line Input #1, sTxt
sText = sText & ";" 'damit hinter C ein ; steht falls c letzter wert in Zeile
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, ";")) ' A weg
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, ";")) ' B weg
Cells(iRow, icol).Value = Left(sTxt, InStr(sTxt, ";") - 1) 'C in F schreiben
iRow = iRow + 1
Loop
Close
End Sub



Danke
Heiko

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

Betreff
Datum
Anwender
Anzeige
AW: nochmal txt.Import
02.10.2003 17:33:18
geri
Hallo Heiko

ergäzte am schluss den Code

Sheets("Tabelle1").Copy Before:=Workbooks("KBR01.xls").Sheets _
(1)

dann wird das Quellblatt ins KBR01 gestellt als Kopie und zear am Anfang --> vor Blatt1

gruss geri
AW: nochmal txt.Import
02.10.2003 17:39:26
Heiko F.
Hallo Geri,
bin newbie ,

wo muß ich das Teil genau einfügen?

Danke

Heiko
AW: nochmal txt.Import
02.10.2003 17:43:58
geri
Heiko

vor end SUB

gruss geri
AW: nochmal txt.Import
02.10.2003 17:58:28
Heiko F.
Hallo Geri,

da kommt Fehler 'Index außerhalb des gültigen Bereiches'

Heiko
AW: nochmal txt.Import
02.10.2003 18:37:35
geri
da hat es Adressfehler nehme an das Zielfile ist der Titel falsch
bitte kontrolliere dies
sonst gehe einfach zu EXTRAS / mAKROS UND ZEICHNE EINFACH GENAU DAS AUF WAS DU MÖCHTEST Zb STARTE Aufzeichnung --> Blatt kopieren, Ziel öffnen usw.
und dann füge diesen Code vor End

Sub ein oder schreibe vor END 

Sub Call "dein Name von Makro"
hat den Vorteil du kannst die Vorgänge auch für die Zukunft besser nachvollziehen
gruss geri

Anzeige
AW: nochmal txt.Import
02.10.2003 21:42:42
Heiko F.
Ok ich versuchs mal.

Vielen Dank für Deine Mühe.
Alles Gute.

Heiko

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige