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