Excel Makro nach VB.NET migrieren

  • VB.NET
  • .NET 5–6

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

    Excel Makro nach VB.NET migrieren

    Hallo zusammen,

    ich habe ein kleines Problem. Ich hab eine Art Ticketsystem in Excel. Dieses Makro muss nun direkt in Visual Studio in einer Windows Form App (VB) ausgeführt werden.

    Es wird eine .txt Datei auf einem definierten Pfad erstellt, die Datei trägt Datum und Uhrzeit als Namen. Diese Datei wird dann vom Ticketsystem gelesen und verarbeitet. Der Inhalt muss in der passenden Zeile stehen.

    Gibt es eine Möglichkeit das Makro in VB zu importieren bzw. direkt zu migrieren? Oder muss das komplett neu geschrieben werden? Bin hier leider absoluter Neuling was Visual Studio angeht.

    Die Daten aus den Zellen sollen aus "TextBoxen" in der Form gezogen werden.

    Anbei der Code in Excel

    Danke.

    Quellcode

    1. Sub createTicket()
    2. ' Variablen definieren
    3. Dim intFF As Integer
    4. Dim lcIniDatei As String
    5. Dim lcTimeStamp As String
    7. ' Ini-Dateiname festelegen
    8. lcTimeStamp = Now()
    9. lcTimeStamp = Replace(lcTimeStamp, ":", "_")
    10. lcTimeStamp = Replace(lcTimeStamp, ".", "_")
    11. lcIniDatei = Cells(8, 2) & "Ticket_" & lcTimeStamp & ".ini" ' "c:\Test.txt"
    13. intFF = FreeFile
    15. Open lcIniDatei For Output As #intFF ' Öffnet oder erstellt Textdatei zum hineinschreiben
    16. ' Anstelle von Output kann auch Append stehen
    17. ' (Output überschreibt vorhandene Datei, Append fügt eine neue Zeile hinzu)
    20. Print #intFF, "// Dies ist ein Beispiel, wie ein Bericht neu angelegt wird"
    21. Print #intFF, "// ==================================================================="
    22. Print #intFF, "// Definition der TicketArt"
    23. Print #intFF, "// TicketArt = 1 => Bestehender Bericht wird geändert"
    24. Print #intFF, "// TicketArt = 2 => Neuer Bericht wird angelegt"
    25. Print #intFF, "// ==================================================================="
    26. Print #intFF, ""
    27. Print #intFF, "[Ticket]"
    28. Print #intFF, "TicketArt = 2"
    29. Print #intFF, "TickteBez = Aufnahme eines Berichts"
    30. Print #intFF, ""
    31. Print #intFF, "[BERICHT]"
    32. Print #intFF, "Mandant = 1 "
    33. Print #intFF, "Obj_NR = " & Cells(10, 2)
    34. Print #intFF, "Soll_Dat = " & Cells(11, 2)
    35. Print #intFF, "Ist_Dat = "
    36. Print #intFF, "Betreff = " & Cells(12, 2)
    37. Print #intFF, "Kategorie = " & Cells(13, 2)
    38. Print #intFF, "BerichtArt = "
    39. Print #intFF, "BerichtTyp = "
    40. Print #intFF, "KostenArt = "
    41. Print #intFF, "KostenTrae = "
    42. Print #intFF, "SB = "
    43. Print #intFF, "AN = " & Cells(14, 2)
    44. Print #intFF, "CC = " & "User:" & Application.UserName
    45. Print #intFF, "FolgeTage = "
    46. Print #intFF, "FolgeArte = "
    47. Print #intFF, "Kosten = "
    48. Print #intFF, "Material = "
    49. Print #intFF, "Stunden = "
    50. Print #intFF, "Memo = " & "Gemeledet durch: " & Cells(15, 2) & " ||| " & "Ort/Maschine: " & Cells(16, 2) & " |||| " & "Beschreibung des Fehlers: " & Cells(18, 2) & " "
    51. Print #intFF, "Ist_Memo = "
    53. Close #intFF ' schließt die Ini-Datei
    55. MsgBox "Störmeldung wurde erfolgreich übermittelt" & Chr(10) & "Name: " & Cells(15, 2) & Chr(10) & "User: " & Application.UserName, 0 + 64, "Störmeldung übermittelt "
    57. ' Sprungmarke kein Ticket erstellen
    58. Abbrechen:
    59. End Sub

    @RPC Sieh Dir mal das an, die Herkunft der Daten (das Cells(,)-Array) musst Du an Deine Gegebenheiten anpassen, ebenso das DateTime-Format.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Text
    3. Public Class Form1
    5. Dim Cells(,) As String
    6. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    7. CreateTicket()
    8. End Sub
    10. Sub CreateTicket()
    11. ' Ini-Dateiname festelegen
    12. Dim lcTimeStamp = DateTime.Now.ToString("yyyy_MM_dd_HH_mm_ss")
    14. Dim lcIniDatei = Cells(8, 2) & "Ticket_" & lcTimeStamp & ".ini" ' "c:\Test.txt"
    16. Dim sb = New StringBuilder()
    18. ' Öffnet oder erstellt Textdatei zum hineinschreiben
    19. ' Anstelle von Output kann auch Append stehen
    20. ' (Output überschreibt vorhandene Datei, Append fügt eine neue Zeile hinzu)
    22. sb.AppendLine("// Dies ist ein Beispiel, wie ein Bericht neu angelegt wird")
    23. sb.AppendLine("// ===================================================================")
    24. sb.AppendLine("// Definition der TicketArt")
    25. sb.AppendLine("// TicketArt = 1 => Bestehender Bericht wird geändert")
    26. sb.AppendLine("// TicketArt = 2 => Neuer Bericht wird angelegt")
    27. sb.AppendLine("// ===================================================================")
    28. sb.AppendLine()
    29. sb.AppendLine("[Ticket]")
    30. sb.AppendLine("TicketArt = 2")
    31. sb.AppendLine("TickteBez = Aufnahme eines Berichts")
    32. sb.AppendLine()
    33. sb.AppendLine("[BERICHT]")
    34. sb.AppendLine("Mandant = 1 ")
    35. sb.AppendLine("Obj_NR = " & Cells(10, 2))
    36. sb.AppendLine("Soll_Dat = " & Cells(11, 2))
    37. sb.AppendLine("Ist_Dat = ")
    38. sb.AppendLine("Betreff = " & Cells(12, 2))
    39. sb.AppendLine("Kategorie = " & Cells(13, 2))
    40. sb.AppendLine("BerichtArt = ")
    41. sb.AppendLine("BerichtTyp = ")
    42. sb.AppendLine("KostenArt = ")
    43. sb.AppendLine("KostenTrae = ")
    44. sb.AppendLine("SB = ")
    45. sb.AppendLine("AN = " & Cells(14, 2))
    46. sb.AppendLine("CC = " & "User:" & Environment.UserName)
    47. sb.AppendLine("FolgeTage = ")
    48. sb.AppendLine("FolgeArte = ")
    49. sb.AppendLine("Kosten = ")
    50. sb.AppendLine("Material = ")
    51. sb.AppendLine("Stunden = ")
    52. sb.AppendLine("Memo = " & "Gemeledet durch: " & Cells(15, 2) & " ||| " & "Ort/Maschine: " & Cells(16, 2) & " |||| " & "Beschreibung des Fehlers: " & Cells(18, 2) & " ")
    53. sb.AppendLine("Ist_Memo = ")
    55. ' schreibt die Ini-Datei
    56. System.IO.File.WriteAllText(lcIniDatei, sb.ToString())
    58. MessageBox.Show("Störmeldung wurde erfolgreich übermittelt" & Chr(10) & "Name: " & Cells(15, 2) & Chr(10) & "User: " & Environment.UserName, "Störmeldung übermittelt", MessageBoxButtons.OK, MessageBoxIcon.Information)
    59. End Sub
    61. End Class
    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