macro excel 2010

[cosimaro]

Beste,

Volgende macro heb ik oopgenomen in excell 2003:

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

Indien in nu mijn excell werkblad open in excell 2010 en deze macro laat lopen, loopt deze vast op de laatste lijn: Refresh...

Iemand enig idee hoe dat komt of wat ik daar dan juist moet typen?

Dank jullie

 

[edmoor]

"loopt vast op de laatste lijn"
Dat is niet veel info. Belangrijker is te weten welke fout er gegeven wordt.

 

[cosimaro]

Dat is het juist hij geeft geen melding. Macro wordt niet uitgevoerd. Als ik dan ga kijken in VBA staat die laatste lijn met geel gemarkeerd.

gr

 

[edmoor]

Is je werkblad misschien beveiligd?

 

[cosimaro]

Werklblad is niet beveiligd.