Hallo zusammen,
ich baue mir gerade ein eigenes Script was die Arbeit erleichtern soll.
Ich bekomme es aber nicht hin das er mir Einträge in excel schreibt ohne das er die Datei permanent geöffnet haben muss, geht das nicht irgendwie im Hintergrund
Danke vorab.
Nachfolgend der Code:
C
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Excel.au3>
#include <MsgBoxConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Abarbeitung", 800, 640, 192, 114)
$lKundennummer = GUICtrlCreateLabel("Kundennummer:", 5, 16, 78, 17)
$iKundennummer = GUICtrlCreateInput("", 96, 16, 89, 21)
$Speichern = GUICtrlCreateButton("Speichern", 600, 600, 73, 25)
$Drucken = GUICtrlCreateButton("Drucken", 700, 600, 73, 25)
$lKundenname = GUICtrlCreateLabel("Kundenname:", 5, 48, 78, 17)
$iKundenname = GUICtrlCreateInput("", 96, 48, 89, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;EXCEL
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Fehler in Excel", "Fehler in Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, "C:\Test\test.xlsx")
If @error Then
MsgBox($MB_SYSTEMMODAL, "Fehler in Excel", "Fehler in Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_Excel_Close($oExcel)
Exit
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Speichern
$rKundennummer = GUICtrlRead($iKundennummer) ;Kundennummer
$rKundenname = GUICtrlRead($iKundenname) ;Kundenname
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $rKundennummer, "B1") ;in Excel schreiben
EndSwitch
WEnd
Alles anzeigen