Thema Datum  Von Nutzer Rating
Antwort
Rot Hilfe bei VBA zur Umwandlung von XLSX in CSV
 14.01.2015 09:29:08 Pablo
Solved
14.01.2015 09:38:36 Pablo
NotSolved
14.01.2015 11:15:53 Gast93972
NotSolved
14.01.2015 13:50:20 Pablo
NotSolved
14.01.2015 15:54:31 Esmeralda
NotSolved
14.01.2015 15:58:39 Pablo
NotSolved
14.01.2015 17:22:56 MarkusK
NotSolved
15.01.2015 15:07:45 Pablo
NotSolved

Ansicht des Beitrags:
Von:
Pablo		 Datum:
14.01.2015 09:29:08		 Views:
1264		 Rating:
     
Antwort:
 Nein
Thema:
Hilfe bei VBA zur Umwandlung von XLSX in CSV

Bräuchte Hilfe bei dem Code irgendwie funktioniert er nicht...

Sub SaveToCSVs()

        Dim fDir As String
        Dim wB As Workbook
        Dim wS As Worksheet
        Dim fPath As String
        Dim sPath As String
        fPath = "C:\Users\Admin\Documents\EINGANG\"
        sPath = "C:C:\Users\Admin\Documents\AUSGANG\"
        fDir = Dir(fPath)
        Do While (fDir <> "")
        If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" Then
        On Error Resume Next
        Set wB = Workbooks.Open(fPath & fDir)
        For Each wS In wB.Sheets
        wS.SaveAs sPath & wS.Name, xlCSV
        Next wS
        wB.Close False
        Set wB = Nothing
        End If
        fDir = Dir
        On Error GoTo 0
        Loop
        
End Sub

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
Rot Hilfe bei VBA zur Umwandlung von XLSX in CSV
 14.01.2015 09:29:08 Pablo
Solved
14.01.2015 09:38:36 Pablo
NotSolved
14.01.2015 11:15:53 Gast93972
NotSolved
14.01.2015 13:50:20 Pablo
NotSolved
14.01.2015 15:54:31 Esmeralda
NotSolved
14.01.2015 15:58:39 Pablo
NotSolved
14.01.2015 17:22:56 MarkusK
NotSolved
15.01.2015 15:07:45 Pablo
NotSolved