Dim excel As Microsoft.Office.Interop.Excel.Application
Dim wb As Microsoft.Office.Interop.Excel.Workbook
excel = New Microsoft.Office.Interop.Excel.ApplicationClass
wb = excel.Workbooks.Open(“D:\SampleCSVFile_2kb.csv”)
excel.Visible=True
wb.SaveAs(“D:\deep1.xlsx”,XlFileFormat.xlOpenXMLWorkbook,Type.Missing, Type.Missing, Type.Missing, Type.Missing, XlSaveAsAccessMode.xlExclusive, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing)
wb.Close
excel.Quit
1 Like