Ja ich habe es gesehen, danke dafür!
Edit:
Ich habe deinen code aus dem englischen Forum übernommen
Spoiler anzeigen
AutoIt
#include <Excel.au3>
#include <Array.au3>
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <MsgBoxConstants.au3>
Global $sCol1 = "", $sCol2 = "", $sCol3 = "", $sTemp = "", $aTemp = ""
Global $sWorkbook = @ScriptDir & "\test.xls"
Global $oExcel = _Excel_Open()
;If @error Then Exit MsgBox($MB_ICONERROR, "Fehler", "Fehler beim öffnen von Excel! @error = " & @error & ", @extended = " & @extended)
Global $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook)
;If @error Then Exit MsgBox($MB_ICONERROR, "Fehler", "Fehler beim öffnen der Datei! @error = " & @error & ", @extended = " & @extended)
GUICreate("Exelread v1.0", 400, 400)
GUICtrlCreateTab(0, 0, 400, 400)
GUICtrlCreateTabItem("Vorname")
$idLabel1 = GUICtrlCreateLabel($sCol1, 10, 30, 380, 20)
$idButton1 = GUICtrlCreateButton("Los", 300, 300)
GUICtrlCreateTab(0, 0, 400, 400)
GUICtrlCreateTabItem("Nachname")
$idLabel2 = GUICtrlCreateLabel($sCol2, 10, 30, 380, 20)
$idButton2 = GUICtrlCreateButton("Los", 300, 300)
GUICtrlCreateTab(0, 0, 400, 400)
GUICtrlCreateTabItem("Postleitzahl")
$idLabel3 = GUICtrlCreateLabel($sCol3, 10, 30, 380, 20)
$idButton3 = GUICtrlCreateButton("Los", 300, 300)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
_Excel_BookClose($oWorkbook)
_Excel_Close($oExcel)
Exit
Case $msg = $idButton1
$sTemp = _Excel_RangeRead($oWorkbook, Default, "A1") ; Read a single cell
If @error Then MsgBox($MB_ICONERROR, "Fehler", "Fehler beim auslesen! @error = " & @error & ", @extended = " & @extended)
GUICtrlSetData($idLabel1, $sTemp)
Case $msg = $idButton2
$aTemp = _Excel_RangeRead($oWorkbook, Default, "A1:C1") ; Read a row
If @error Then MsgBox($MB_ICONERROR, "Fehler", "Fehler beim auslesen! @error = " & @error & ", @extended = " & @extended)
$sTemp = _ArrayToString($aTemp)
GUICtrlSetData($idLabel2, $sTemp)
Case $msg = $idButton3
$aTemp = _Excel_RangeRead($oWorkbook, Default, "A1:A4") ; Read a column
If @error Then MsgBox($MB_ICONERROR, "Fehler", "Fehler beim auslesen! @error = " & @error & ", @extended = " & @extended)
$sTemp = _ArrayToString($aTemp)
GUICtrlSetData($idLabel3, $sTemp)
EndSelect
WEnd
Alles anzeigen
Es gibt einen fehler beim öffnen von Excel...
mal eine doofe frage:
geht das ganze auch mit openoffice? wenn nein, muss excel installiert sein?