XProfan

Français

Stephan
Sonneborn

allô zusammen,

peux mir quelqu'un dire, pourquoi je avec dem Quellcode aucun Variablennamen avec Excel anlegen, qui avec C, R, S ou bien Z commencer?

Kompilieren Marque Séparation

'***************************************************************************************************
' En-tête-Fichiers magasin                                                                             *
'***************************************************************************************************
 $H Messages.ph
 $H Windows.ph
 $H OCX3a.PH
'***************************************************************************************************
'***************************************************************************************************
' Include-Fichiers magasin                                                                            *
'***************************************************************************************************
 $I OCX3a.Inc
ocxInit()
WINDOWSTYLE 1 + 2 + 8+ 16 + 512
WINDOW 640,480
Déclarer 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:\\portefeuille1.xls")
Sheet&=ocxget(Excelbook&,"ActiveSheet")
Range&=ocxget(Sheet&,"Range","A1")
Names&=ocxGet(Excelbook&,"Names")
Imprimer ocxget(Names&,"Count")

whileloop 26

    SELECT &LOOP

        CASEOF 3,18,19,26

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

    ENDSELECT

ENDWHILE

WhileNot Ende%

    WaitInput

    si %clé=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 citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Öhm - je schätze la fois c'est pourquoi:

Kompilieren Marque Séparation

CASEOF 3,18,19,26

ce sont oui c'est ca qui Werte dans qui Boucle, qui Du abfängst, dans denen mais rien passiert.

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

24.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Stephan
Sonneborn

Jörg Sellmeyer (24.04.12)

Öhm - je schätze la fois c'est pourquoi:
CASEOF 3,18,19,26
ce sont oui c'est ca qui Werte dans qui Boucle, qui Du abfängst, dans denen mais rien passiert.

*LOL*

merci pour den Hinweis, Jörg, mais je hab qui Werte extra rausgenommen, weil oui c'est ca qui Werte une ocx-Feher produzierten...

Getestet wurde cela Ganze sous Excel 2010 et Win7 64Bit.

je habs maintenant nochmal avec Excel 2003 et Win7 32Bit probiert: là gehts!

Schöne Grüße aus Wittgenstein
von Stephan

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

24.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

la hâte Du es la fois avec Kleinbuchstaben versucht?

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

24.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Andreas
Koch

allô Stephan,

cela liegt probablement daran, dass Excel Z et S im Deutschen pour la ligne et Spalte ansieht et entsprechend R et C comme Row et Column im Englischen. Pour unten stehendem Link sommes cet Buchstaben pour Excel "reservierte Worte"... [...]