eseguibile per convertire in automatico file xlsx in csv

[Paolo96]

Per prima cosa grazie per la risposta

La mia ricerca riguarda più la seconda parte, ovvero avrei bisogno di un eseguibile, file .bat, file .vbs e così via in modo da automatizzare il lavoro di questo file tramite l'organizzazione dei programmi di Windows.

Grazie mille in anticipo per l'aiuto

[patel]

prova questo vbs modificando i percorsi

FileOrigine = "F:\Documenti\VBS\1.XLSX"
DestFile = "F:\Download\1.CSV"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(DestFile)
Set ExcelApp = CreateObject("Excel.Application")
Set MySheet = ExcelApp.Workbooks.Open(FileOrigine)
Set zona = MySheet.Worksheets(1).UsedRange 
  For RowCount = 1 To Zona.Rows.Count
    s= ""
    For ColumnCount = 1 To Zona.Columns.Count
      s=s & Zona.Cells(RowCount, ColumnCount).Text & ";"
      If ColumnCount = Zona.Columns.Count Then s=left(s,len(s)-1)
    Next
    f1.WriteLine s
  Next
f1.Close
MySheet.Close
Set MySheet = Nothing
Set zona = Nothing
ExcelApp.Quit
Set ExcelApp = Nothing

[Paolo96]

Grazie mille!!!

Funziona alla perfezione, proprio quello che cercavo!!


Buona giornata e buona settimana

[Paolo96]

Un'altra domanda se posso chiedere, in caso avessi un Excel con più fogli come funziona la conversione con questo script vbs?

Grazie ancora per l'immenso aiuto!!

[patel]

sono nuovo del vbs e quindi vado a tentativi, prova così

FileOrigine = "F:\Documenti\VBS\1.XLSX"
DestFile = "F:\Download\1.CSV"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(DestFile)
Set ExcelApp = CreateObject("Excel.Application")
Set MySheet = ExcelApp.Workbooks.Open(FileOrigine)
For each sh in MySheet.Worksheets
  Set zona = sh.UsedRange 
  For RowCount = 1 To Zona.Rows.Count
      s= ""
      For ColumnCount = 1 To Zona.Columns.Count
        s=s & Zona.Cells(RowCount, ColumnCount).Text & ";"
        If ColumnCount = Zona.Columns.Count Then s=left(s,len(s)-1)
      Next
      f1.WriteLine s
  Next
Next
f1.Close
MySheet.Close
Set MySheet = Nothing
Set zona = Nothing
ExcelApp.Quit
Set ExcelApp = Nothing

[Paolo96]

Non so come ringraziarti, davvero

[Paolo96]

Ciao a tutti, vi chiedo se è possibile convertire un file xls in csv senza utilizzare Excel

[patel]

senza utilizzare Excel significa per te senza averlo installato ? in questo caso leggi qui
https://support.microsoft.com/it-it/...ual-basic-.net

[Paolo96]

si si, esatto sulla macchina secondaria su cui stavo inserendo il tuo script vbs, mi sono accorto che non ha installato il pacchetto office.

io non so come ringraziarti per il link che hai postato, adesso inizio a leggerlo

Grazie ancora!