Revision: 2687
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at March 27, 2007 14:20 by corydeppen
Initial Code
Sub saveExcelAsCsv(ExcelFileName As String)
Dim objXlApp As New Excel.Application
Dim objXlBook As Excel.Workbook
' Setup the Excel Workbook to save
Set objXlBook = Excel.Workbooks.Open(ExcelFileName)
' Save the Excel file as a CSV file in a temp location
objXlBook.SaveAs "c:\Windows\Temp\tmpCsvFromExcel.txt", xlCSVWindows
' Clean up
objXlBook.Close True ' Save changes
objXlApp.Quit ' Close Excel
Set objXlBook = Nothing
Set objXlApp = Nothing
End Sub
Initial URL
Initial Description
Initial Title
Save Excel File as CSV
Initial Tags
excel
Initial Language
Visual Basic