Seite 11 von 18
Re: ExcelFunktionen COMatePlus
Verfasst: 20.03.2013 19:44
von ThoPie
Hallo,
ich habe mal wieder eine Frage/Idee:
Ich möchte gern eine Grafik in einer Excel-Tabelle ausgeben, diese aber aus einer Ressourcen-Datei (ich nutze die UDRes-Include) nehmen. Über
Code: Alles auswählen
UDRes_CatchImage(#imaLogo,UDRes_GetResNumber("Logo.jpg"))
wird das Bild eingelesen.
Ich hätte dann gern sowas
Code: Alles auswählen
Procedure XLSFunc_GrafikRes(ExcelObject.COMateObject,ImageRes.l,X.l,Y.l,Width.l,Height.l)
Ist sowas auch machbar?
Vielen Dank schon mal.
ThoPie
Re: ExcelFunktionen COMatePlus
Verfasst: 07.01.2014 19:14
von Falko
Nun kann man mit folgender Procedure auch ReadOnly ab der ersten Excel-Datei
öffnen. Ein #True ermöglicht dieses nun. ansonsten wurde die erste Datei nicht schreibgeschützt
geöffnet.
Code: Alles auswählen
Procedure.l XLSFunc_OpenExcelFile(Datei.s,ReadOnly.l=#False); Open ExcelFile with ReadOnly-Parameter, #True or #False
Protected ExcelObject.COMateObject,Workbooks
ExcelObject = COMate_CreateObject("Excel.Application")
If ExcelObject
If ReadOnly=#False
ExcelObject\Invoke("Workbooks\Open('"+Datei+"',#opt, #False)"); The first open Excelfile is not ReadOnly
ElseIf ReadOnly=#True
ExcelObject\Invoke("Workbooks\Open('"+Datei+"',#opt, #True)"); The first open Excel is ReadOnly
EndIf
Else
MessageRequester("Achtung","Bitte geben Sie eine vorhandene xls-Datei mit Pfad an!")
EndIf
ProcedureReturn ExcelObject ;.COMateObject
EndProcedure
An Einige, die nach der Hilfe hierzu mich angeschrieben hatten. Da gnozals helptool nicht aktualisiert wird, und man
ihn im englischen Forum wohl nicht erreichen kann, muss ich mich nach einer anderen Möglichkeit, die Hilfe hierzu zu schreiben,
umsehen. Somit kann das noch etwas dauern, bis ich soweit bin. Ich bitte um Verständnis
MfG,
Falko
Re: ExcelFunktionen COMatePlus
Verfasst: 04.09.2015 10:57
von mueckerich
Der Thread ist zwar schon länger nicht mehr aktaulisiert worden, aber viellecht kann es jemand brauchen.
Code: Alles auswählen
Procedure XLSFunc_SetCellTextWrap(ExcelObject.COMateObject, Range.s, Wert.l);Set Cell WrapText
ExcelObject\Invoke("Range('"+ Range +"')\Select")
If Wert=#True
ExcelObject\SetProperty("Selection\WrapText = #TRUE")
ElseIf Wert=#False
ExcelObject\SetProperty("Selection\WrapText = #FALSE")
EndIf
EndProcedure
Re: ExcelFunktionen COMatePlus
Verfasst: 06.09.2015 00:53
von Falko
Danke @mueckerich. Ich habe deinen Source in der Excelfunktions.pb hinzugefügt.
Ich hoffe, dass das Comate+ in der neuen PB 5.4B4 bald läuft.
Die Strukture CLSID macht mir da, wegen Stringvorgabe mir Probleme und
ich habe noch keine Lösung gefunden. Es sei denn, man kann es umgehen.
In PB 5.31 läuft alles.
Gruß,
Falko
Re: ExcelFunktionen COMatePlus
Verfasst: 06.09.2015 12:04
von ts-soft
Re: ExcelFunktionen COMatePlus
Verfasst: 06.09.2015 16:34
von Falko
Danke Thomas, für die Anpassung an PB 5.4B3.
Funktioniert prima.
So, wie ich das aus der alten und neuen PBI-Datei nachvollziehen
konnte, waren das eine ganze Menge an Änderungen.
Gruß,
Falko
Re: ExcelFunktionen COMatePlus
Verfasst: 06.09.2015 16:38
von ts-soft
Falko hat geschrieben:So, wie ich das aus der alten und neuen PBI-Datei nachvollziehen
konnte, waren das eine ganze Menge an Änderungen.
Ich könnte das jetzt so stehen lassen
, aber es sind nur vier kleine Änderungen nötig gewesen.
Re: ExcelFunktionen COMatePlus
Verfasst: 06.09.2015 16:53
von Falko
Dann weiß ich nicht, was mir der PB-Editor mit dem Vergleichswerkzeug
angezeigt hat. Damit meinte ich die einzelnen Zeilen
.Integer weg genommen, bei einigen $ vorgesetzt, Peeks() usw.
das sind doch mehr als nur vier kleine Änderungen
Gruß,
Falko
Re: ExcelFunktionen COMatePlus
Verfasst: 06.09.2015 17:05
von ts-soft
Es ist die letzte mir bekannte Version von srod. Ich habe aber bereits vorher ein paar kleinere Anpassungen machen müssen, die
eigentlich bei Dir auch gemacht werden mußten, ansonsten wäre es ja nicht gelaufen. Ist auch egal, keine 10 Minuten und das
meiste wurde mit Nachdenken verbracht
Das meiste Zeit habe ich mit der registry_module.pbi verbracht und das war auch nicht viel.
Re: ExcelFunktionen COMatePlus
Verfasst: 06.09.2015 19:10
von Falko
Ist ja schon Gut Thomas.
Trotzdem Danke dafür.