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.
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
- Sub createTicket()
- ' Variablen definieren
- Dim intFF As Integer
- Dim lcIniDatei As String
- Dim lcTimeStamp As String
- ' Ini-Dateiname festelegen
- lcTimeStamp = Now()
- lcTimeStamp = Replace(lcTimeStamp, ":", "_")
- lcTimeStamp = Replace(lcTimeStamp, ".", "_")
- lcIniDatei = Cells(8, 2) & "Ticket_" & lcTimeStamp & ".ini" ' "c:\Test.txt"
- intFF = FreeFile
- Open lcIniDatei For Output As #intFF ' Öffnet oder erstellt Textdatei zum hineinschreiben
- ' Anstelle von Output kann auch Append stehen
- ' (Output überschreibt vorhandene Datei, Append fügt eine neue Zeile hinzu)
- Print #intFF, "// Dies ist ein Beispiel, wie ein Bericht neu angelegt wird"
- Print #intFF, "// ==================================================================="
- Print #intFF, "// Definition der TicketArt"
- Print #intFF, "// TicketArt = 1 => Bestehender Bericht wird geändert"
- Print #intFF, "// TicketArt = 2 => Neuer Bericht wird angelegt"
- Print #intFF, "// ==================================================================="
- Print #intFF, ""
- Print #intFF, "[Ticket]"
- Print #intFF, "TicketArt = 2"
- Print #intFF, "TickteBez = Aufnahme eines Berichts"
- Print #intFF, ""
- Print #intFF, "[BERICHT]"
- Print #intFF, "Mandant = 1 "
- Print #intFF, "Obj_NR = " & Cells(10, 2)
- Print #intFF, "Soll_Dat = " & Cells(11, 2)
- Print #intFF, "Ist_Dat = "
- Print #intFF, "Betreff = " & Cells(12, 2)
- Print #intFF, "Kategorie = " & Cells(13, 2)
- Print #intFF, "BerichtArt = "
- Print #intFF, "BerichtTyp = "
- Print #intFF, "KostenArt = "
- Print #intFF, "KostenTrae = "
- Print #intFF, "SB = "
- Print #intFF, "AN = " & Cells(14, 2)
- Print #intFF, "CC = " & "User:" & Application.UserName
- Print #intFF, "FolgeTage = "
- Print #intFF, "FolgeArte = "
- Print #intFF, "Kosten = "
- Print #intFF, "Material = "
- Print #intFF, "Stunden = "
- Print #intFF, "Memo = " & "Gemeledet durch: " & Cells(15, 2) & " ||| " & "Ort/Maschine: " & Cells(16, 2) & " |||| " & "Beschreibung des Fehlers: " & Cells(18, 2) & " "
- Print #intFF, "Ist_Memo = "
- Close #intFF ' schließt die Ini-Datei
- MsgBox "Störmeldung wurde erfolgreich übermittelt" & Chr(10) & "Name: " & Cells(15, 2) & Chr(10) & "User: " & Application.UserName, 0 + 64, "Störmeldung übermittelt "
- ' Sprungmarke kein Ticket erstellen
- Abbrechen:
- End Sub