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得到的。

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

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

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

1 个答案: