XProfan

Hilft das [...]

Christof
Neuß

Leider nicht.

Die Excel-Tabelle hat keine Tabellenstruktur und mehrere Register und ich muss bestimmte raussuchen. Zellen lesen und wieder beschreiben.

Win10 16 GB RAM

Vielleicht weiss da Marc mehr.

Christof
Neuß

Würde mir echt weiterhelfen.

Trotzdem Danke.

Win10 16 GB RAM

Uwe
''Pascal''
Niemeier

Hallo Christof!

Geht doch sicher auch mit XProfan, oder?
Zur Not über ActiveX?!

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

26.04.2008 ▲

Christof
Neuß

Hallo Pascal,

super, damit gehts sicher. Die Beispiele Excel1 und Excel2 funktionieren bei mir einwandfrei. Leider habe ich es noch nicht geschafft, eine vorhandene Excel-Datei zu öffnen. In Excel1.prf habe ich die Zeile
Kompilieren Markieren Separieren

var NewBook&=ocxMethod(WorkBooks&,Add)

durch
Kompilieren Markieren Separieren

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

ersetzt. Funktioniert aber nicht. Irgendwas stimmt mit dem/den Parametern (Dateiname) nicht. Die Datei gibt es aber in diesem Verzeichnis. Habe schon alles mögliche ausprobiert. Weißt Du was?

Danke!

Win10 16 GB RAM

Christof
Neuß

Hi Pascal,

ich bins nochmal.

Bin in XProfan noch nicht so bewandert. Kann es sein, dass hier irgendwas fehlt?
Kompilieren Markieren Separieren

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

Oben werden Count% und Param# angesprochen, die aber hier nicht übergeben oder declariert werden. Wie gesagt, ich verstehs noch nicht so richtig.

Merci!

Win10 16 GB RAM

Beides in übergeordneter Prozedur/Funktion oder gar global?

Christof
Neuß

SORRY!

Hallo Pascal,

es funktioniert!!!! Ich hatte nur ein * am Anfag des Dateinamens vergessen.
BTW: Warum muss das da hin?

Merci!

Win10 16 GB RAM

Christof
Neuß

Hi iF,

jo, jetzt hab ICHs auch endlich kapiert. Deklarierte Variablen sind ja hier auch für die untergeordneten Procs sichtbar.

Danke für den Hinweis!

Win10 16 GB RAM

Christof
Neuß

Hallo Pascal,

beim Kompilieren mit XPSE bekomme ich immer die Fehlermeldung, dass bei 2 Zeilen das Stringende fehlt. Ich habe dann in der OCX2.PH an folgende Zeilen ein zweites angehängt. Jetzt gehts!
Kompilieren Markieren Separieren

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

Kannst Du damit was anfangen?

Win10 16 GB RAM