Probleme mit QueryTables
11.03.2005 15:42:16
Rudolf
mit diesem Code
...
With ActiveSheet.QueryTables _
.Add(Connection:="TEXT;" & fileToOpen, Destination:=ActiveCell)
.Name = "Rohrnetzliste"
...
lade ich die Records einer TXT-Datei in mein Tabellenblatt und beziehe mich nachfolgend auf den entsprechenden Zellbereich.
...
For Each c In Range("Rohrnetzliste")
c.Value = Trim(c.Value)
Next
...
Am Ende der "Sub" lösche ich die Abfrage und den Namen
...
ActiveSheet.QueryTables("Rohrnetzliste").Delete
ActiveWorkbook.Names("Rohrnetzliste").Delete
...
Das funzt alles wunderbar - leider aber nur beim ersten Durchgang.
Wenn ich danach an anderer Stelle des Tabellenblatts mit derselben Sub eine weitere TXT-Datei importiere, laufe ich auf einen Fehler, weil der entstandene Range dann icht mehr "Rohrnetzliste" sondern "Rohrnetzliste_1" heißt.
Wieso zählt Excel/VBA den Namen hoch (..._1), obwohl ich ihn doch definitiv gelöscht habe? Was mache ich falsch?
Vielen Dank im Voraus,
Rudolf.