Thema Datum  Von Nutzer Rating
Antwort
23.07.2018 12:33:43 Boris
*
Solved
23.07.2018 13:54:37 Gast258
NotSolved
23.07.2018 13:55:00 Gast48165
NotSolved
24.07.2018 13:01:06 Gast68054
NotSolved
24.07.2018 13:23:52 Boris
NotSolved
24.07.2018 13:25:46 Gast84568
NotSolved
24.07.2018 13:56:30 Gast68054
***
NotSolved
24.07.2018 14:31:04 Boris
NotSolved
24.07.2018 20:06:07 Gast26548
NotSolved
26.07.2018 10:28:10 Ulrich
***
NotSolved
26.07.2018 11:05:08 Boris
NotSolved
Blau könnten wir das bitte strukturiert halten?! - Danke
 26.07.2018 15:27:05 Gast65710
NotSolved
27.07.2018 01:40:58 Gast43564
NotSolved

Ansicht des Beitrags:
Von:
Gast65710		 Datum:
26.07.2018 15:27:05		 Views:
378		 Rating:
     
Antwort:
  Ja
Thema:
könnten wir das bitte strukturiert halten?! - Danke

Nun ist mir aufgefallen, dass einige csv dateien ein " | " Trennezeichen haben , da ein deutscher Strandard CSV " ; " ist .

Also das Tool läuft richting , aber fehlt mir noch beim Splitten ein " | " Trennezeichen einzubauen. 

Wie kann ich es lösen ? Habt ihr Ideen ? . 

Da ist Code 

Public Sub csvToxlsx()
    Dim FSO As Object
    Dim folder As Object
    Dim wb As Object
  
    
     'csvPath = "O:\Transform_Tool\"
    'xlsPath = " O:\Transform_Tool\"
    
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set CSVfolder = FSO.GetFolder(csvPath)
    
    If FSO.FolderExists(xlsPath) = False Then
        FSO.createFolder (xlsPath)
    End If
    
    Set XlsFolder = FSO.GetFolder(xlsPath)
    
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With
        
    For Each wb In CSVfolder.Files
        If LCase(Right(wb.Name, 3)) = "csv" Then
            Set activeWB = Workbooks.Open(wb)
            activeWB.SaveAs FileName:=xlsPath & "\" & Left(activeWB.Name, Len(activeWB.Name) - 3) & "xlsx", FileFormat:=xlOpenXMLWorkbook, Local:=True
            activeWB.Close True
        End If
    Next
    
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
End Sub

Viele Grüsse 

Boris

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.07.2018 12:33:43 Boris
*
Solved
23.07.2018 13:54:37 Gast258
NotSolved
23.07.2018 13:55:00 Gast48165
NotSolved
24.07.2018 13:01:06 Gast68054
NotSolved
24.07.2018 13:23:52 Boris
NotSolved
24.07.2018 13:25:46 Gast84568
NotSolved
24.07.2018 13:56:30 Gast68054
***
NotSolved
24.07.2018 14:31:04 Boris
NotSolved
24.07.2018 20:06:07 Gast26548
NotSolved
26.07.2018 10:28:10 Ulrich
***
NotSolved
26.07.2018 11:05:08 Boris
NotSolved
Blau könnten wir das bitte strukturiert halten?! - Danke
 26.07.2018 15:27:05 Gast65710
NotSolved
27.07.2018 01:40:58 Gast43564
NotSolved