[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] VBS如何实现引用excel表格里的内容套入到指定模板文件批量生成多个vbs文件

说明:[attach]10335[/attach]
附件:[attach]10336[/attach]

  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
复制代码

TOP

O(∩_∩)O谢谢!能直接生成一个个的vbs文件吗?按上面的代码执行后,是窗口显示。
1

评分人数

    • pcl_test: 优先文字说明,能用文字说明清楚的勿发图片PB -2

TOP

简直是智障。代码都写成这样了。这都还需要问。
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

回复 3# banality_hzs

我特意这么弄的,不必再发图告诉我

TOP

这么提问太专业……

請問2樓代碼,第16行中的注釋符號是用來做什麽的?可以去掉么?會不會把電腦搞爆炸?
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

返回列表