Macro's in excell 2003

[cosimaro]

Beste,
Ik gebruik al jaren dezelfde sheet met dezelfde macro om gegevens te importeren.
Vandaag wordt deze macro niet meer uitgevoerd.
Ik snap niet goed wat er verkeerd loopt. Eerst krijg ik automaiseringsfout en nu geeft het systeem fout 1004 tijdens uitvoering:
Door de toepassing of door object gedefinieerde fout

Hieronder kunnen jullie de macro lezen:

Sub Import()

Sheets("Saldo's grootboek").Select
Cells.Select
Selection.ClearContents
Range("A1").Select

With ActiveSheet.QueryTables.Add(Connection:="TEXT;T:\RAPPORT.TXT", _
Destination:=Range("A1"))
.Name = "RAPPORT"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub

Regel boven End With staat in het geel.
Kan er iemand mij hiermee helpen?

Thanks

 

[Mark xl]

Kun je een voorbeeldbestand linken, en een voorbeeld textbestand?