作报表时可能需要对Excel文件操作，主要是外部的Excel文件读写和表格控件(用于制作日、月、年报表)：Micrsoft Office Spreadsheet 11.0的读写。
1-读写外部Excel文件? ? ?
2- D盘新建excel文件，test.xlsx，通过以下VBS脚本对其进行操作??????
1.1-写入数据??????
1.2-步骤：创建FSO对象、指定excel路径、创建Excel对象、打开excel、读写excel并保存、关闭excel、退出excel程序、释放对象
Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y) Dim?objFSO,objFile'1-创建objFSO对象，实现对文本/文件的操作Set objFSO = CreateObject("scripting.FileSystemObject")'2-指定文件路径Set objFile = objFSO.GetFile("D:\test.xlsx")'3-创建excel对象Dim ObjExcelAppSet objExcelApp = CreateObject("Excel.Application")'4-打开路径下的文件objExcelApp.Workbooks.Open?objFile
'5-对文件进行写操作'向sheet1表格的第5行第5列写入123 'sheet是工作表的名称，也可使用 (1)来指定第一个工作表 objExcelApp.worksheets ("Sheet1").Cells(5, 5).VAlue = 123 objExcelApp.worksheets (1).Cells(5, 6).VAlue = 234 'objExcelApp.worksheets?("sheet1").Cells(5,?5).VAlue?=?HMIRuntime.Tags("变量1").read'保存objExcelApp.ActiveWorkbook.Save
'6-关闭excel文件objExcelApp.Workbooks.Close'退出excel应用objExcelApp.Quit'释放Excel对象Set ObjEXceLapp = NothingMsgBox "写入成功"End Sub
附件:
[本地下载]
