返回列表 发帖
banality_hzs

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]
收藏 分享

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
6楼
发表于 2017-2-21 19:23 | 只看该作者
这么提问太专业……

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

TOP

pcl_test

Rank: 8Rank: 8

帖子
3040 
积分
5332 
技术
685  
捐助
0  
注册时间
2014-10-19 
5楼
发表于 2016-12-18 00:11 | 只看该作者
回复 3# banality_hzs

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

TOP

codegay

Rank: 6Rank: 6

帖子
1266 
积分
1775 
技术
162  
捐助
0  
注册时间
2015-12-12 
4楼
发表于 2016-12-17 23:58 | 只看该作者
简直是智障。代码都写成这样了。这都还需要问。
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

banality_hzs

Rank: 1

帖子
3 
积分
13 
技术
0  
捐助
0  
注册时间
2016-12-16 
3楼
发表于 2016-12-17 23:00 | 只看该作者
O(∩_∩)O谢谢！能直接生成一个个的vbs文件吗？按上面的代码执行后，是窗口显示。
1

评分人数

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

TOP

pcl_test

Rank: 8Rank: 8

帖子
3040 
积分
5332 
技术
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.QuitCOPY

TOP

返回列表