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

banality_hzs

说明：
附件：

pcl_test

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

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

codegay

简直是智障。代码都写成这样了。这都还需要问。

pcl_test

回复 3# banality_hzs

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

yu2n

这么提问太专业……

請問2樓代碼，第16行中的注釋符號是用來做什麽的？可以去掉么？會不會把電腦搞爆炸？