Thema Datum  Von Nutzer Rating
Antwort
Rot MsgBox Code Problem - Bitte Hilfe!
19.01.2015 11:02:02 YG
NotSolved
19.01.2015 17:07:24 Gast56869
NotSolved
20.01.2015 09:32:00 YG
NotSolved
20.01.2015 09:55:23 Gast77586
NotSolved
20.01.2015 10:06:55 YG_ Nachtrag WICHTIG
NotSolved

Ansicht des Beitrags:
Von:
YG
Datum:
19.01.2015 11:02:02
Views:
515
Rating: Antwort:
  Ja
Thema:
MsgBox Code Problem - Bitte Hilfe!

Ich möchte eine Datei die ich per msg Box auswählen kann zu csv umwandeln kann mir hier wer helfen?

Würde mich auch nicht stören wenn der code komplett überarbeitet wird, bräuchte drigend eine Lösung bitte danke :)

 

Sub XLSzuCSV()
        
        Dim fDir As String
        Dim wB As Workbook
        Dim wS As Worksheet
        Dim sMsg As String
        Dim sPath As String
        
        sMsg = "Wählen Sie bitte einen Ordner aus:"
        sPath = getdirectory(sMsg)
 
        Dim c As String
        If sPath = "" Then
        c = MsgBox("Sie haben kein Verzeichnis ausgewählt, das Programm wird beendet!", vbOKCancel)
        If c = vbCancel Then
      GoTo sprungmarke
    Else
       MsgBox "Programm wird beendet!"
       Application.Quit 'Excel wird geschlossen
    End
    End If
 
End
        fDir = Dir(fPath)
        Do While (fDir <> "")
        If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsm" Then
        On Error Resume Next
        Set wB = Workbooks.Open(fPath & fDir)
        For Each wS In wB.Sheets
        wS.SaveAs sPath & wS.Name, xlCSV, _
        CreateBackup:=False, local:=True
        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 genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot MsgBox Code Problem - Bitte Hilfe!
19.01.2015 11:02:02 YG
NotSolved
19.01.2015 17:07:24 Gast56869
NotSolved
20.01.2015 09:32:00 YG
NotSolved
20.01.2015 09:55:23 Gast77586
NotSolved
20.01.2015 10:06:55 YG_ Nachtrag WICHTIG
NotSolved