Makro Import und Zeilen löschen
03.06.2003 13:38:17
Chris
ich muß aus einer Datei (.xls) täglich Daten in eine andere Excel-Datei importieren.
Doch bevor die neuen Daten eingetragen werden, muß die Zeile 1-4 gelöscht werden, da hier nur Schrott steht und die eigentlichen Spaltenüberschriften in Zeile 5 zu finden sind.
Habe das Makro aufgezeichnet:
Sub Import()
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=D:\Eigene Dateien\gbimmo.xls;Mode=Share Deny Write;Extend" _
, _
"ed Properties=""HDR=YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine" _
, _
" Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:Ne" _
, _
"w Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Co" _
, _
"mpact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _
), Destination:=Range("A1"))
.CommandType = xlCmdTable
.CommandText = Array("' Testimport$'")
.Name = "test"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = "D:\Eigene Dateien\test.xls"
.Refresh BackgroundQuery:=False
End With
End Sub
Wo und wie muß ich im Makro erfassen, das die Zeilen vor dem Import gelöscht werden?
Kenne mich damit nicht so gut aus.
Braucht man überhaupt die ganzen Zeilen die beim aufzeichnen entstanden sind?
Vielen Dank für Eure Hilfe,
Chris