0

我在下面的datagridview中导入excel文件是我的代码

'ofdImport.Filter = "Excel Files (*.xls)|*.xls"

ofdImport.FileName = ""
If ofdImport.ShowDialog(Me) = Windows.Forms.DialogResult.Cancel Then
    Exit Sub
End If

txtPath.Text = ofdImport.FileName
If txtPath.Text <> "" Then
    chkItemList.Visible = True
    dgvImportData.Visible = True
    pnlDataMsg.Visible = False
    dgvImportData.Columns.Clear()
    chkItemList.Items.Clear()
    Try
        Dim conExcel As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & txtPath.Text & " '; Extended Properties=Excel 8.0;")
        Dim excelSelect As New OleDbCommand
        Dim excelAdp As New OleDbDataAdapter
        Dim excelSchemaDt As DataTable
        Dim dset As New DataSet

        If conExcel.State Then conExcel.Close()
        conExcel.Open()
        excelSelect.Connection = conExcel
        excelSchemaDt = conExcel.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
        Dim sheetName As String = excelSchemaDt.Rows(0)("TABLE_NAME").ToString()

        excelSelect.CommandText = "select * from [" & sheetName & "] "
        excelAdp.SelectCommand = excelSelect
        excelAdp.TableMappings.Add("Table", "TestTable")
        excelAdp.Fill(dset)
        dgvImportData.DataSource = dset.Tables(0)
        Dim i As Integer
        Dim q(dgvImportData.Columns.Count()) As String
        For i = 0 To (dgvImportData.Columns.Count - 1)
            q(i) = (dgvImportData.Columns(i).HeaderText.ToString())
        Next i
        conExcel.Close()

        i = 0
        Dim a As String = ""
        'Dim q(frmImportWizard.gridImport.Columns.Count()) As String
        For i = 0 To dgvImportData.Columns.Count - 1
            a = dgvImportData.Columns(i).HeaderText.ToString()
            'CheckedListBox1.Items.Add(a)
            chkItemList.Items.Add(a)
        Next i
        chkAll.Visible = True
        chkAll.Checked = False
        lblColumnData.Visible = True
    Catch ex As Exception
        'MsgBox(ex.Message, MsgBoxStyle.Information)
    End Try
End If

excel文件在一个colms中包含例如“9874532146/8456663225”的电话号码，而且我在同一个colms中有“98455566966”这里的问题是我的代码没有读取没有“/”的电话号码它在网格中变为空白请帮助

4

1 回答 1

0 
replaced connection string

Dim conExcel As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source='" & txtPath.Text & "';Extended Properties=""Excel 8.0;HDR=YES;IMEX=1""")
于 2013-06-13T07:00:20.710 回答