importeren op juiste plaats

[SoHoCA]

Ik probeer nu via een macro gegevens in te lezen van csv bestanden.
Op zich lukt het inlezen, maar bij ieder nieuwe file diw wordt ingelezen schuiven de kolommen op.
ik gebruik onderstaande macro:

Sub MS_IMPORT()
'
' MS_IMPORT Macro
'

' weghalen oude data
    Sheets("Data").Select
    Cells.Select
    Selection.ClearContents
    
 'importeren nieuwe data
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;\\8001DC01\Home$\r.pronk\Mijn ICT\sitemonitor\logfiles\sitemonitor.csv", _
        Destination:=Range("$A$2"))
        .Name = "sitemonitor_146"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = True
        .TextFileColumnDataTypes = Array(4, 1, 2, 2, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        
 End With
     With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;X:\Reconvalescentenschool\Medewerkers Data\ICT\Internet log\65_Ad\sitemonitor.csv" _
        , Destination:=Range("a65000").End(xlUp))
        
        .Name = "sitemonitor"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

Moet er een regel aangepast worden, zodat er bij het invoeren wel wordt gestart op de eerst nieuwe lege regel, maar niet dat de kolommen die er al stonden opschuiven.

Alvast (weer) bedankt

 

[ExcelAmateur]

SoHoca,

Ik zie dat je al lid ben vanaf Dec. 2009
Dan zou je toch wel moeten weten dat je de code tussen de tags moet zetten.

 

[SoHoCA]

sorry

SoHoca,

Ik zie dat je al lid ben vanaf Dec. 2009
Dan zou je toch wel moeten weten dat je de code tussen de tags moet zetten.

Wel al lang lid maar niet vak iets gevraagd.
En zeker geen codes meegestuurd, maar zal het volgende keer zeker doen.

Natuurlijk wel even zien hoe dit moet maar zal wel lukken denk ik.

Niet alles is voor iedereen altijd logisch, anders zou dit forum er nooit zijn