Das Forentreffen 2018 findet am 20./21. April in Dresden statt. Weitere Infos hier
Zur Homepage des Deutschsprachige Xbase-Entwickler e. V.
Xbase++-Wiki des Deutschsprachige Xbase-Entwickler e. V.

Excel-Object: Excel geöffnet? Arbeitsblatt geladen?

Einbindung von Office-Komponenten wie Word, Excel usw.

Moderator: Moderatoren

Benutzeravatar
Roland Gentner
1000 working lines a day
1000 working lines a day
Beiträge: 837
Registriert: Fr, 24. Nov 2006 8:30
Wohnort: Neresheim
Kontaktdaten:

Re: Excel-Object: Excel geöffnet? Arbeitsblatt geladen?

Beitrag von Roland Gentner » Mo, 01. Dez 2014 2:34

Hallo Jimmy

Code: Alles auswählen

oSheet:Change := { | oSheet , cRange | ChkCell1( oSheet , cRange ) }
oBook:SheetChange := { | cRange | ChkCell2( cRange ) }
funktioniert bei mir aber...
Gruß
Roland

Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 10522
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg

Re: Excel-Object: Excel geöffnet? Arbeitsblatt geladen?

Beitrag von AUGE_OHR » Mo, 01. Dez 2014 3:16

Roland Gentner hat geschrieben:funktioniert bei mir aber...
interessant ...
gruss by OHR
Jimmy

Benutzeravatar
Roland Gentner
1000 working lines a day
1000 working lines a day
Beiträge: 837
Registriert: Fr, 24. Nov 2006 8:30
Wohnort: Neresheim
Kontaktdaten:

Re: Excel-Object: Excel geöffnet? Arbeitsblatt geladen?

Beitrag von Roland Gentner » Mo, 01. Dez 2014 3:20

Hi Jimmy

Nachtschicht oder Frühschicht?

So habe ich es eingebaut:

Code: Alles auswählen

// damit das Objekt auf die CallBack-Events reagiert
oBookA := oBookA:DynamicCast( ActiveXObject() )
// CallBack-Methode wenn User das Arbeitsblatt schlieáen will
oBookA:BeforeClose := { | | GsOfficeExcelBeforeClose() }
// CallBack-Methode wenn gespeichert werden soll
oBookA:BeforeSave := { | lSaveAs , lCancel | GsOfficeExcelBeforeSave( lSaveAs , lCancel ) }
// CallBack-Methode auf WorkBook-Ebene
oBookA:SheetChange := { | oSheetA , cRange | GsOfficeExcelBookSheetChange( oSheetA , cRange ) }
*// Change-Methode auf Sheet-Ebene
*oSheetA := oExcel:Application:ActiveSheet()
*oSheetA := oSheetA:DynamicCast( ActiveXObject() )
*oSheetA:Change := { | cRange | GsOfficeExcelBookSheetChange( cRange ) }
Gruß
Roland

Antworten