import daten untereinander
27.07.2005 11:30:18
tina
ich habe mir folgenden code gebastel:
Sub import ()
dim i as byte
for i = 1 to 9
with activesheet.querytables.add(connection:="text;s:\vb\sc0000" & i & ".txt", destination:=range("A1"))
.name = "sc00001_2"
.fieldnames = true
.rownumbers = false
.filladjacentformulas = false
.preserveformatting = true
.refreshonfileopen = false
.refreshstyle = xlinsertdeletecells
.savepassword = true
.savedata = true
.adjustcolumnwidth = true
.refreshperiod = 0
.textfilepromptonrefresh = false
.textfileplatform = xlwindows
.textfilestartrow = 1
.textfileparsetype = xldelimited
.textfiletextqualifier = xltextqualifierdoublequote
.textfileconsecutivedelimiter = false
.textfiletabdelimiter = true
.textfilesemicolondelimiter = false
.textfilecommadelimiter = false
.textfilespacedelimiter = false
.textfilecolumndatatypes = array(1)
.refresh backgroundquery:=false
end with
next
msgbox "fertig"
End Sub
das ganze zwischen nach dem with habe ich vom makrorecorder. keine ahnung ob ich das alles brauche.
der code läuft , nur die daten aus den txt.dateien werden nebeneinander geschrieben. d.h. datei 1 in reihe A, datei2 in reihe B, usw.
ich möchte aber, dass die daten in reihe A untereinander fortlaufend geschrieben werden.
noch was anderes.
ist es möglich aus txt.datei nur eine zeile auszulesen?
die txt-dateien die ich importiere haben alle 7 zeilen, ich brauche aber nur die zeile, die mit nummer anfängt.
sonst bräuchte ich noch den code, der alle zeilen löscht, in der nicht nummer am anfang steht. nach dem import der txt-dateien.
vielen lieben dank für eure hilfe
die möglichkeit Excel gut - VBA Kenntnisse gab es leider nicht :)
lieben gruss tina