package.path = package.path..";C:\\HOME\\Tools\\luaforwindows-master\\files\\?.lua"
package.cpath = package.cpath..";C:\\HOME\\Tools\\luaforwindows-master\\files\\clibs\\?.dll"

require "luacom"

excel = luacom.CreateObject("Excel.Application")
if not excel then
  print("Error create Excel.Application object")
end
excel.Visible = true

fpath = "C:\\HOME\\Tools\\luaforwindows-master\\files\\luacom_example.xlsx"
wb = excel.Workbooks:Open(fpath)

local sheet = wb.Worksheets("ImportantSheet1")
excel.Visible = true

-- 適当な値を書き込む
for row=1,30 do
  for col=1,30 do
    sheet.Cells(row, col).Value2 = math.floor(math.random() * 100)
  end
end

-- 値を調べて50以上のものを黄色でマークする
local range = sheet:Range("A1")
for row=1,30 do
  for col=1,30 do
    local v = sheet.Cells(row, col).Value2
    if v > 50 then
      local cell = range:Offset(row-1, col-1)
      cell:Select()
      excel.Selection.Interior.Color = 65535
    end
  end
end