Esportazione dati in formato Excel XLS tramite script di post processing

Creato il: 04.02.2015
Esempio di script di post-processing per convertire in formato Excel XLS, il file CSV esportato con separatore di campo TAB

Option Explicit
 
Dim ExcelApp
Dim MySheet
Dim FileOrigine
Dim FileDestinazione
 
FileOrigine = ExportFilter.OutputFileName
FileDestinazione = FileOrigine & ".XLSX"
Rdy.LogForm_Show False, True
LogForm_Progress 0, 0, "Conversione CSV-Excel"
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.DisplayAlerts = False
ExcelApp.ScreenUpdating = False
Set MySheet = ExcelApp.Workbooks.Open(FileOrigine)
MySheet.SaveAs FileDestinazione, 51
MySheet.Close
Set MySheet = Nothing
ExcelApp.Quit
Set ExcelApp = Nothing
Rdy.LogForm_Hide

Login