XProfan

Hilft cela [...]

Christof
Neuß

malheureusement pas.

qui Excel-Tabelle hat aucun Tabellenstruktur et plusieurs Register et je muss bestimmte raussuchen. Zellen lesen et wieder décrire.

Win10 16 GB RAM

peut-être weiss là Marc plus.

Christof
Neuß

Würde mir vraie weiterhelfen.

quand même merci.

Win10 16 GB RAM

Uwe
''Pascal''
Niemeier

allô Christof!

allez doch sûrement aussi avec XProfan, ou bien?
Zur Not sur ActiveX?!

[web]https://XProfan.com/thread.core?t=4363[/web]
SeeYou
Pascal

26.04.2008 ▲

Christof
Neuß

allô Pascal,

super, avec cela gehts sûrement. qui Beispiele Excel1 et Excel2 marcher chez mir einwandfrei. malheureusement habe je es encore pas geschafft, une vorhandene Excel-Dossier trop ouvrir. dans Excel1.prf habe je qui la ligne
Kompilieren Marque Séparation

var NewBook&=ocxMethod(WorkBooks&,Add)

par
Kompilieren Marque Séparation

var NewBook&=ocxMethod(WorkBooks&,Open,C:\Programme\XProfan10\ocxPackage2\Intern2\Excel3.xls)

ersetzt. Funktioniert mais pas. Irgendwas stimmt avec dem/den Parametern (Dateiname) pas. qui Dossier gibt es mais dans diesem Verzeichnis. Habe déjà alles mögliche ausprobiert. sais Du quoi?

merci!

Win10 16 GB RAM

Christof
Neuß

Hi Pascal,

je bins nochmal.

suis dans XProfan encore pas so bewandert. peux es son, dass ici irgendwas fehlt?
Kompilieren Marque Séparation

proc ocxPutParams-------------------------------ocxPutParams----------------------------

    declare Pos%,v$,v&,v%
    dim Param#,(Count%-1)*16--Parameter-Array
    clear Param#

    whileloop Count%,3,-1--bestücken in umgekehrter Reihenfolge!

        v$=$(&loop)
        v&=&(&loop)
        v%=~VT_I4

        if left$(v$,1)=*------Parameter ist String

            v%=~VT_BSTR
            v$[&loop]=MultiToWideEx(del$(v$,1,1))
            v&=addr(v$[&loop])

        elseif left$(v$,1)=#--Parameter ist Objekt

            v%=~VT_DISPATCH
            v&=val(del$(v$,1,1))

        endif

        word Param#,Pos%=v%--Typ
        Pos%=Pos%+8
        long Param#,Pos%=v&--Wert
        Pos%=Pos%+8

    endwhile

    endproc-------------------------------------------------------------------------------pan>-

dessus volonté Count% et Param# angesprochen, qui mais ici pas transfert ou bien declariert volonté. Comme je le disais, je verstehs encore pas so richtig.

Merci!

Win10 16 GB RAM

Beides dans übergeordneter Procédure/Funktion ou bien gar global?

Christof
Neuß

SORRY!

allô Pascal,

es funktioniert!!!! je hatte seulement un * am Anfag des Dateinamens oublier qc.
BTW: pourquoi muss cela là hin?

Merci!

Win10 16 GB RAM

Christof
Neuß

Hi iF,

jo, maintenant hab ICHs aussi enfin kapiert. Deklarierte Variablen sommes oui ici aussi pour qui untergeordneten Procs sichtbar.

merci pour den Hinweis!

Win10 16 GB RAM

Christof
Neuß

allô Pascal,

beim Kompilieren avec XPSE bekomme je toujours qui Fehlermeldung, dass chez 2 Zeilen cela Stringende fehlt. j'ai ensuite dans qui OCX2.PH à folgende Zeilen un zweites angehängt. maintenant gehts!
Kompilieren Marque Séparation

CoUninitialize(=External(ole32,CoUninitialize;
AtlAxWinInit(=External(atl.dll,AtlAxWinInit

peux Du avec cela quoi anfangen?

Win10 16 GB RAM