XProfan

'***************************************************************************************************
' Header-Dateien laden                                                                             *
'***************************************************************************************************
 $H Messages.ph
 $H Windows.ph
 $H OCX3a.PH
'***************************************************************************************************
'***************************************************************************************************
' Include-Dateien laden                                                                            *
'***************************************************************************************************
 $I OCX3a.Inc
ocxInit()
WINDOWSTYLE 1 + 2 + 8+ 16 + 512
WINDOW 640,480
Declare Ende%,Excel&,Ocxtest%,Sheet&,Vorlage&, Region&, KeineAhnung& ,Workbook&, Excelbook&, Range&, Names&, Name& , VarName$
Excel&=ocxcreate("Excel.Application")
ocxput(Excel&,"visible",1)
Workbook&=ocxget(Excel&,"Workbooks")
Excelbook&=ocxMethod(Workbook&,"open","d:\\mappe1.xls")
Sheet&=ocxget(Excelbook&,"ActiveSheet")
Range&=ocxget(Sheet&,"Range","A1")
Names&=ocxGet(Excelbook&,"Names")
Print ocxget(Names&,"Count")

whileloop 26

    SELECT &LOOP

        CASEOF 3,18,19,26

        OTHERWISE
        VarName$ = chr$(64+&LOOP)
        print varname$, &Loop
        ocxMethod(Names&,"Add", VarName$, "Tabelle1!A"+str$(&LOOP) ,1)

    ENDSELECT

ENDWHILE

WhileNot Ende%

    WaitInput

    if %key=2

        Ende%=1

    EndIf

EndWhile

ocxdeInit()

CASEOF 3,18,19,26