How to open an Excel file and save a copy as CSV programatically?

[Bill nguyen]

How can I open an Excel file then SAVE AS .CSV file using VB.NET?

Thanks
Bill

[Paul Clement]

On Tue, 24 May 2005 21:03:42 -0700, "Bill nguyen" <bi*****************@jaco.com> wrote:

¤ How can I open an Excel file then SAVE AS .CSV file using VB.NET?
¤

You can use ADO.NET to do this:

Dim ExcelConnection As New
System.Data.OleDb.OleDbConnection("Provider=Micros oft.Jet.OLEDB.4.0;" & _
"Data Source=e:\My Documents\Book20.xls;Extended Properties=""Excel
8.0;HDR=NO;IMEX=1""")

ExcelConnection.Open()

Dim ExportCommand As New System.Data.OleDb.OleDbCommand("SELECT * INTO [Text;DATABASE=E:\My
Documents\TextFiles].[Sheet4.csv] FROM [Sheet4$]")

ExportCommand.ExecuteNonQuery()
ExcelConnection.Close()
Paul
~~~~
Microsoft MVP (Visual Basic)

[Bill nguyen]

Thanks Paul.
I'll try it right away.
Thanks
Bill
"Paul Clement" <Us***********************@swspectrum.com> wrote in message
news:67********************************@4ax.com...

On Tue, 24 May 2005 21:03:42 -0700, "Bill nguyen"
<bi*****************@jaco.com> wrote:

¤ How can I open an Excel file then SAVE AS .CSV file using VB.NET?
¤

You can use ADO.NET to do this:

Dim ExcelConnection As New
System.Data.OleDb.OleDbConnection("Provider=Micros oft.Jet.OLEDB.4.0;" & _
"Data Source=e:\My Documents\Book20.xls;Extended
Properties=""Excel
8.0;HDR=NO;IMEX=1""")

ExcelConnection.Open()

Dim ExportCommand As New System.Data.OleDb.OleDbCommand("SELECT *
INTO [Text;DATABASE=E:\My
Documents\TextFiles].[Sheet4.csv] FROM [Sheet4$]")

ExportCommand.ExecuteNonQuery()
ExcelConnection.Close()
Paul
~~~~
Microsoft MVP (Visual Basic)