Backgroundworker Excel Zelle auf Nothing prüfen Fehler -SOLVED-

  • VB.NET
  • .NET (FX) 4.5–4.8

    Backgroundworker Excel Zelle auf Nothing prüfen Fehler -SOLVED-

    Hi,

    mit dem Backgrouondworker lese ich eine Excel Tebelle aus. Wenn in eine Zelle leer ist dann soll er einfach diese übersprigen aber stattdessen kommt eine Fehlermeldung

    Eine Ausnahme vom Typ "System.NullReferenceException" ist in preEKFO2017.exe aufgetreten, doch wurde diese im Benutzercode nicht verarbeitet.

    Code

    VB.NET-Quellcode

    1. Private Sub bgw_hl_analyse_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles bgw_hl_analyse.ProgressChanged
    3. Dim int_prozent As Integer = e.ProgressPercentage
    4. Dim Tabelle As String = e.UserState
    6. Dim excel_obj_null_prüfung As String = objExcel.Range(cob_mn_supl_column.Text & int_prozent).value.ToString.Replace(" ", "")
    8. If excel_obj_null_prüfung <> Nothing Then
    9. If excel_obj_null_prüfung <> "999" Then
    11. ' Dim item_no As String = CStr(objExcel.Range("A" & int_prozent).value).Replace(" ", "")
    13. Dim main_suppl As String = CStr(objExcel.Range(cob_mn_supl_column.Text & int_prozent).value)
    15. Dim main_suppl_price As String
    17. Dim main_suppl_price_RGB() As String
    19. For i = 0 To ary_column.Length - 1
    21. If objExcel.Range(ary_column(i).ToString & cob_supl_row.Text).value <> Nothing Then
    22. If objExcel.Range(ary_column(i).ToString & cob_supl_row.Text).value.ToString.Replace(" ", "") = main_suppl.Replace(" ", "") Then
    24. main_suppl_price = objExcel.Range(ary_column(i).ToString & int_prozent).value
    26. main_suppl_price_RGB = RGBWerte(objExcel.range(ary_column(i).ToString & int_prozent)).ToString.Split(";")
    28. Dim str_transformiert As String = objExcel.range("A" & int_prozent).value.ToString.Replace(" ", "") & ";" & main_suppl & ";" & main_suppl_price & ";" & main_suppl_price_RGB(0) & ";" & main_suppl_price_RGB(1) & ";" & main_suppl_price_RGB(2)
    30. ListBox1.Items.Add(str_transformiert)
    31. txt_transformed.Text = "Transformierte Zeilen: " & ListBox1.Items.Count
    32. ListBox1.SelectedIndex = ListBox1.Items.Count - 1
    34. Exit For
    35. Else
    36. If i = ary_column.Length - 1 Then
    37. int_fehler += 1
    38. Label3.Text = "Fehler: " & int_fehler
    39. 'Exit For
    41. End If
    42. End If
    44. End If
    46. Next
    47. Else
    49. If objExcel.Range(cob_mn_supl_column.Text & int_prozent).value.ToString.Replace(" ", "") = "999" Then
    50. int_lösch += 1
    51. txt_löschartikel.Text = "Löschartikel: " & int_lösch
    52. End If
    54. End If
    55. End If
    57. End Sub


    Bei

    VB.NET-Quellcode

    1. Dim excel_obj_null_prüfung As String = objExcel.Range(cob_mn_supl_column.Text & int_prozent).value.ToString.Replace(" ", "")


    wird der Fehler ausgelöst

    Ich versteh diesen Fehler nicht. Ich prüfe doch mit dem Code ob dieser Nothing ist und wenn dies True ist soll er einfach diese Zelle überspringen

    Kann mit einer bitte helfen, Google gibt mir leider keine Lösung ?(


    Sorry - 2 Sekunden länger nachgedacht und Lösung gefunden.
    Ich habe das Objekt vor der Prüfung mit ".Replace(" ","")" bearbeitet obwohl es Nothing war, daher der Fehler.
    Für alle die es Interessiert nachfolgend der korrigierte Code

    VB.NET-Quellcode

    1. Private Sub bgw_hl_analyse_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles bgw_hl_analyse.ProgressChanged
    3. Dim int_prozent As Integer = e.ProgressPercentage
    4. Dim Tabelle As String = e.UserState
    6. ' Dim excel_obj_null_prüfung As String = objExcel.Range(cob_mn_supl_column.Text & int_prozent).value.ToString.Replace(" ", "")
    8. If objExcel.Range(cob_mn_supl_column.Text & int_prozent).value <> Nothing Then
    9. If objExcel.Range(cob_mn_supl_column.Text & int_prozent).value.ToString.Replace(" ", "") <> "999" Then
    11. ' Dim item_no As String = CStr(objExcel.Range("A" & int_prozent).value).Replace(" ", "")
    13. Dim main_suppl As String = CStr(objExcel.Range(cob_mn_supl_column.Text & int_prozent).value)
    15. Dim main_suppl_price As String
    17. Dim main_suppl_price_RGB() As String
    19. For i = 0 To ary_column.Length - 1
    21. If objExcel.Range(ary_column(i).ToString & cob_supl_row.Text).value <> Nothing Then
    22. If objExcel.Range(ary_column(i).ToString & cob_supl_row.Text).value.ToString.Replace(" ", "") = main_suppl.Replace(" ", "") Then
    24. main_suppl_price = objExcel.Range(ary_column(i).ToString & int_prozent).value
    26. main_suppl_price_RGB = RGBWerte(objExcel.range(ary_column(i).ToString & int_prozent)).ToString.Split(";")
    28. Dim str_transformiert As String = objExcel.range("A" & int_prozent).value.ToString.Replace(" ", "") & ";" & main_suppl & ";" & main_suppl_price & ";" & main_suppl_price_RGB(0) & ";" & main_suppl_price_RGB(1) & ";" & main_suppl_price_RGB(2)
    30. ListBox1.Items.Add(str_transformiert)
    31. txt_transformed.Text = "Transformierte Zeilen: " & ListBox1.Items.Count
    32. ListBox1.SelectedIndex = ListBox1.Items.Count - 1
    34. Exit For
    35. Else
    36. If i = ary_column.Length - 1 Then
    37. int_fehler += 1
    38. Label3.Text = "Fehler: " & int_fehler
    39. 'Exit For
    41. End If
    42. End If
    44. End If
    46. Next
    47. Else
    49. If objExcel.Range(cob_mn_supl_column.Text & int_prozent).value.ToString.Replace(" ", "") = "999" Then
    50. int_lösch += 1
    51. txt_löschartikel.Text = "Löschartikel: " & int_lösch
    52. End If
    54. End If
    55. End If
    57. End Sub

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

Facebook
Telefonspende