Io ho trovato questo programma di visual basic, ma il csv viene generato con il separatore , io avrei bisogno come separatore ;

Mi sapreste aiutare?

Grazie



Option Explicit


Dim ExcelApp
Dim MySheet
Dim FileOrigine
Dim FileDestinazione


FileOrigine = "C:\prova.XLSX"
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