Feldnamen durch Makro
16.09.2008 11:03:00
Frank
ich habe ein Makro geschrieben, welches eine Datenbankabfrage macht und die Daten anschließend an Excel übergibt. Der Feldname/Bereich, in den die Daten geschrieben werden soll, heißt "info".
Mein Problem ist nun, dass der Feldname "info" bei jeder Abfrage neu angelegt wird --> "info_1", "info_2" usw.
Die Abfrage wird durch mehrere MA genutzt und läuft am Tag mehrere 100mal wodurch sich tausende Feldnamen angelegt haben, die immer den selben Bereich bedienen. Dadurch ist die Excel-Datei von ursprünglich 120kb auf 6mb angewachsen...
Mit welchem Parameter kann ich den Feldnamen überschreiben anstatt immer neue anzulegen?
Sheets("Daten").Select
Rows("5:35").Select
Selection.ClearContents
Range("A5").Select
.Name = "info"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
Gruß,
Frank
Anzeige