Werkbladen Excel document opslaan als csv

[DJ.Funny]

Beste allemaal,


Heb na veel zoeken een mooi script gevonden wat mijn xlsx bestand omzet naar een csv bestand.

Helaas alleen werkblad wat tijdens het opslaan actief was .

Zitten googelen e.d. maar krijg het niet voor elkaar om alle werkladen om te zetten naar csv.

Voorbeeld: 12345678.xlsx wordt omgezet naar 12345678.csv echter had het originele bestand 3 werkbladen en zou ik dus bijvoorbeeld het volgende willen krijgen:

12345678_01.csv
12345678_02.csv
12345678_03.csv

En bij 4 werkbladen uiteraard nog een vierde document 12345678_04.csv

Het gaat om deze code:

Set lstArgs = WScript.Arguments
For I = 0 to lstArgs.Count - 1 ' Loop through each file

    FullName = lstArgs(I)
    FileName = Left(lstArgs(I), InStrRev(lstArgs(I), ".") )

' Create Excel Objects
    Set objWS = CreateObject("Excel.application")
    set objWB = objWS.Workbooks.Open(FullName)
    

    objWS.application.visible=false
    objWS.application.displayalerts=false
'MsgBox FileName
    objWB.SaveAs FileName & "csv", 23
    objWB.SaveAs 
    objWS.Application.Quit
    objWS.Quit   

' Destroy Excel Objects
    Set objWS = Nothing
    set objWB = Nothing
    
Next

Even kort wat extra info het betreft hier een vb-script wat ik middels een taak oproep.

c:\testen\vbs\XLSX2CSV.vbs c:\testen\vbs\docs\12345678.xlsx

Het volgende document c:\testen\vbs\docs.12345678.csv wordt aangemaakt.

Meerdere worksheets krijg ik niet voor elkaar.

vbs bijgesloten!


Groeten Dirk

Bekijk bijlage XlSX2CSV.zip

 

[mastermindzh]

1x je vraag stellen is voldoende. (/toegestaan)
Ik sluit deze daarom en er kan verder gegaan worden op de originele vraag van 8 november: http://www.helpmij.nl/forum/showthread.php/839469-Werkbladen-Excel-document-opslaan-als-csv


Veel succes nog met de vraag