Beiträge von Christian1606

Okay, jetzt funzt es Merci.
Ja das mit den Grundlagen gehe ich heute mal an.

• #include <Excel.au3>
• $oExcel = _Excel_Open()
• $oWorkBook = _Excel_BookOpen($oExcel, "pfadzumbook")

Funktioniert, das Excel File wird geöffnet. Wenn mir jetzt noch jemand einen Tip geben kann, wie ich die Funktion einen Button zuordnen kann, wäre ich sehr dankbar.

Version 3.6.6 ist im Einsatz

MsgBox gibt den Wert 151634. Das passt, die Datei auf dem Share ist 152 KB.

If Not @error Then
Wenn kein Fehler dann öffne das Excel File. Weiß auch wirklich nicht ob dieser Befehl überhaupt beachtet wird.
Sorry bin noch nicht wirklich fit mit AutoIT, habe heute erst angefangen.

Fehler Meldung bei klick auf Button:

Line 4307 Error: Unknown function name

Hier mal ein Script was sich ohne Fehler compilieren lässt:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=test.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Excel.au3>
#Region ### START Koda GUI section ### Form=H:\test\test\test\test\Form1.kxf
$Form1 = GUICreate("v.1.0", 389, 587, 239, 249)
$Button1 = GUICtrlCreateButton("Excel-File öffnen", 24, 24, 145, 49)
$File = "\\Server\Pfad1\Pfad2\test.xlsm"
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If Not @error Then
$Excel = _ExcelBookOpen($File)
If @error <> 0 Then
MsgBox (0, "Excel File nicht vorhanden")
EndIf
EndIf
EndSwitch
WEnd

Global $aCursorInfo
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE ; GUI schließen
Exit
Case $buttonexcel
If Not @error Then
$Excel = _Excel_BookOpen($File)
If @error <> 0 Then
MsgBox (0, "Excel File nicht vorhanden")
EndIf

Die GUI habe ich schon das ist nicht das Problem.
Es ist dieser Button neu hinzugekommen.

Hallo zusammen in die Runde,

hoffe ihr könnt mir helfen. Möchte gerne mit einem klick auf einen Button ein bestehendes Excel File öffnen.
Leider passt da etwas mit dem Code nicht so ganz.

#include <Excel.au3>
$File = "\\server\pfad1\pfad2\test.xlsm"

$buttonexcel = GUICtrlCreateButton("Excel File öffnen", 60, 400, 137, 49) ;
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor($buttonexcel, 0xEEEE00) ;

Case $buttonexcel
If Not @error Then
$Excel = _Excel_BookOpen($File)
If @error <> 0 Then
MsgBox (0, "Excel File nicht vorhanden")
EndIf