TKof error BC30451: "TKof" wurde nicht deklariert. Aufgrund der Schutzstufe ist unter Umständen kein Zugriff möglich.

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von amiBD.

    TKof error BC30451: "TKof" wurde nicht deklariert. Aufgrund der Schutzstufe ist unter Umständen kein Zugriff möglich.

    Hallo an alle, :D

    nach tagelanger Suche nach der Lösung für den genannten Fehlercode, seid ihr jetzt gefragt. Nach diesem Fehler wurde auch hier schon 2 mal gefragt. Jedoch wurde ich daraus auch nicht schlauer. Der Sub ist aus einem alten Prog von 2013, welches seit dem auch stabil seinen Dienst tut.
    Nach vielen Jahren muss ich daran wieder mal ein bisschen was aktualisieren. Die Excel Datei die hier verarbeitet wird, kommt von einer externen Quelle. Dort wurde in den Überschriften ein Chr(160) reingeschoben. Somit kann mein String Vergleich nicht funktionieren. Also war meine Idee, über ein Replace diesen Chr(160) rauszunehmen. Leider scheitert es schon bei der Deklarierung der Variable "TKopf". In die soll per

    VB.NET-Quellcode

    1. oSheet.Cells(1, i).value
    nur der Inhalt einer Zelle X eingelesen werden.
    Wie gesagt, hat das seit Jahren funktioniert, nur soll jetzt dieser Chr(160) rausgefiltert werden. Selbst ein deklarieren einer Integer Variable scheitert. Seit Visual Studio 2010 scheint so manches passiert zu sein. ||

    Gruß, Stefan.

    VB.NET-Quellcode

    1. Sub Primas_Report_einlesen()
    2. Dim oXL As Excel.Application
    3. Dim oWB As Excel.Workbook
    4. Dim oSheet As Excel.Worksheet
    5. Dim i, l As Integer
    6. Dim Eqnr, PMnr, Raum, Typbez, kalizy_DS As Integer
    7. Dim TKof As String
    9. If File.Exists(ExcelDatei) Then 'Prüfen Exceldatei existiert
    10. GoTo Weiter
    11. Else 'Abfrage einer anderen Excel Datei, wenn "Primas-Report.xls" nicht gefunden wurde
    12. OpenFileDialog1.InitialDirectory = "G:\QSG\Messraum\PP_Druck\"
    13. OpenFileDialog1.Filter = "Alle Dateien (*,*)|*.*"
    14. OpenFileDialog1.FilterIndex = 1
    15. If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    16. ExcelDatei = OpenFileDialog1.FileName
    17. Else
    18. Dim prozess As Process = System.Diagnostics.Process.GetCurrentProcess()
    19. prozess.Kill()
    20. End If
    21. End If
    22. Weiter:
    23. Try
    24. oXL = CreateObject("Excel.Application")
    25. oWB = oXL.Workbooks.Open(ExcelDatei)
    26. oSheet = oWB.ActiveSheet
    27. anz = oSheet.UsedRange.Rows.Count
    28. Form4.ProgressBar1.Maximum = anz
    29. Form4.Show()
    30. ReDim Suchwerte(anz, 3)
    31. 'suchen der Spalten nach Suchkriterien
    32. For i = 1 To 25
    33. TKof = oSheet.Cells(1, i).value
    34. If oSheet.Cells(1, i).value = "Equipmentnummer" Then
    35. Eqnr = i
    36. End If
    38. If oSheet.Cells(1, i).value = "Prüfmittelnummer" Then
    39. PMnr = i
    40. End If
    41. If oSheet.Cells(1, i).value = "Raum" Then
    42. Raum = i
    43. End If
    44. If oSheet.Cells(1, i).value = "Typenbezeichnung" Then
    45. Typbez = i
    46. End If
    47. If oSheet.Cells(1, i).value = "Kalibrierzyklus" Then
    48. kalizy_DS = i
    49. End If
    50. Next
    51. '--------------------------------------
    52. For i = 0 To anz
    53. l = i + 1
    55. Suchwerte(i, 0) = oSheet.Cells(l + 1, Eqnr).value
    56. Suchwerte(i, 1) = oSheet.Cells(l + 1, PMnr).value
    57. Suchwerte(i, 2) = oSheet.Cells(l + 1, Raum).value & " " & oSheet.Cells(l + 1, Typbez).value
    58. Suchwerte(i, 3) = Val(Mid(oSheet.Cells(l + 1, kalizy_DS).value, 1, 2))
    59. Form4.Label3.Text = i
    60. Form4.ProgressBar1.Value = i
    61. Next
    62. oXL.Quit()
    63. Form4.Close()
    64. Catch
    65. Form4.Close()
    66. Dim prozess() As Process = Process.GetProcessesByName("Excel")
    67. prozess(0).Kill()
    68. End Try
    69. Call Umwandeln() 'Daten aus Array in "TestoDB.txt" schreiben
    70. MsgBox("Daten wurden aktualisiert")
    71. End Sub


    *Label und BBCode auf .NET geändert*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Bei deinem eigentlichen Problem kann ich dir zwar nicht helfen, aber zwei grundlegende Tipps von mir:

    1.) Verwende kein GoTo (Zeile 10). Das macht den Code unübersichtlich und war selbst in VB6 schon verpönt (wenn auch dort teilweise nötig).

    2.) Die Zeilen 34 bis 49 kann man wunderbar durch ein Select Case austauschen, was für solche Anwendungsfälle gedacht ist.
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

    Hallo Marcus,
    vielen Dank für deine Antwort. Das mit dem Case verwende ich heute auch. Das Prog ist aus 2013. Hat super gefunzt. Never touch a ..... ;)

    Das Problem wurde auch in diesem Thread beantwortet. Jedoch kann ich der Anleitung nicht ganz folgen.
    Hast du dazu einen Plan? Ich verwende VS 2019. Dort heißt das alles ein bisschen anders.

    https://www.vb-paradise.de/index.php/Thread/60489-Debugging-spinnt/?postID=472691#post472691

    Dankeschön.

    Gruß, Stefan.

Facebook
Telefonspende