Aktuelle Zeit: 27.05.2018 19:55

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 45 Beiträge ]  Gehe zu Seite Vorherige  1, 2, 3, 4, 5
Autor Nachricht
 Betreff des Beitrags: Re: ExcelFunktionen PureDisphelper
BeitragVerfasst: 06.01.2014 21:01 
Offline

Registriert: 16.10.2005 13:59
Wohnort: Manisa / Türkei
Hallo Falko,
danke das du dich darum nochmal kümmerst.

Aber ich verwende ja den Disphelper.
Hab noch nie was mit COMate gemacht, aber ich hoffe das wenn man das in COMate hinbekommt auch irgendwie im Disphelper dann auch hinbekommt.

Grüssle und Danke schon mal.
Michael

_________________
PB 4.02 (wegen Disphelper), 5.2 (Windows)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen PureDisphelper
BeitragVerfasst: 07.01.2014 18:43 
Offline
Admin
Benutzeravatar

Registriert: 29.08.2004 11:27
Hallo @HemSA,
ich habe nun eine Lösung, die in ComatePlus vorhanden ist, gefunden. Es lag bei mir an den Parametern.
Nun müsste man wissen, wie ds #opt (optional) in ComatePlus auf den Disphelper übertragbar ist. Ich steig da zwar
selber nicht durch, aber es scheint ein Platzhalter zu sein, der ignoriert wird. Falls einige es wissen, würde ich mich freuen,
wie man dieses in den Disphelper anpassen kann. Auf jeden Fall Steht das #True für den Parameter ReadOnly eine Stelle weiter.
Darum klappte es bei mir nicht :)

Vielleicht kriegst du das in Disphelper nach Vergleich zu ComatePlus nun auch hin. LG, Falko.

Hier nun der Schnipsel:

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


So wird nun die erst geöffnete Exceldatei nun Schreibgeschützt geöffnet.

[Edit] Ich habe die Funktion nochmal geändert, sodass in ComatePlus nur eine Procedure vorhanden ist.
Somit ist es nun möglich die erste Exceldatei mittels einem #True gleich Schreibgeschützt zu öffnen.
[/Edit]

_________________
Bild
Win10 Pro 64-Bit, PB_5.4,GFA-WinDOS, Powerbasic9.05-Windows, NSBasic/CE, NSBasic/Desktop, NSBasic4APP, EmergenceBasic


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen PureDisphelper
BeitragVerfasst: 07.01.2014 22:08 
Offline

Registriert: 16.10.2005 13:59
Wohnort: Manisa / Türkei
Danke Falko,
mal sehen ob ich das hinbekomme.

Tschüssle
Michael

_________________
PB 4.02 (wegen Disphelper), 5.2 (Windows)


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen PureDisphelper
BeitragVerfasst: 23.05.2015 19:54 
Offline

Registriert: 23.05.2015 19:48
Bin ganz zufällig auf diesen Beitrag gestoßen und ich kann nur sagen Daumen hoch! Ich hoffe, dass ich auch eines Tages so weit sein werde, aber da ich noch ein richtiger Anfänger auf diesem Gebiet bin, denke ich, dass dies noch eine Weile dauern wird. Ich werde auf jeden Fall diesem Beitrag noch weiter folgen, falls denn noch jemand hier reinschreiben wird natürlich :D

Gruß,
Oless


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen PureDisphelper
BeitragVerfasst: 23.05.2015 20:12 
Offline
Admin
Benutzeravatar

Registriert: 29.08.2004 11:27
Dake Oless,

für die Daumen.
Sobald ich etwas mehr Zeit habe, werde ich weiter machen :allright: .

Gruß,
Falko

_________________
Bild
Win10 Pro 64-Bit, PB_5.4,GFA-WinDOS, Powerbasic9.05-Windows, NSBasic/CE, NSBasic/Desktop, NSBasic4APP, EmergenceBasic


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 45 Beiträge ]  Gehe zu Seite Vorherige  1, 2, 3, 4, 5

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye