VB.net读取Excel的页面

Question

我想读一个Excel页面，但我得到以下错误：

Input string was not in a correct format.Couldn't store <555-555-5555> in PHONE_NUM Column. Expected type is Double.

看来，OLEDB命令期待列的类型为双（但是，在事实上，这是一个电话号码字符串）。我想我会在某处读到这种情况，因为该命令看起来像列中的第一对项目，并确定了该类型应该基于哪个类型。无论如何总是以字符串形式读取所有值？

这是我使用的代码：

Dim connection As OleDb.OleDbConnection 
Dim command As OleDb.OleDbCommand 
Dim adapter As New OleDb.OleDbDataAdapter 
Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + myFile + ";Extended Properties=Excel 12.0;" 
Dim pgOne As String = "Page1$" 
Dim pgTwo As String = "Page2$" 
Dim selectOne As String = "SELECT * FROM [" & pgOne & "] WHERE COL1<>''" 
Dim selectTwo As String = "SELECT * FROM [" & pgTwo & "]" 

connection = New OleDb.OleDbConnection(connString) 
Try 
    If connection.State = ConnectionState.Open Then 
    Else 
     connection.Open() 
    End If 

    command = New OleDb.OleDbCommand(selectOne, connection) 
    adapter.SelectCommand = command 
    adapter.Fill(ds, "Table1") 

    adapter.SelectCommand.CommandText = selectTwo 
    adapter.Fill(ds, "Table2") 
Catch ex As OleDb.OleDbException 
Finally 
    adapter.Dispose() 
    If (Not command Is Nothing) Then 
     command.Dispose() 
    End If 
    connection.Close() 
End Try 

Answer 1

如上所述，我无法解决这个问题，所以我刚刚手动创建了一个模式，并在数据绑定时格式化数据。

Answer 2

你可以得到表填写在以下两种方式之一字符串。如果你只想把它们作为一个字符串读取，你可以在你的连接字符串中添加一部分，它应该将混合的数据类型列作为文本读取。也可以通过在标题行中读取数据来将它们强制为字符串类型。您也可以使用模式读取表格定义，但如果这些不适合您，我需要找到更多信息。

第一个选项是简单的事：

首先改变你的连接字符串添加IMEX = 1

'Add IMEX=1 
Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;IMEX=1;Data Source=" + myFile + ";Extended Properties=Excel 12.0;" 

这应该那么您提供基于String列上具有混合数据类型的任何datacolumns在他们的行中。

另一种方法是通过指定连接字符串中没有标题行来读取标题行作为数据行来强制字符串列类型。然后，您可以在删除后获得一串字符串数据。

'Add HDR=NO 
Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;HDR=NO;Data Source=" + myFile + ";Extended Properties=Excel 12.0;" 

我会再研究一下，如果这些不适合你。