为了方便起见,最好安装lua for windows,里面已经包含了很多有用的第三方模块。
使用lua调用excel,然后往cell里面填一些数据。
稍微复杂一些的代码
require “luacom”
excel = luacom.CreateObject(“Excel.Application”)
local book = excel.Workbooks:Add()
local sheet = book.Worksheets(1)
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
excel.DisplayAlerts = false — 終了確認を出さないようにする
excel:Quit()
excel = nil
如果想给excel加个图表该怎么做?
require “luacom”
excel = luacom.CreateObject(“Excel.Application”)
local book = excel.Workbooks:Add()
local sheet = book.Worksheets(1)
excel.Visible = true
for row=1,30 do
sheet.Cells(row,1).Value2 = math.floor(math.random() * 100)
end
local chart = excel.Charts:Add()
chart.ChartType = 4 — xlLine
local range = sheet:Range(“A1:A30″)
chart:SetSourceData(range)
如果想调用windows api,可以用下面的代码
require “alien”
MessageBox = alien.User32.MessageBoxA
MessageBox:types{ret = ‘long’,abi = ’stdcall’,‘long’,’string’,
’string’,‘long’ }
MessageBox(0,“title for test”,“LUA call windows api”,0)
如何实现回调函数呢?下面的例子展示了回调。
require ‘alien’
–声明了两个函数EnumWindows和GetClassName
EnumWindows = alien.user32.EnumWindows
EnumWindows:types {“callback”,“pointer”,abi=”stdcall”}
GetClassName = alien.user32.GetClassNameA
GetClassName:types {“long”,“int”,abi=”stdcall” }
local buf = alien.buffer(512)
– 会被EnumWindows反复调用,传入windows的handle
local function enum_func(hwnd,p)
GetClassName(hwnd,buf,511)
print (hwnd..”:”..tostring(buf))
return 1
end
local callback_func = alien.callback(
enum_func,
{“int”,abi=”stdcall”})
EnumWindows(callback_func,nil)
其中函数原型是
BOOL EnumWindows(WNDENUMPROC lpEnumFunc,LPARAM lParam);
int GetClassName(HWND hWnd,LPTSTR lpClassName,int nMaxCount);
其中EnumWindows第一个参数的原型为,这个函数是客户调用时候传入,EnumWindows用它返回
BOOL CALLBACK EnumWindowsProc(HWND hwnd,LPARAM lParam);
其他复杂的使用方法可以参考alien的文档。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。