65 lines
1.3 KiB
Plaintext
65 lines
1.3 KiB
Plaintext
--必须安装有excel才能进行操作，否则报错
|
||
|
||
-- 创建Excel应用程序对象
|
||
excelApp = createOLEObject "Excel.Application"
|
||
|
||
-- 显示Excel应用程序
|
||
excelApp.Visible = false
|
||
|
||
-- 创建一个新的工作簿
|
||
--workbook = excelApp.Workbooks.Add()
|
||
workbook=excelApp.Workbooks.open(excelFile)
|
||
|
||
-- 获取活动工作表
|
||
sheet = workbook.ActiveSheet
|
||
|
||
-- 写入数据到单元格A1
|
||
(sheet.Cells 1 1).Value = "Hello"
|
||
(sheet.Cells 1 2).Value = "World!"
|
||
|
||
-- 保存工作簿到指定路径
|
||
--workbook.SaveAs "D:\\Desktop\\123.xlsx"
|
||
workbook.Save()
|
||
|
||
-- 关闭工作簿
|
||
workbook.Close()
|
||
|
||
-- 退出Excel应用程序
|
||
excelApp.Quit()
|
||
|
||
|
||
/*-- Startup Ops
|
||
-- Generate a filename
|
||
--这里是excel文件的绝对路径
|
||
excelFile = "D:\\Desktop\\123.xlsx"
|
||
|
||
-- Start an Excel OLE Object
|
||
x = CreateOLEObject "Excel.Application"
|
||
|
||
-- Create a new workbook in the new excel document
|
||
x.application.Workbooks.open(excelFile)
|
||
|
||
-- This makes Excel Visible
|
||
-- true的话脚本运行时看到打开excel
|
||
x.visible = false
|
||
|
||
--示例 获取表中1，1位置的数据
|
||
pictureNum = (x.ActiveSheet.Cells 1 1).Value
|
||
(x.ActiveSheet.Cells 1 1).Value="12345"
|
||
|
||
--之后是释放操作，如果未执行会导致excel文件一直被占用，只能以只读被打开
|
||
-- Cleanup Ops
|
||
-- Close the spreadsheet
|
||
x.application.ActiveWorkbook.Close
|
||
|
||
-- quit excel
|
||
x.quit()
|
||
|
||
-- Release the OLE Object
|
||
releaseOLEObject x
|
||
|
||
-- Release ALL OLE Objects, just in case
|
||
releaseAllOLEObjects()
|
||
*/
|
||
|