Indlæse CVS-fil og med korrekt tidsformat

Har du mulighed for at sende en kopi af csv-filen?

@-adresse under profil.

Det kan jeg :-)

Har sendt det - har du fået det?

Ja - sendte svar 15:16 på din gmail...

Nåå det gjorde du også, det havde jeg ikke set.

28-06-2010 11:16:43.249,100.3884,0

Kunne du evt. beskrive denne rækkes "felter" /hvordan placering i regnearket ønskes?

Tvivlen er i slutningen - er , feltseparator eller?

Felt 1 dato + tid :28-06-2010 11:16:43.249 (249 millisek)
Felt 2 double: 100.3884
Felt 3 double: 0

Skal læses ind fra A1.

Jeg havde forestillet mig bare at åbne den fra Explorer, som jeg plejer med en csv-fil.

Men du tænker måske på åbning fra Excel med makro?

tak - min tanke var nok at "timme" den - måske via en tekstfil.

vender tilbage over middag..

Okay

Rem Version 2
Rem =========
Dim filId As String, del1 As String, del2 As String, del3 As Double
Dim ræk As Long, r As String
Private Sub worksheet_activate()
    filId = Application.GetOpenFilename
   
    ræk = 1
    Open filId For Input As #1
    While Not EOF(1)
        Input #1, del1, del2, del3
            r = ræk
            Range("A" & r) = del1
            Range("B" & r) = del2
            Range("C" & r) = del3
            ræk = ræk + 1
    Wend
    Close #1
   
    Columns.AutoFit
End Sub

Er det et timestamp felt er det nok fordi format(#####) afrunder den ?

Er gemt i fuld længde inde bagved - men det du ser er formateret ...