批处理之家 » VBS求助&讨论 » VBS如何实现引用excel表格里的内容套入到指定模板文件批量生成多个vbs文件

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

返回列表发帖

Rank: 1

帖子: 3
积分: 13
技术: 0
捐助: 0
注册时间: 2016-12-16

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2016-12-16 16:35 | 只看该作者

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

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

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

2楼

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

Rank: 1

帖子: 3
积分: 13
技术: 0
捐助: 0
注册时间: 2016-12-16

3楼

发表于 2016-12-17 23:00 | 只看该作者

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

1 评分人数

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

Rank: 6 Rank: 6

帖子: 1266
积分: 1775
技术: 162
捐助: 0
注册时间: 2015-12-12

4楼

发表于 2016-12-17 23:58 | 只看该作者

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

去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

5楼

发表于 2016-12-18 00:11 | 只看该作者

回复 3# banality_hzs

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

Rank: 5 Rank: 5

帖子: 715
积分: 1298
技术: 151
捐助: 0
注册时间: 2012-11-1

6楼

发表于 2017-2-21 19:23 | 只看该作者

这么提问太专业……

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

『千江有水千江月』千江有水，月映千江；万里无云，万里青天。 http://yu2n.qiniudn.com/