使用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引擎，它的Excel與連接字符串Extended Properties=Excel 8.0的這部分文件。嘗試將連接字符串的那部分更改爲此Extended Properties='text;HDR=Yes;FMT=Delimited(,)'。我從this page得到。

至於寫文件，有幾件事情可以做，這裏是一個類似SO問題，

Create Excel (.XLS and .XLSX) file from C#