Excel mit COMatePLUS steuern

[Musterschüler]

Hi,

ich bin neu hier und habe eine Frage.
Ich möchte mit COMatePLUS Excel starten und ein paar Exceldateien öffen.
Danach möchte ich die Exceldateien nach einem bestimmten Ausdruck durchsuchen.
Wenn ich die richtige Zeile gefunden habe möchte ich dort etwas eintragen.

Hier ein kleiner Auszug aus meinem Code
(angepasster Code aus den Beispieldateien von COMate):

Code: Alles auswählen

XIncludeFile "COMatePLUS.pbi"
Define.COMateObject ExcelObject, WorkBook
ExcelObject = COMate_CreateObject("Excel.Application")
ExcelObject\SetProperty("Visible = #True")
Pfad$ = GetPathPart( GetCurrentDirectory())
ExcelObject\Invoke("Workbooks\Open('" + Pfad$ + "Liste1.xlsx')")
ExcelObject\Invoke("Workbooks\Open('" + Pfad$ + "Liste2.xlsx')")
ExcelObject\Invoke("'Liste1.xlsx'")
For a=1 To ExcelObject\GetIntegerProperty("Workbooks\Count")
      Debug ExcelObject\GetStringProperty("Workbooks("+ Str(a) +")\Name")   ; nur zum test
    Next

If ExcelObject

; hier möchte ich in der Excel Liste 1 schreiben - > das funktioniert aber nicht, es wird nur  
; in Liste 2 geschrieben
    ExcelObject\Invoke("'Liste1.xlsx'")
    ExcelObject\SetProperty("Windows('Liste1.xlsx')\Activate") 
    ExcelObject\SetProperty("Cells(1,1) = 'Test in Liste 1'") 
    
; und hier möchte ich in der Excel Liste 2 schreiben 
    ExcelObject\Invoke("'Liste2.xlsx'")
    ExcelObject\SetProperty("Windows('Liste2.xlsx')\Activate") 
    ExcelObject\SetProperty("Cells(1,1) = 'Test in Liste 2'") 
    ExcelObject\Invoke("Quit()")
    ExcelObject\Release()
Else
  MessageRequester("COMate -", "Couldn't create the application object!")
EndIf

Die Exceldatei die zuletzt geladen wurde ist aktiv und in diese kann ich auch schreiben.
Das aktivieren der anderen Exceldatei ist nicht möglich.

Kann mir einer sagen wir ich eine Exceldateien aktivieren kann damit ich darin lesen und schreiben kann.

Vielen Dank im voraus.

Musterschüler

__________________________________________________
Code-Tags hinzugefügt
06.03.2010
RSBasic

[dysti]

Musterschüler,

hier hast du ein Beispiel:

Code: Alles auswählen

XIncludeFile "COMatePLUS.pbi"
Pfad$ = GetPathPart( GetCurrentDirectory())
Define.COMateObject ExcelObject, WorkBook
    ; Objekt erstellen
    ExcelObject = COMate_CreateObject("Excel.Application")

If ExcelObject
    ExcelObject\SetProperty("Visible = #False")
    ExcelObject\SetProperty("AskToUpdateLinks = #False")
    ExcelObject\SetProperty("DisplayAlerts =  #False")
    
    ; Wir schreiben erstmal in die Exeldatei
    
; hier möchte ich in der Excel Liste 1 schreiben - > das funktioniert aber nicht, es wird nur 
; in Liste 2 geschrieben
    ExcelObject\Invoke("Workbooks\Open('" + Pfad$ + "Liste1.xls')")
    ExcelObject\Invoke("'Liste1.xls'")
    ExcelObject\SetProperty("Windows('Liste1.xls')\Activate")
    Workbook=ExcelObject\GetObjectProperty("ActiveWorkbook")
    ExcelObject\SetProperty("Cells(1,1) = 'Test in Liste 1'")
    
    Workbook\Invoke("Save")
    Workbook\Invoke("Close")
    Workbook\Release()
      
; und hier möchte ich in der Excel Liste 2 schreiben
    ExcelObject\Invoke("Workbooks\Open('" + Pfad$ + "Liste2.xls')")
    ExcelObject\Invoke("'Liste2.xls'")
    ExcelObject\SetProperty("Windows('Liste2.xls')\Activate")
    ExcelObject\SetProperty("Cells(1,1) = 'Test in Liste 2'")
    Workbook=ExcelObject\GetObjectProperty("ActiveWorkbook")
    Workbook\Invoke("Save")
    Workbook\Invoke("Close")
    Workbook\Release()
    
    ;For a=1 To ExcelObject\GetIntegerProperty("Workbooks\Count")
    ;  Debug ExcelObject\GetStringProperty("Workbooks("+ Str(a) +")\Name")   ; nur zum test
    ;Next
    
    ; Nun wollen wir den Inhalt auch wieder auslesen
    
    ; aus Liste 1
    ExcelObject\Invoke("Workbooks\Open('" + Pfad$ + "Liste1.xls')")
    ExcelObject\Invoke("'Liste1.xls'")
    ExcelObject\SetProperty("Windows('Liste1.xls')\Activate")
    Workbook=ExcelObject\GetObjectProperty("ActiveWorkbook")
    Zelle1$=ExcelObject\GetStringProperty("Cells(1,1)\Value")
    
    ; aus Liste 2
    ExcelObject\Invoke("Workbooks\Open('" + Pfad$ + "Liste2.xls')")
    ExcelObject\Invoke("'Liste2.xls'")
    ExcelObject\SetProperty("Windows('Liste2.xls')\Activate")
    Zelle2$=ExcelObject\GetStringProperty("Cells(1,1)\Value")
    
    ExcelObject\Invoke("Quit()")
    ExcelObject\Release() 
    
    ; und den Inhalt anzeigen
    MessageRequester("Zelleninhalt","Zelleninhalt: " + Chr(10)+Chr(13) + "Zelle 1 -> " + Zelle1$ + Chr(10)+Chr(13) + "Zelle 2 -> " + Zelle2$)   
    
