Conversione di un file XLS in CSV

Creato il: 01.06.2015
Questo esempio di script sfrutta Microsoft Excel (che deve essere installato sul PC dove viene eseguito lo script) per aprire un file XLS e salvarlo in formato CSV (separato da virgole)

Option Explicit
 
Dim ExcelApp
Dim MySheet
Dim FileOrigine
Dim FileDestinazione
 
FileOrigine = "C:\prova.XLS"
FileDestinazione = "C:\prova.CSV"
 
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.DisplayAlerts = False
ExcelApp.ScreenUpdating = False
 
Set MySheet = ExcelApp.Workbooks.Open(FileOrigine)
MySheet.SaveAs FileDestinazione, 6 ' CSV
MySheet.Close
 
Set MySheet = Nothing
ExcelApp.Quit
Set ExcelApp = Nothing
....
....


Note:
MySheet.SaveAs "c:\PROVA.CSV", -4158 ' Salva su file delimitato da tabulazioni

Login