Excel - einzelne Zelle auslesen per OLEDB Verbindung

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von kinobi.

    Excel - einzelne Zelle auslesen per OLEDB Verbindung

    Hallo

    ich brauch mal wieder etwas Hilfe. Ich möchte eine einzelne Zelle aus einer Excel-Datei auslesen ohne sie in Excel zu öffnen.

    VB.NET-Quellcode

    1. .
    2. .
    3. .
    4. oConn.Open()
    6. Dim cmd As OleDbCommand
    8. cmd = New OleDbCommand("SELECT * FROM [" & excelsheet & "$" & "A3:A3" & "]", oConn)
    9. GetExcelCellValue = Nothing
    11. Dim reader As OleDbDataReader = cmd.ExecuteReader
    12. While reader.Read()
    13. GetExcelCellValue = reader(0)
    14. End While
    15. reader.Close()
    16. oConn.Close()


    Leider gibt er mir für die Zelle A3 nothing zurück. Wenn ich anstatt A3:A3, A2:A3 schreibe, dann bekomme ich den in Inhalt aus A3 zurück. Kann mir wer sagen wo der Fehler liegt?

    Vielen Dank
    Dirk

    Hab es selber gelöst. Der Fehler lag im ConnectionString. Dort hatte ich für HDR=YES eingetragen...das kommt vom ständigen copy&paste :)

    hier die komplette Funktion

    VB.NET-Quellcode

    1. Public Function GetExcelCellValue(ByVal excelfile As String, ByVal excelsheet As String, ByVal cell As String) As String
    3. If File.Exists(excelfile) = False Then Return Nothing
    5. Dim FileInfo As FileInfo = New FileInfo(excelfile)
    6. Dim DT As New DataTable
    8. Dim oConn As OleDbConnection = New OleDbConnection
    9. If excelfile.Contains(".xlsx") Then
    10. oConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    11. "Data Source=" & excelfile & ";" & _
    12. "Extended Properties=""Excel 12.0 Xml;HDR=No"";"
    13. ElseIf excelfile.Contains(".xls") Then
    14. oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    15. "Data Source=" & excelfile & ";" & _
    16. "Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"
    17. Else
    18. Return Nothing
    19. Exit Function
    20. End If
    21. oConn.Open()
    23. Dim cmd As OleDbCommand
    24. cmd = New OleDbCommand("SELECT * FROM [" & excelsheet & "$" & cell & ":" & cell & "]", oConn)
    25. GetExcelCellValue = Nothing
    26. Try
    27. Dim reader As OleDbDataReader = cmd.ExecuteReader '(CommandBehavior.SchemaOnly)
    29. '' Get the data itself.
    30. While reader.Read()
    31. GetExcelCellValue = reader(0)
    32. End While
    34. reader.Close()
    35. oConn.Close()
    37. Catch ex As Exception
    39. End Try
    41. End Function


    die Variable "cell" ist mit "A1" oder "C12" usw. anzugeben.

    Gruß
    Dirk

Facebook
Telefonspende