Wincc-VBS讀寫Excel文件,從一個公眾號得到個好東西
作報表時可能需要對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
Wincc-VBS讀寫Excel文件.rar (1231 K) 下载次数:278