COMatePlus

[Pure_Beginner]

Hallo Gemeinde,

Habe ein etwas kniffliges Problem mit COMatePlus.

Code: Alles auswählen

Procedure  Hinzufuegen(ExcelTwenty5.COMateObject)
  Suchnummer.s = ""
  Suchnummer.s = GetGadgetText(#Gadget_frm_Haupt_tbx_Suchnummer)
  Suchnummer.s = Trim(Suchnummer.s)
  
  ExcelTwenty5\Invoke("Worksheets('"+Suchnummer.s+"')\Select")
  ExcelTwenty5\Invoke("Columns\Select")
  ExcelTwenty5\Invoke("Columns\Copy")
            
  XLSFunc_AddWorksheetBefore(ExcelTwenty5.COMateObject)
  XLSFunc_ActivateCell(ExcelTwenty5.COMateObject, "A1") 
  ExcelTwenty5\Invoke("ActiveSheet\Paste")
  ClearClipboard()

  SetActiveGadget(#Gadget_frm_Haupt_tbx_Suchnummer)
  SendMessage_(GadgetID(#Gadget_frm_Haupt_tbx_Suchnummer), #EM_SETSEL, 0,-1)
EndProcedure

Das Programm verrichtet sein Dienste sehrgut alledings mit einem Hacken,
giebt man die Falsche Suchnummer.s ein bekommt man keine Fehlermaldung.
Die alte Tabelle wird ohne Kommentar nochmals eingefügt.

Ist es möglich über COMatePlus eine Fehlermeldung zu bekommen und wenn ja wie fange ich dies am besten ab?
Da ich von VB komme stelle ich mich wohl etwas dämlich an.

Besten Dank im voraus.

[Pure_Beginner]

giebt es denn niemanden der sich etwas mit COMatePlus auskennt.
Wäre für jeden Tipp dankbar.

[Nino]

Falls Dir hier niemand bei diesem Problem helfen kann (ich kann es jedenfalls leider nicht), dannn versuch es mal im englischen Forum.

Grüße, Nino

[Kiffi]

vielleicht sowas in der Art (hab kein Excel hier):

Code: Alles auswählen

Protected Worksheet.COMateObject

; [...]

Worksheet = ExcelTwenty5\GetObjectProperty("Worksheets('"+Suchnummer.s+"')")

If Worksheet
  ; Dein Code
  Worksheet\Release()
Else
  Debug "Datt Würgshit gibbet nicht"
EndIf

Grüße ... Kiffi

[Pure_Beginner]

Für jemanden der kein Excel hat kennst du dich beängstigend gut damit aus.
besten dank funkioniert prima