(in-package  :TEO)
(use-package :OLI)

(setf si::*enter-break-handler* t)



;; ----------------------------------------------------------------------------------------------------------------------------------------------------
(defun get-value-from-excel ()

	(setf Sheethandle (oli:sd-dde-initiate "Excel" "[TEST.xls]Tabelle1"))		
	(print (format nil "Sheethandle : ~A" Sheethandle ))  									;das tut erst mal!!!!
  
  ;; get value
	(print (sd-dde-request Sheethandle  "R1C1"))
	
);;get-value-from-excel

(sd-defdialog 'EXCEL_IN-OUT-TEST :dialog-title "EXCEL IN - OUT - TEST"
   
   :variables
   '(
;; ----------------------------------------------------------------------------------------------------------------------------------------------------
			(ReadCell 	:title "LESE WERT"
									:toggle-type :wide-toggle									
									:push-action 	(progn
																	(get-value-from-excel)																	
																);;progn		
			);;ReadCell
;; ----------------------------------------------------------------------------------------------------------------------------------------------------
);;variables
    
);;sd-defdialog

(trace get-value-from-excel)