• MSExcel

Ukázka otevírání dokumentu v excelu a zápisu

Popis

declare function ExcelOpenApplication dll "ActualDocument" (): boolean
declare function ExcelOpenDocument dll "ActualDocument"(string): boolean
declare function ExcelOpenSheet dll "ActualDocument" (string): boolean

declare function ExcelCloseApplication dll "ActualDocument" (): boolean
declare function ExcelCloseDocument dll "ActualDocument" (): boolean
declare function ExcelCloseSheet dll "ActualDocument" (): boolean

declare procedure ExcelWrite dll "ActualDocument" (string, string, string)

script ExcelAppOpen(): boolean
begin
  if ExcelOpenApplication() then  // Otevře excel
    if ExcelOpenDocument("c:\Temp\test.xlsx") then // Otevře dokument excelu
      if ExcelOpenSheet("Name=List1") then // Otevře List
        // Práce s excelem
        ExcelWrite("10", "05", "Zápis do excelu")

        ExcelCloseSheet()
      else
        write("Chyba při otevírání listu")
      end

      ExcelCloseDocument()
    else
      write("Chyba při otevírání dokumentu excelu")
    end

    ExcelCloseApplication()
  else
    write("Chyba při otevírání excelu")
  end
end