标题: [问题求助] VBS如何实现引用excel表格里的内容套入到指定模板文件批量生成多个vbs文件 [打印本页]
作者: banality_hzs 时间: 2016-12-16 16:35 标题: VBS如何实现引用excel表格里的内容套入到指定模板文件批量生成多个vbs文件
说明：[attach]10335[/attach]
附件：[attach]10336[/attach]
作者: pcl_test 时间: 2016-12-16 18:27
- Set fso=CreateObject("Scripting.FileSystemObject")
- text=fso.OpenTextFile("模板.vbs", 1).ReadAll
- fd = fso.GetFolder(".").Path
- Set objExcel = CreateObject("Excel.Application")
- Set objBook = objExcel.Workbooks.open(fd&"\OLT设备表11.xlsx")
- objBook.worksheets(1).activate
- Set objSheet = objBook.activeSheet
- rows=objSheet.usedrange.rows.count
- For i=2 To rows '从第2行开始遍历
- result=""
- caption=objSheet.Cells(i, 2).value 'B列
- ip=objSheet.Cells(i, 3).value 'C列
- filename=objSheet.Cells(i, 4).value 'D列
- result=replace(replace(text, "Hostname", ip), "Func", caption)
- msgbox result
- 'fso.CreateTextFile(filename, 2).Write(result)
- Next
- objBook.Close
- objExcel.Quit
作者: banality_hzs 时间: 2016-12-17 23:00
O(∩_∩)O谢谢！能直接生成一个个的vbs文件吗？按上面的代码执行后，是窗口显示。
作者: codegay 时间: 2016-12-17 23:58
简直是智障。代码都写成这样了。这都还需要问。
作者: pcl_test 时间: 2016-12-18 00:11
回复 3# banality_hzs
我特意这么弄的，不必再发图告诉我
作者: yu2n 时间: 2017-2-21 19:23
这么提问太专业……
請問2樓代碼，第16行中的注釋符號是用來做什麽的？可以去掉么？會不會把電腦搞爆炸？
| 欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |