使用VB.net将.CSV文件转换为.XLS

Question

我正在尝试使用vb.net将.csv转换为.xls，但是我无法找到有效的方法。 我知道如何将.xls转换为.csv，这与此类似吗？ 这是我到目前为止的代码，这是我收到的错误：

“外部表的格式不正确。”

Public Sub ConvertCSV(ByVal lvFileName As String, ByVal lvFileNameNoExt As String)

Dim DA As New OleDb.OleDbDataAdapter

Dim DS As New DataSet

Dim objStreamWriter As StreamWriter

Dim objconn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\GD Test\Test.csv;Extended Properties=Excel 8.0;")


    ObjConn.Open()

    Dim objcmd As New System.Data.OleDb.OleDbCommand("Select * from [AutoBatchPrintBypass.RPT$]", objconn)

    objcmd.CommandType = CommandType.Text


    objStreamWriter = New StreamWriter(gvDipDir & gvClientCode & ".XLS")


    objconn.Close()

End Sub

Answer 1

当读取CSV文件时，您告诉Jet Engine它是带有连接字符串Extended Properties=Excel 8.0这部分内容的excel文件。 尝试将连接字符串的该部分更改为此Extended Properties='text;HDR=Yes;FMT=Delimited(,)' 。 我从此页面得到的。

至于编写文件，您可以做一些事情，这是一个类似的SO问题，

从C＃创建Excel（.XLS和.XLSX）文件