麻豆一区区三三四区产品麻豆-麻豆影视国产TV在线观看-麻豆影视国产在线观看-麻豆影视在线-麻豆影视在线观看av-麻豆影院

2184263820
級別: 略有小成
精華主題: 0
發帖數量: 169 個
工控威望: 299 點
下載積分: 61 分
在線時間: 31(小時)
注冊時間: 2024-02-16
最后登錄: 2024-12-16
查看2184263820的 主題 / 回貼
樓主  發表于: 2024-05-07 20:47
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
往事如風
科技改變制造
級別: 網絡英雄

精華主題: 0
發帖數量: 11484 個
工控威望: 18642 點
下載積分: 12347 分
在線時間: 2697(小時)
注冊時間: 2013-01-31
最后登錄: 2024-12-15
查看往事如風的 主題 / 回貼
1樓  發表于: 2024-05-09 11:25
感謝分享
三人行者必有我師 ,擇其善者而從之

主站蜘蛛池模板: 99久久国产综合色婷婷| 波多野结衣av无码| 国产成年无码V片在线| 制服丝袜国产一区二区| 国产真实伦偷精品| 久久国产成人福利播放| 五月激情国产一区二区在线观看| 国产成人无码精品一区| 在线观看的免费网站| 欧美乱人伦中文字幕在线不卡| 91亚洲视频在线| 日韩国产黄色网站| 国产中文字幕乱人| 日本网站在线播放| 免费的性L交A片Y| 日韩亚洲国产欧美精品| 午夜DV内射一区区| 春色校园小说综合网| 久热国产精品视频| 国产啪精品视频网给免丝袜| 日本亚欧色情| 久久久久国产精品| 欧美精品久久99人妻无码| 人妻日记圣诞之夜| 51久久亚洲夜色| 香港三级日本三级韩国三级韩| 丁香花视频免费播放社区| 美日韩日日夜夜| 精品人伦一区二区三区蜜桃小说| 亚洲视频影院| 欧美国产综合网| 99久久免费国内精品| 天天摸天天操天天干| 国产熟妇的荡欲午夜视频 | 国产AV亚洲精品久久久久久小说 | 国产素人在线观看人成视频| 特级毛片AAAAAA| 久久久久精品无码专区喝奶| 91中文字幕在线视频| 免费看黄网站在线| 99re 久久这里只有精品6|