我传入excel的档名
原本表格为都有电话号,可发现其中有绿色的三角型
将其载入datatable,有录色三角的就载不出来
以下是我使用的载出excel至datatable的语法,请问要怎么改正这个问题呢
Public Function ExcelToDataTable_Copy(ByVal FilaName As String, ByVal SheetName As String) As DataTable '数据查询
Try
Dim dt As DataTable
dt = New DataTable
Dim sExcelFile As String
sExcelFile = FilaName
Dim sConnectionString As String = ""
If FilaName.IndexOf(".xlsx") <> -1 Then
Select Case Get_excel_VN()
Case "16.0", "14.0", "12.0"
sConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & sExcelFile & "; Extended Properties='Excel 12.0;HDR=true;IMEX=1;'"
End Select
ElseIf FilaName.IndexOf(".xls") <> -1 Then
sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sExcelFile & "; Extended Properties='Excel 8.0;HDR=YES;IMEX=1;'"
Else
sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sExcelFile & "; Extended Properties='Excel 8.0;HDR=YES;IMEX=1;'"
End If
Dim connection As OleDb.OleDbConnection
connection = New OleDb.OleDbConnection(sConnectionString)
connection.Open()
dt = connection.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
Dim sql_select_commands As String
sql_select_commands = "Select * from [" & SheetName & "$]"
Dim adp As OleDb.OleDbDataAdapter
adp = New OleDb.OleDbDataAdapter(sql_select_commands, connection)
Dim ds As Data.DataSet
ds = New Data.DataSet()
adp.Fill(ds, SheetName)
dt = ds.Tables(0)
If (connection.State = ConnectionState.Open) Then
connection.Close()
End If
Return dt
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try
Return Nothing
end function