PureBasic

Code : Tout sélectionner

;/////////////////////////////////////////////////////////////////////////////////
;***COMate***  COM automation through iDispatch.
;*===========
;*
;*Excel demo.
;/////////////////////////////////////////////////////////////////////////////////

IncludePath "..\"
XIncludeFile "COMate.pbi"


date$ = FormatDate("%dd/%mm/%yyyy", Date())

Define.COMateObject ExcelObject, WorkBook
Define.COMateObject ExcelObject, WorkSheet
Define.COMateObject ExcelObject, Sheet

ExcelObject = COMate_CreateObject("Excel.Application")

If ExcelObject
  If ExcelObject\SetProperty("Visible = #True") = #S_OK
;     ExcelObject\SetProperty("SheetsInNewWorkbook=1")
    WorkBook = ExcelObject\GetObjectProperty("Workbooks\Add")
    ExcelObject\SetProperty("ActiveSheet\Name = 'MaFeuille' ")
    
    If WorkBook
      ExcelObject\SetProperty("Cells(1,1)\Font\Size = 40")
      ExcelObject\SetProperty("Cells(1,1) = 'Hello'")
      ExcelObject\SetProperty("Cells(1,2)\Font\Bold = -1 ")      
      ExcelObject\SetProperty("Cells(1,2) = 'from'")
      ExcelObject\SetProperty("Cells(1,3) = 'COMate!'")
      ExcelObject\SetProperty("Cells(1,5) = 'Today$0027s date is'")  ;$0027 is a hex escape code used to insert a ' (ascii 39) character.
      ExcelObject\SetProperty("Cells(1,6) = '" + date$ + "' AS DATE")
      ExcelObject\SetProperty("Cells(4,1) = 6.25")
      Texte.s = "Bonjour " + Chr(10) + "Monsieur"
      ExcelObject\SetProperty("Cells(2,1) = '" + Texte + "' ")
      ;Retrieve a double value and a date.
        dbl.d = ExcelObject\GetRealProperty("Cells(4,1)")
          MessageRequester("COMate - Excel demo", "Result Cells(4,1) : " + StrD(dbl))
      ;For the date we retrieve it in string format.
        newDate$ = ExcelObject\GetStringProperty("Cells(1,6)")
          MessageRequester("COMate - Excel demo", "Result Cells(1,6) : " + newDate$)
;       ExcelObject\SetProperty("ActiveSheet\PageSetup\CenterHeader = '"+Chr(38)+"20Toto' ")
      ExcelObject\SetProperty("ActiveSheet\PageSetup\CenterHeader = '"+Chr(38)+"''Arial,Gras' '"+Chr(38)+"20Toto' ")
      ExcelObject\SetProperty("ActiveSheet\PageSetup\CenterFooter = '"+Chr(38)+"20CouCou' ")
      ExcelObject\SetProperty("ActiveSheet\PageSetup\PrintGridlines = -1 ")

      ExcelObject\Invoke("Quit()") 
      WorkBook\Release()
    EndIf
  EndIf
  ExcelObject\Release()
Else
  MessageRequester("COMate -Excel demo", "Couldn't create the application object!")
EndIf