Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CSV datei in exceltabelle umwandeln

CSV datei in exceltabelle umwandeln
22.09.2005 11:55:45
Daniel
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CSV datei in exceltabelle umwandeln
23.09.2005 09:33:39
Fred
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

Anzeige

369 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige