Hi,
Ich wollte mal shcaun ob ihr mir bei meinem Problem helfen könntet.
Und zwar möchte ich mit der Programmiersprache AUTOIT Spalten aus einer EXCEL Tabelle auslesen...
Wisst ihr zufällig wie ich das machen kann ?
Hi,
Ich wollte mal shcaun ob ihr mir bei meinem Problem helfen könntet.
Und zwar möchte ich mit der Programmiersprache AUTOIT Spalten aus einer EXCEL Tabelle auslesen...
Wisst ihr zufällig wie ich das machen kann ?
Das wäre ein Skript für Autoit:
If WinExists("Microsoft Excel") = 1 Then ;checkt ob Excel schon offen
WinActivate("Microsoft Excel")
Else
Run("D:\Office\Office\excel.exe")
Winwait("Microsoft Excel")
Endif
Send("!{D}{F}")
Send("E:\Test\" & Dateiname)
;MsgBox(0, "info1", "ist offen")
Send("{ENTER}") ;mit den folgenden Teilen: sortieren der Datei
Send("!{N}{S}{ENTER}")
;MsgBox(0, "info2", "ist sortiert")
Send("!{D}{C}{ENTER}{ENTER}{J}{J}")
;MsgBox(0, "info3", "ist zu")
Falls du das noch brauchst, schicke eine Mail an alfred.kienecker@gmx .at
Ciao
better use com !
$oExcel = ObjCreate("Excel.Application")
$oExcel.Visible = 0
$oExcel.WorkBooks.Open(@ScriptDir & "\afleverbon.xls")
$oExcel.ActiveWorkbook.Sheets(1).Select()
put some values in ;
$oExcel.Activesheet.Cells("22", "K").Value = $s_FactuurNR
$oExcel.Activesheet.Cells("12", "C").Value = $s_naam
save your sheet
$sFilePath = (@ScriptDir & "\Afleverbon\" & $s_naam & "-" & $s_datum & ".xls")
$oExcel.ActiveWorkBook.SaveAs ($sFilePath)
and do some printing
$oExcel.Application.activesheet.PrintOut()
and close your object
$oExcel.Quit
Kind Regards
jan
Bitte die Codes in Codetags setzen. Ist viel besser lesbar.
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!