Board logo

标题: [问题求助] 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

  1. Set fso=CreateObject("Scripting.FileSystemObject")
  2. text=fso.OpenTextFile("模板.vbs", 1).ReadAll
  3. fd = fso.GetFolder(".").Path
  4. Set objExcel = CreateObject("Excel.Application")
  5. Set objBook = objExcel.Workbooks.open(fd&"\OLT设备表11.xlsx")
  6. objBook.worksheets(1).activate
  7. Set objSheet = objBook.activeSheet
  8. rows=objSheet.usedrange.rows.count
  9. For i=2 To rows  '从第2行开始遍历
  10.     result=""
  11.     caption=objSheet.Cells(i, 2).value  'B列
  12.     ip=objSheet.Cells(i, 3).value  'C列
  13.     filename=objSheet.Cells(i, 4).value  'D列
  14.     result=replace(replace(text, "Hostname", ip), "Func", caption)
  15.     msgbox result
  16.     'fso.CreateTextFile(filename, 2).Write(result)
  17. Next
  18. objBook.Close
  19. 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