XProfan

Hilft el [...]

Christof
Neuß

Leider no.

El Excel-Tabla ha no Tabellenstruktur y mehrere Register y yo muss cierto raussuchen. Zellen lesen y otra vez beschreiben.

Win10 16 GB RAM

Tal vez blanco como Marc mehr.

Christof
Neuß

Würde me echt weiterhelfen.

Trotzdem Gracias.

Win10 16 GB RAM

Uwe
''Pascal''
Niemeier

¡Hola Christof!

Geht doch sicher auch con XProfan, oder?
A Not encima ActiveX?!

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

26.04.2008 ▲

Christof
Neuß

¡Hola Pascal,

super, así gehts sicher. El Beispiele Excel1 y Excel2 trabajo en me einwandfrei. Leider Yo lo todavía no geschafft, una vorhandene Excel-Expediente a abierto. In Excel1.prf Yo el Línea
Kompilieren Marca Separación

var NewBook&=ocxMethod(WorkBooks&,Add)

por
Kompilieren Marca Separación

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

ersetzt. Funktioniert pero no. Irgendwas stimmt con el/el Parametern (Dateiname) no. El Expediente hay aber en diesem Directorio. Posesiones ya alles mögliche ausprobiert. Weißt Usted qué?

Gracias!

Win10 16 GB RAM

Christof
Neuß

Hi Pascal,

Yo bins otra vez.

Bin en XProfan no tan bewandert. Kann lo ser, dass hier algo fehlt?
Kompilieren Marca Separación

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>-

Oben voluntad Count% y Param# angesprochen, el aber hier no transferencia oder declariert voluntad. Como ya he dicho, Yo verstehs no tan correcto.

Merci!

Win10 16 GB RAM

Beides en übergeordneter Procedimiento/Función oder gar global?

Christof
Neuß

SORRY!

¡Hola Pascal,

lo funktioniert!!!! Tuve sólo una * al Anfag des Dateinamens vergessen.
BTW: ¿Por qué muss el como hin?

Merci!

Win10 16 GB RAM

Christof
Neuß

Hi IF,

jo, ahora tener ICHs auch endlich kapiert. Deklarierte Variables son tan hier auch para el untergeordneten Procs sichtbar.

Gracias para el Referencia!

Win10 16 GB RAM

Christof
Neuß

¡Hola Pascal,

beim Kompilieren con XPSE bekomme Yo siempre el Fehlermeldung, dass en 2 Zeilen el Stringende fehlt. Yo habe entonces en el OCX2.PH a folgende Zeilen una zweites angehängt. Jetzt gehts!
Kompilieren Marca Separación

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

¿Puede Usted así qué anfangen?

Win10 16 GB RAM