CSV bestand via macro

[hans1974]

Hallo,
Als ik dit bestand met een macro wil oproepen verandert zijn indeling tegenover dat je de link opvraagt via het web
Bijgevoegd het bestandje.

Is er iemand die hiermee kan helpen?

Alvast bedankt!

 

[Ralbers]

Ik denk dat ik weet waar het fout gaat

Je download hier namelijk niet het bestand
je kopieert de inhoud
Dus dan neem je de "speciale" eigenschappen van het csv niet mee

Ik gok dat het daardoor komt

Als je hem importeerd ipv kopieert gaat het beter

Sub Macro1()
    Cells.ClearContents
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;http://www.regelleistung.net/download/RZ_SALDO_BETR_IST-WERTE.CSV", Destination:=Range( _
        "$A$1"))
        .Name = "RZ_SALDO_BETR_IST-WERTE_1"
        .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 = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Ik weet niet of het bij jouw werkt
Maar volgens mij is het beter dan wat je had

 

[hans1974]

Bedankt, werkt perfect.

Ik heb het kunnen doen zonder macro aan de hand van uw suggestie door te importeren als tekst!!

Alvast bedankt voor de hulp