Stringvariable wechselt nicht den wert...
30.05.2005 16:14:15
henning
ich habe hier folgenden teil eines vba codes:
ChDir strpath
strfile = Dir(strext)
Do Until strfile = ""
Workbooks.OpenText Filename:=strpath & strfile, DataType:=xlDelimited, _
textqualifier:=xlTextQualifierDoubleQuote, consecutivedelimiter:=True, _
Tab:=True, semicolon:=False, comma:=True, Space:=False, other:=True, _
otherchar:="="
Sheets(1).Move after:=ThisWorkbook.Sheets(ThisWorkbook.Worksheets.Count)
strfile = Dir
Loop
die variable strfile (als string dimensioniert) soll als wert jeweils einen dateinamen aus einem verzeichnis annehmen. dies geschieht auch unter strfile = dir. allerdings wechselt weder das strfile in "strfile = """ den wert noch das strfile in "strpath & strfile". das heißt ein und dieselbe variable wird mit 2 werten gleichzeitig behandelt. die oberen beiden behalten stets den unter "strfile = Dir(strext)" festgelegten wert während die untere brav weiterzählt. dies fügt nicht nur ständig dieselbe daei ein sondern läßt vba auch abstürzen weil einerseits der string ausgelaufen ist (keine datei mehr da) und andererseits der string immernoch voll ist (weil noch die erste datei drinsteht).
wo liegt hier das problem?
vielen dank schonmal...
henning