Importere kommafil og eksportere xls automatisk

Når du bruger guiderne for manuel import af kommafil, kan du gemme specifikationen. Husk navnet, for det kan du så bruge i funktionen

DoCmd.TransferText [transfertype][, specificationname], tablename, filename[, hasfieldnames][, HTMLtablename][, codepage]

Det samme er ikke nødvendigt for Excel filer, så der kan du bruge funktionen

DoCmd.TransferSpreadsheet [transfertype][, spreadsheettype], tablename, filename[, hasfieldnames][, range]

Glem lige det - jeg var i en anden kategori! :-(

Hvis du har mulighed for at ændre din felt afgrænser til semicolon istedet for komma og så give filen extensionen csv, behøver du slet ikke køre den gennem excel, da en DK-excel åbner disse fuldstændig ligesom en alm. excelfil.

Så er spørgsmålet så om en IpaQ PocketPC 2003 kan finde ud af at læse CSV filer. Det er nemmerlig sådan en det skal kastes over på. Jeg udlæser data fra MBS C5, ved du om det er muligt at ændre afgrænseren der?

Prøv lige på din ipaq at gemme en fil som csv.
Åbn den så i notepad, og se hvad din ipaq selv bruger som afgrænsere.
Hvis det er komma, så har du ingen problemer......vel ?
Hvis det noget andet (semicolon fx) må vi jo opfinde en kodestump til dig :-)

Jeg har ikke lige mulighed for at teste på den ipaq endnu, men jeg skal nok skrive når jeg har testet det...

Nu har jeg testet og den ipaq kan kun importere/eksportere de gængse excel formater. Dvs, ingen csv eller lign. Jeg er villig til at kode noget selv hvis der er en der kan fortælle hvordan jeg kommer i gang med det...

Har du arbejdet i VBA koder før?
Du kan sagtens lave hele den process med at åbne kommafilen (hvis det er det samme navn hver gang på kommafilen bliver koden meget kortere), gemme den som excelfil og så lukke excel.

Det jeg vil foreslå dig hvis du selv vil prøve kræfter med kodningen er at optage dig ud af det. Specielt importen af en .txt eller .csv fil er en super hjælp at kunne optage.
Jeg vil måske fraråde dig at lukke Excel efter at have gemt filen, med mindre du laver kontrollerer om der stadig er nogle åbne filer - Når Excel lukkes via kode går der enter noget tabt i åbne ark eller man risikerer at der gemmes noget man ikke lige var interesseret i.

Du kan importere csv filer med en makro i denne form:

Sub ImporterCSV()
   
' Åbner en CSV fil og importerer den til excel
   
    Flt = Flt & "CSV Filer(*.csv),*.csv"
    Titel = "Vælg fil, som skal bearbejdes"
    fileToOpen = Application _
    .GetOpenFilename(Flt, , Titel)
  If fileToOpen <> False Then
   
    Worksheets("ARKNAVN").Activate
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & fileToOpen, Destination _
        :=Range("A1"))
        .Name = "ARKNAVN"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2)
        .TextFileDecimalSeparator = "."
        .TextFileThousandsSeparator = "'"
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    End If
 
End Sub

TextFileXXXDelimiter er hvor du bestemmer hvilket tegn, der deler kolonnerne.

weaponx for point for det gode eksempel. SORRY for den lange acceptid!