title image


Smiley TIPP: Alle Arbeitsblätter einer Excel-Arbeitsmappe als CSV-Datei speichern


Public Function ExportAllSheetsAsCSV(Optional ByVal FileName = "C:\woauchimmer\Test.XLS")

Dim oXLS As New Excel.Application, oWB As Excel.Workbook, _

oS As Excel.Worksheet, FName As String

Set oWB = oXLS.Workbooks.Open(FileName)

For Each oS In oWB.Sheets

FName = Left(FileName, InStrRev(FileName, ".") - 1) & "_" & oS.Name & ".csv"

On Error Resume Next

Kill FName

On Error GoTo 0

oS.SaveAs FileName:=FName, FileFormat:=xlCSV, CreateBackup:=False

Next oS

oWB.Close SaveChanges:=False

oXLS.Quit

Set oS = Nothing: Set oWB = Nothing: Set oXLS = Nothing

End Function





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: