XProfan

Español

Stephan
Sonneborn

¡Hola zusammen,

kann me alguien sagen, por qué I, con el Quellcode no Variablennamen con Excel invertir, el con C, R, S oder Z beginnen?

Kompilieren Marca Separación

'***************************************************************************************************
' Encabezamiento-Archivos invitar                                                                             *
'***************************************************************************************************
 $H Messages.ph
 $H Windows.ph
 $H OCX3a.PH
'***************************************************************************************************
'***************************************************************************************************
' Incluir-Archivos invitar                                                                            *
'***************************************************************************************************
 $I OCX3a.Inc
ocxInit()
WINDOWSTYLE 1 + 2 + 8+ 16 + 512
WINDOW 640,480
Declarar 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")
Imprimir ocxget(Names&,"Count")

whileloop 26

    SELECT &LOOP

        CASEOF 3,18,19,26

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

    ENDSELECT

ENDWHILE

Sinestar encargado Ende%

    WaitInput

    if %key=2

        Ende%=1

    EndIf

EndWhile

ocxdeInit()

Code geupdated!

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

24.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Öhm - Yo schätze veces deshalb:

Kompilieren Marca Separación

CASEOF 3,18,19,26

Das son genau el Werte en el Bucle, el Usted abfängst, en denen aber nichts passiert.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

24.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Stephan
Sonneborn

Jörg Sellmeyer (24.04.12)

Öhm - Yo schätze veces deshalb:
CASEOF 3,18,19,26
Das son genau el Werte en el Bucle, el Usted abfängst, en denen aber nichts passiert.

*LOL*

Gracias para el Referencia, Jörg, pero yo tener el Werte extra rausgenommen, porque genau el Werte una ocx-Feher produzierten...

Getestet wurde el Ganze bajo Excel 2010 y Win7 64Bit.

Yo habs ahora otra vez con Excel 2003 y Win7 32Bit probiert: Como gehts!

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

24.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Hast Usted lo veces con Kleinbuchstaben intenta?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

24.04.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andreas
Koch

¡Hola Stephan,

el liegt vermutlich daran, dass Excel Z y S en el Alemán para Línea y Spalte ansieht y entsprechend R y C como Row y Column en el Englischen. Nach unten stehendem Link estos Buchstaben para Excel "reservierte Worte"... [...]