CSV datei in exceltabelle umwandeln

Hi, ich habe folgenden Quellcode. Er meint jedes mal das er die Spalte A nicht markieren kann. womit hängt das zusammen. Vielen dank.
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\Desktop\csvdatei.csv"
ActiveWindow.SmallScroll down:=-18
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrator\Desktop\csvdatei.xls", FileFormat:= _
xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\Desktop\csvdatei.xls" 'öffnet workbook csvdatein.csv
Sheets(1).Select 'Wählt CAPSACC aus
Sheets(1).Copy After:=Workbooks("Auswertung.xls").Sheets("Auswertung") 'kopiert CAPSACC und fügt sie bei Auswertund.xls ein
Sheets(2).Name = "Daten"
Windows("csvdatei.xls").Activate
ActiveWindow.Close
Windows("Auswertung.xls").Activate
Sheets("Daten").Select
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A" & y), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1)), TrailingMinusNumbers:=True
Sheets("Auswertung").Select
Range("E14").Select

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Guten Tag etwas spät aber bei mir funktioniert es.

In belibiger Tabelle Button erstellen und Run eintragen z.B

Run "Laden"

Modul erstellen und diese Sub einfügen

Public Sub Laden() 'ist Modul

Dim NameF, NameF1

'**********Datein der Variable NameF zuordnen****************************

Set fs = Application.FileSearch

With fs

   .LookIn = "C:\XXX\YYY\" 'dort stehen die csv Dateien

    .Filename = "*.csv"

        If .Execute > 0 Then

     For Z = 1 To .FoundFiles.Count              ' alle Dateien im Ordner von oben nach unten aufrufen

    NameF = .FoundFiles(Z)                            'aktuelle Datei

NameF1 = "Text;" & NameF

Workbooks.Open NameF

With ActiveSheet.QueryTables.Add(Connection:= _

        (NameF1), Destination:= _

        Range("A1"))

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0  ' wenn größer Null wird Excel-Datei mit zugehörige CSV-Datei ständig syn.

        .TextFilePromptOnRefresh = False

        .TextFilePlatform = xlWindows

        .TextFileStartRow = 1

        .TextFileParseType = xlDelimited

        .TextFileTextQualifier = xlTextQualifierDoubleQuote

        .TextFileConsecutiveDelimiter = False

        .TextFileTabDelimiter = False

        .TextFileSemicolonDelimiter = True

        .TextFileCommaDelimiter = False

        .TextFileSpaceDelimiter = False

        .TextFileColumnDataTypes = Array(1, 1)

        .Refresh BackgroundQuery:=False

    End With

Name = Range("B2")  'hier lese ich aus einer Zelle den Namen aus

ChDir "C:\XXX\ZZZ"  'Zielordner

    ActiveWorkbook.SaveAs Filename:= _

        "C:\XXX\ZZZ\" & Name, _

        FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _

        ReadOnlyRecommended:=False, CreateBackup:=False

Windows(Name & ".xls").Activate

ActiveWorkbook.Save: ActiveWindow.Close 'Datei speichern und schließen

  Next Z

    End If

End With

Fred

Beliebteste Forumthreads (12 Monate)

CSV datei in exceltabelle umwandeln

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

325 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CSV datei in exceltabelle umwandeln

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

325 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread