Public ExlFile As String
Private Exl As Excel.Application
 
Public Sub Auto_Open()
  Dim cmdBar As CommandBar
  Dim cmdClick As CommandBarButton
  Dim sNam As String
  sNam = "EXCLControl"
  With Application.ActiveExplorer
     For Each cmdBar In .CommandBars
        If cmdBar.Name = sNam Then
           .CommandBars(sNam).Delete
        End If
     Next
     .CommandBars.Add sNam
     .CommandBars(sNam).Visible = True
     Set cmdClick = .CommandBars(sNam).Controls.Add
     With cmdClick
        .Visible = True
        .Caption = "Excel - > .CSV"
        .Style = msoButtonIconAndCaption
        .BuiltInFace = True
        .FaceId = 588 'Hier evtl. anderes Ikon
        .OnAction = "MakeEXLCSV"
     End With
  End With
End Sub
 
Private Sub MakeExlcsv()
   Dim FileVar As Variant
   If ExlFile = "" Then
      ExlFile = InputBox("Bitte geben Sie den Pfad und den Namen sowie die" & _
        "Tabelle " & _
                         "der zu konvertierenden Excel-Arbeitsmappe an." + _
                         vbCrLf + _
                         "z.B: C:Eigene DateienMappe1.XLS!Tabelle1", _
                         "Excel - > *.CSV Konvertierung")
   End If
   If ExlFile = "" Then Exit Sub
   If InStr(ExlFile, "!") = 0 Then
      MsgBox "Sie haben keine Tabelle angegeben!", vbExclamation, "Fehler:"
      Exit Sub
   End If
   FileVar = Split(ExlFile, "!")
   If Dir(FileVar(0)) = "" Then
      MsgBox "Die angegeben Excel-Arbeitsmappe konnte nicht gefunden werden.", _
        vbExclamation, "Fehler:"
      Exit Sub
   End If
   Set Exl = New Excel.Application
   With Exl
      .Workbooks.Open ExlFile
      .ActiveWorkbook.Sheets(FileVar(1)).Select
      .ActiveWorkbook.SaveAs FileName:=FileVar(0) + "" + FileVar(1), FileFormat _
        :=xlCSV, CreateBackup:=False
      .ActiveWorkbook.Saved = True
      .Quit
   End With
   Set Exl = Nothing
End Sub