Else
  MessageRequester("COMate -", "Couldn't create the application object!")
EndIf
  MessageRequester("Exelzugriff", "Programm wird beendet")
End 

[Falko]

Anscheinend funktioniert dieses hier nicht mehr in der neuen
COMatePlus-Version:

Code: Alles auswählen

...
ExcelObject\Invoke("Quit()")
    ExcelObject\Release() ...

Zwar kann ich mit dem Quit() Excell beenden. Nur im Taskmanager
bleibt es im Speicher, was bei der älteren COMate.pb korrekt beendet wurde.

Vielleicht wisst ihr, woran das liegen könnte, falls ich am Code bei mir noch was ändern müsste.
http://www.purebasic.fr/german/viewtopi ... 66#p239466

Gruß Falko

[marco2007]

Zwar kann ich mit dem Quit() Excel beenden. Nur im Taskmanager
bleibt es im Speicher, was bei der älteren COMate.pb korrekt beendet wurde.

Bei MarkCellsRight dürfte etwas nicht stimmen:

Code: Alles auswählen

Procedure MarkCellsRight(ExcelObject.COMateObject); Marks full Cells from selected Cell and right from there
  Protected Range1.COMateObject, Range2.COMateObject, *Range1, *Range2
  *Range1 = ExcelObject\GetObjectProperty("ActiveCell\Offset(0,1)")
  If Range1
    *Range2 = ExcelObject\GetObjectProperty("ActiveCell\Offset(0,3)")
    If Range2
      ExcelObject\Invoke("Range(''"+Str(Range1)+"','"+Str(Range2)+"'')\Select")
      Debug "RechtsMarkieren(): "+COMate_GetLastErrorDescription() 
      Range2\Release()
    EndIf
    Range1\Release()
   EndIf

EndProcedure 

...wenn Du`s beim Test-Code kommentierst, dann ist Excel.exe im Taskmanager weg.

[ts-soft]

*Range1 und Range1 sind ja auch unterschiedliche Variablen, genauso bei Range2

Mit EnableExplicit wäre das nicht passiert

[Falko]

..Mit EnableExplicit wäre das nicht passiert

Naja, dann werde ich gleich mal schauen. Aber das ist in der ExcelFunktion.pbi vorhanden. Und es passiert dann trotzdem damit?
Danke für den Hinweis

Gruß Falko

[marco2007]

ExcelObject\Invoke("Range(''"+Str(Range1)+"','"+Str(Range2)+"'')\Select")...je zwei ''.

[Falko]

Oje, das war wohl damals ein Missverständnis, da ich dachte für " müsse man zwei Hochkommas einzeln setzen. Danke marco2007.

Nun noch zu ts-soft seine korrekte Aussage. Da hatte ich damals mit Probleme, wenn ich es wie folgt gemacht habe:

Code: Alles auswählen

Procedure MarkCellsRight(ExcelObject.COMateObject); Marks full Cells from selected Cell and right from there
  Protected Range1.COMateObject, Range2.COMateObject
  Range1 = ExcelObject\GetObjectProperty("ActiveCell\Offset(0,1)")
  If Range1
    Range2 = ExcelObject\GetObjectProperty("ActiveCell\Offset(0,3)")
    If Range2
      ExcelObject\Invoke("Range('"+Str(Range1)+"','"+Str(Range2)+"')\Select")
      Debug "RechtsMarkieren(): "+COMate_GetLastErrorDescription() 
      Range2\Release()
    EndIf
    Range1\Release()
   EndIf
 
 EndProcedure

Wobei ich den einen Fehler jetzt korrigiert habe.

....
RechtsMarkieren(): An exception occurred during the execution of this method/property.
...

Was bedeutet das hier im Klartext übersetzt?
Vorher war es aufgrund der doppelten ' ' ein Overflow...

Gruß Falko

[ts-soft]

Eine Ausnahme kam während der Ausführung dieser Methode/Eigentums vor.

[marco2007]

Wenn man den Range so übergibt, dann ist`s okay:

Code: Alles auswählen

ExcelObject\Invoke("Range('F6:F7')\Select")

Sorry für die blöde Frage: Was ist rechts markieren? Damit ich weiß, was passieren soll....-> sprich: Was muss ich bei Excel drücken?