美女露出让男生揉视频_狍和女人一级毛片免费的_欧美人欧美人妖videos12_护士潮湿的小内裤bd播放

Wincc-VBS讀寫(xiě)Excel文件，從一個(gè)公眾號(hào)得到個(gè)好東西
作報(bào)表時(shí)可能需要對(duì)Excel文件操作，主要是外部的Excel文件讀寫(xiě)和表格控件(用于制作日、月、年報(bào)表)：Micrsoft Office Spreadsheet 11.0的讀寫(xiě)。
1-讀寫(xiě)外部Excel文件? ? ?
2- D盤(pán)新建excel文件，test.xlsx，通過(guò)以下VBS腳本對(duì)其進(jìn)行操作??????
1.1-寫(xiě)入數(shù)據(jù)??????
1.2-步驟：創(chuàng)建FSO對(duì)象、指定excel路徑、創(chuàng)建Excel對(duì)象、打開(kāi)excel、讀寫(xiě)excel并保存、關(guān)閉excel、退出excel程序、釋放對(duì)象
Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)                                  Dim?objFSO,objFile'1-創(chuàng)建objFSO對(duì)象，實(shí)現(xiàn)對(duì)文本/文件的操作Set objFSO = CreateObject("scripting.FileSystemObject")'2-指定文件路徑Set objFile = objFSO.GetFile("D:\test.xlsx")'3-創(chuàng)建excel對(duì)象Dim ObjExcelAppSet objExcelApp = CreateObject("Excel.Application")'4-打開(kāi)路徑下的文件objExcelApp.Workbooks.Open?objFile
'5-對(duì)文件進(jìn)行寫(xiě)操作'向sheet1表格的第5行第5列寫(xiě)入123 'sheet是工作表的名稱(chēng)，也可使用 (1)來(lái)指定第一個(gè)工作表 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-關(guān)閉excel文件objExcelApp.Workbooks.Close'退出excel應(yīng)用objExcelApp.Quit'釋放Excel對(duì)象Set ObjEXceLapp = NothingMsgBox "寫(xiě)入成功"End Sub


Wincc-VBS讀寫(xiě)Excel文件.rar (1231 K) 下载次数:291

感謝分享