Script til import af data fra csv

Er der kun een linie i CSV-filen  ?

og er der altid samme antal oplysninger ?

Jeps... csv filen består af én lang streng.

Og der er altid samme antal oplysninger. Nogle kan dog være tomme. Så ser strengen sådan ud: "oplysning1","","oplysning3" osv...

denne kode skal indsættes i arkets eget kodemodul (højreklik på arkfanen og vælg Vis Programkode og indsæt koden.

Den virker automatisk ved ændring af Celle A1, hvor jeg formader du skriver et nyt filnavn.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("a1")) Is Nothing Then
    FSOReadFile (Target.Text)
End If

End Sub
Sub FSOReadFile(filnavn)
    Dim fs, a
    Dim MyVar
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.OpenTextFile(filnavn, 1, False)
    MyVar = Split(a.ReadAll, ",")
    Range("B2") = MyVar(0)
    Range("B3") = MyVar(1)
    Range("F6") = MyVar(2)
    Range("F7") = MyVar(3)
    'ect.....
   
    a.Close
End Sub

Umiddelbart ser det fornuftigt ud.

Kan det laves, så scriptet aktiveres af en knap, der først popper en imputbox op, hvori filnavn intastes?

og det var selvfølgelig "inputbox" ;)

...importen initieres herefter ved klik på OK. :)

Jo.. slet Private Sub Worksheet_Change(ByVal Target As Range)

Derefter laver du en knap på arket vha. Kontrolelementer (ikke Forms)

indsæt så dette istedet

Private Sub CommandButton1_Click()
Dim Fil As String
'Fil = Application.InputBox("Indtast filnavn", "Fil Import", , , , , , 2)
'If Not Fil = "" Then FSOReadFile (Fil)

Fil = Application.GetOpenFilename()
If Not Fil = "False" Then FSOReadFile (Fil)
End Sub


Du kan nu vælge mellem at bruge Application.GetOpenFilename eller Inputbox.
Den første er mest fejlsikker :-)

Du får lige hele koden og lavet så den ser efter csv-filer

Private Sub CommandButton1_Click()
    Dim Fil As String
    Fil = Application.GetOpenFilename(("CSV-Filer (*.csv), *.csv"))
    If Not Fil = "False" Then FSOReadFile (Fil)
End Sub


Sub FSOReadFile(filnavn)
    Dim fs, a
    Dim MyVar
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.OpenTextFile(filnavn, 1, False)
    MyVar = Split(a.ReadAll, ",")
    Range("B2") = MyVar(0)
    Range("B3") = MyVar(1)
    Range("F6") = MyVar(2)
    Range("F7") = MyVar(3)
    'ect.....
    a.Close
End Sub

Jeg kan sagtens se ideen med scriptet. Og det ser rigtig fornuftigt ud. Jeg kan bare ikke få det til at fungere i praksis. Men nu er jeg heller ikke vanvittigt hård til Excel.

Kan jeg lokke dig til at proppe det i et ark, og sende det til mig? :)

mikael.pedersen <snaldre-a> email.dk

Sendt

Helt perfekt.

Tak for det, og go' jul. :)

smider du lige et svar.

OK og i lige måde  :-)

Kunne jeg evt. få sendt det regneark ?

Og kunne jeg måske få dig til at kigge på mit ? http://www.eksperten.dk/spm/840689