Problem mit If- Abfrage in vb.net

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von michael81.

    Problem mit If- Abfrage in vb.net

    Hallo,

    ich hae "versucht" mit einer if abfrage, nach zu schauen ob eine Datei vorhanden ist, wenn das soll die geöffnet werden und ein Tabellenblatt gedruckt werden.
    Das funktioniert auch ganz gut, nur am ende wir die if abfrage nicht beendet, sondern Zellenspiegel F1 wird immer und immer wieder geöffnet und gedruckt.
    Wie komme ich aus diesen Endlosschritt raus?
    Exit sub habe ich schon an mehreren stellen versucht.

    VB.NET-Quellcode

    1. Dim exApp As Excel.Application = New Excel.Application()
    2. Dim exwb As Excel.Workbook
    3. Dim exsh As Excel.Worksheet
    4. Dim strDateiName As String
    6. With exApp
    8. .Visible = False
    9. strDateiName = Dir("F:\Haus A\Zellenspiegel\Zellenspiegel A0\Zellensp" & "*.xls*")
    10. MsgBox("Die Datei heisst " & strDateiName)
    11. If strDateiName = "" Then
    12. MsgBox("A0 ist kaputt")
    13. f1_sub()
    14. Else
    15. 'strDateiName = Dir("F:\Haus \Zellenspiegel\Zellenspiegel A0\Zellenl* " & "*.xl*")
    16. 'exwb = .Workbooks.Open("C:\Users\micha\Desktop\all\testdokus\Mappe1.xlsm")
    17. exwb = .Workbooks.Open("F:\Haus A\Zellenspiegel\Zellenspiegel A0\" & strDateiName)
    18. ' pr.StartInfo.FileName = ("F:\Haus A\Zellenspiegel\Zellenspiegel A0\" & strDateiName)
    19. exsh = exwb.Worksheets("Wäschetafeln")
    20. exsh.PrintOut()
    21. exwb.Close()
    23. End If
    24. End With
    25. f1_sub()
    27. End Sub
    33. Sub f1_sub()
    34. Dim exApp As Excel.Application = New Excel.Application()
    35. Dim exwb As Excel.Workbook
    36. Dim exsh As Excel.Worksheet
    37. Dim strDateiName As String
    39. With exApp
    41. .Visible = False
    42. strDateiName = Dir("C:\Users\micha\Desktop\all\testdokus\Neuer Ordner\Zellensp" & "*.xls*")
    43. MsgBox("Die Datei heisst " & strDateiName)
    44. If strDateiName = "" Then
    45. MsgBox("F1 ist kaputt")
    46. 'Me.Close()
    47. Exit Sub
    49. Else
    50. exwb = .Workbooks.Open("C:\Users\micha\Desktop\all\testdokus\Neuer Ordner\" & strDateiName)
    51. exsh = exwb.Worksheets("Wäschetafeln")
    52. exsh.PrintOut()
    53. exwb.Close()
    55. End If
    57. End With
    58. 'Me.Close()
    59. End Sub

    michael81 schrieb:

    Wie komme ich aus diesen Endlosschritt raus?
    Lerne zu debuggen.
    Setze einen Haltepunkt in die Prozedur und arbeite sie zeilenweise ab.
    Wenn Du eine Zeile oder einen Sprung findest, der sich nicht so verhält, wie du glaubst, dass er sich verhalten soll, hast Du einen Fehler gefunden.
    Gugst Du hier.
    Und
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    michael81 schrieb:

    das Druckfenster
    Ist das ein externes Excel-Fenster oder Dein eigener Dialog?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende