PureBoard

Verfasst: **05.02.2012 21:44**

Hallo Gemeinde,

Habe ein etwas kniffliges Problem mit COMatePlus.

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.

Verfasst: **07.02.2012 21:42**

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

Verfasst: **07.02.2012 21:55**

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

Verfasst: **07.02.2012 22:01**

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

Verfasst: **07.02.2012 22:15**

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

PureBoard

COMatePlus

COMatePlus

Re: COMatePlus

Re: COMatePlus

Re: COMatePlus

Re: COMatePlus