Daten aus Excel in ein Datagridview zu importieren funktioniert nur, wenn die Excel Tabelle auch gleichzeitig in Excel geöffnet ist.

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von tragl.

    Daten aus Excel in ein Datagridview zu importieren funktioniert nur, wenn die Excel Tabelle auch gleichzeitig in Excel geöffnet ist.

    Hallo zusammen
    Ich habe den Code aus dem untenstehenden Link benutzt um Daten aus einem Excel File in ein VB DatagridView zu importieren.
    Das funktioniert prächtig. Danke dafür.
    Aber bei mir leider nur, wenn die Tabelle auch gleichzeitig in Excel geöffnet ist. Ist die Tabelle in Excel nicht geöffnet, kommt die Catch ex As Exception Meldung.
    Ich habe alle Sorten von Import commands versucht, die bleiben aber unbenutzt (ausgegraut)
    Ich habe auch versucht, ob es etwas mit den verschiedenen Excel Versionen (Extended Properties=Excel 8.0) zu tun hat, das ändert aber nur zum negativen.
    Der Fehler ist auf 2 PC's gleich, einer mit Office 365, der andere mit Office 2013.

    Danke für einen Tip.
    TomTom

    [url='https://www.vb-paradise.de/index.php/Thread/17496-exceltabelle-in-datagridview-importieren/']Exceltabelle in Datagridview importieren    [/url]

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „tomtom1000“ ()

    tomtom1000 schrieb:

    kommt die Catch ex As Exception Meidung
    Sowas gibt es nicht. Catch ex As Exception ist ein VB.NET-Codekonstrukt als Teil des Try-Catch-Blocks. Die tatsächliche Meldung im Wortlaut ist relevant.

    Bei mir geht das ohne Öffnen der Datei. Ich habe aber Excel 2019 und musste daher folgenden ConnectionString verwenden:

    VB.NET-Quellcode

    1. strConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=MeinExcelDateipfad;Extended Properties='Excel 12.0 Xml;HDR=YES';")
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Wenn du magst zeig' ich dir gerne den etwas umständlicheren Weg mit EPPlus... dann ist es egal welche Excel-Version und ob überhaupt Excel installiert ist.
    Edit: Ich hatte VS doch noch offen...

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Data.OleDb, System.Runtime.CompilerServices, System.Diagnostics, System.IO
    2. Imports OfficeOpenXml
    4. Public Module Office
    6. ''' <summary> Holt Daten aus einer Excel-Datei und fügt diese in eine temporäre DT via EPPlus </summary>
    7. Public Function ExcelImportToTempDataTable(importFile As String) As DataTable
    8. Dim dtExcel As DataTable = New DataTable()
    9. dtExcel.Clear()
    10. Dim fi As FileInfo = New FileInfo(importFile)
    11. If Not fi.Exists Then Throw New Exception("Datei " & importFile & " existiert nicht!")
    12. Using xlPackage As ExcelPackage = New ExcelPackage(fi)
    13. #If False Then '"Tabelle1" als feste Blattauswahl
    14. If Not xlPackage.Workbook.Worksheets("Tabelle1") Is Nothing Then
    15. Dim worksheet As ExcelWorksheet = xlPackage.Workbook.Worksheets("Tabelle1")
    16. #Else 'Tabellenblatt vorher auswählen
    17. Dim fileName = importFile.LastRightCut("\")
    18. Dim worksheet As ExcelWorksheet = xlPackage.Workbook.Worksheets(chooseWks(xlPackage, fileName))
    19. #End If
    20. If worksheet IsNot Nothing Then
    21. Dim startCell As ExcelCellAddress = worksheet.Dimension.Start
    22. Dim endCell As ExcelCellAddress = worksheet.Dimension.[End]
    23. 'Cols
    24. For col As Integer = startCell.Column To endCell.Column
    25. Dim colText = worksheet.Cells(1, col).Text 'Headertext anstelle Nummer
    26. dtExcel.Columns.Add(colText)
    27. Next
    28. 'Rows
    29. For row As Integer = startCell.Row + 1 To endCell.Row 'Header nicht als Row werten
    30. Dim dr As DataRow = dtExcel.NewRow()
    31. Dim x As Integer = 0
    32. For col As Integer = startCell.Column To endCell.Column
    33. dr(Math.Min(System.Threading.Interlocked.Increment(x), x - 1)) = worksheet.Cells(row, col).Value
    34. Next
    35. dtExcel.Rows.Add(dr)
    36. Next
    37. Else
    38. msgExclamation("kein Tabellenblatt ausgewählt!")
    39. End If
    40. End Using
    41. If msgQuestionInfo("Soll die Quelldatei gelöscht werden") = DialogResult.Yes Then
    42. fi.Delete()
    43. End If
    44. Return dtExcel
    45. End Function
    47. ''' <summary> Dient zur Auswahl des richtigen Tabellenblattes </summary>
    48. Private Function chooseWks(xlPackage As ExcelPackage, Filename As String) As String
    49. Dim usedWks As String = ""
    50. Using dlg As New dlgListboxAuswahl
    51. dlg.Text = $"Tabellenblatt für Datei {Filename} auswählen..."
    52. For Each wks As ExcelWorksheet In xlPackage.Workbook.Worksheets
    53. dlg.lbAuswahl.Items.Add(wks.Name)
    54. Next
    55. If dlg.ShowDialog = DialogResult.OK Then
    56. If Not dlg.lbAuswahl.SelectedItem Is Nothing Then
    57. usedWks = dlg.lbAuswahl.SelectedItem.ToString
    58. Else
    59. usedWks = Nothing
    60. End If
    61. End If
    62. End Using
    63. Return usedWks
    64. End Function
    66. End Module


    Dein DGV kannst du dann wie folgt "befüllen"
    dgv.Datasource = ExcelImportToTempDataTable(importFile)
    Die ImportFile sollte natürlich vorher bekannt sein - ich mach' das mit:

    Dim importFile = openFile("Excel-Dateien (*.xlsx)|*.xlsx")

    VB.NET-Quellcode

    1. ''' <summary> Datei öffnen-Dialog </summary>
    2. Public Function openFile(Filter As String) As String
    3. Using fiDlg As New OpenFileDialog
    4. fiDlg.Filter = Filter
    5. If fiDlg.ShowDialog = DialogResult.OK Then
    6. Return fiDlg.FileName
    7. Else
    8. msgError("Es wurde keine Datei ausgewählt!")
    9. Return ""
    10. End If
    11. End Using
    12. End Function


    EPPlus bekommst du über NuGet. Achtung: Hier musst du auf die Version aufpassen, die haben ab einer bestimmten Version das Lizenzmodell geändert.
    Ich nutze Version v4.5.3.3 - die kannst überall verwenden.


    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „tragl“ ()

Facebook
Telefonspende