Indlæsning CSV-filer i Excel 2003

Prøv i stedet at mporterer filen, her får du mulighed for at vælge separator eller definerer en fast bredde. Her kan du ofte relativt let redde opstillingen af CVS og andre formater

mporterer  = importerer (findes hvis jeg husker rigtigt i filer - importer)

Det kræver at jeg gemmer filen på disken og det vil jeg gerne undgå, jeg ønsker at åbne filen fra Outlook.

Når du åbner filer i outlook, så gemmes den på disken i temp og jeg tror ikke du har anden mulighed. Du skal ind og have fat i outlooks funktionalitet for at behandle filen og det kan du, mig bekendt kun fra disken

En mulighed:

Rem Koden indsættes i ThisWorkbook i en ExcelFil
Rem Reference til Microsoft Outlook 11.0 Object Library sættes i VBA - Tools - References
Rem =====================================================================================
Sub workbook_activate()
Dim mailApp, Namespace, indbakke, m, vf
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")
    Set indbakke = Namespace.GetDefaultFolder(olFolderInbox)

Rem Gennemløber indbakken
    If indbakke.Items.Count > 0 Then
        For m = 1 To indbakke.Items.Count

Rem Hver mail test for vedhæftet fil - p.t. behandler kun vedhæftet fil
                If indbakke.Items(m).Attachments.Count > 0 Then

Rem henter filnavnet / Gem temp.
                    vf = LCase(indbakke.Items(m).Attachments(1).Filename)
                    indbakke.Items(m).Attachments(1).SaveAsFile "c:\" + vf
                   
Rem Indeholder filnavnet .csv og (mailen stadig er ulæst... så...) annulleret p.t.
                    If InStr(vf, ".csv") > 0 Then 'And indbakke.Items(m).UnRead = True Then
                        importerCSV (vf)

Rem marker som læst
                        indbakke.Items(m).UnRead = False
Rem Slet templagring
                        Kill "c:\" + vf
                    End If
                End If
        Next m
    End If
End Sub
Private Sub importerCSV(filNavn)
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\" + filNavn, _
        Destination:=Range("A1"))
'        .Name = "t4"
        .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 = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Undskyld det sene svar. Jeg ved ikke, hvor og hvordan jeg skal indsætte koden. Kan du også hjælpe med det? vh MMbrade

Ok - kode indsættes som anført:

Rem Koden indsættes i ThisWorkbook i en ExcelFil
Rem Reference til Microsoft Outlook 11.0 Object Library sættes i VBA - Tools - References

Åbn Excel - tryk Alt+F11 - VBA åbnes - aktiver ThisWorkbook - indsæt koden
Ref til OutLook - VBA - Tools - References - find Microsoft OutLook 11.0 (2003) eller 10.0 (Xp) - sæt flueben - OK