Hente data ind i mappe (5 kolonner) fra csv fil via en makro.

Rettelse:
Det er 7 kolonner og ikke 5 som der står i overskrift =;o)

Det kunne være noget i retning af dette:

Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
    .Add(Connection:="TEXT;C:\test.csv", _
        Destination:=shFirstQtr.Cells(5, 4))
With qtQtrResults
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierNone
    .TextFileSemicolonDelimiter = True
    .Refresh
End With

Du kan finde det i VBA's hjælp under TextFileSemicolonDelimiter.

Jeg har oprettet dit forslag i en makro, men der kommer ingen tekst ind i mappen.
Der er ingen fejlmelding, indholdet i den aktuelle 15176.csv fil er præcis som følger:

                            ;;;;KOPI PRODUKTIONSSEDDEL NR: 15176;;
;;;;MRK: Testhus Hørsholm;LEVERES TIL LAGER: 23/01-07;
;;1;stk.;90° udv.hjørne stål a 3000 mm;RAL 7016;3000
;;1;stk.;90° indv.hjørne gips a 3000 mm;RAL 7016;3000

Det ser ud som om der sker en refresh, men ellers intet?

Selvom jeg fjerner mellemrum i første linie er resultat det samme.

Hej igen
Det virker når jeg kun har den aktuelle mappe åben!!
Jeg havde et andet regneark åbent og det kom til gengæld "til skade" ved processen, det gjorde ikke noget denne gang, men hvordan undgår jeg at det sker fremover?
Jeg vil helst holde "aktiviteten" inden for mappen hvor makro ligger i.
mvh.

Set shFirstQtr = Workbooks("Mappe1").Worksheets("Ark1") er én mulighed. Sæt dine egne referencer ind.

Hej brynil
Tak, det spiller fint.
Hvis du sender et svar, vil jeg følge op med accept.
mvh

Fino ;)

Have a nice day.