中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]VBS 参数和部分代码失效的问题

NaturalJ0
银牌会员

积分 1181
发帖 533
注册 2006-8-14
状态离线

『楼主』: [求助]VBS 参数和部分代码失效的问题

On Error Resume Next

Dim fso, batFile

Set fso = CreateObject("Scripting.FileSystemObject")

Set batFile = fso.CreateTextFile("Color.bat", True)

batFile.WriteLine("@echo off")

batFile.WriteLine("setlocal enabledelayedexpansion")

batFile.WriteLine("set colour=[#dddddd]")

batFile.WriteLine("for /f ""delims="" %%i in ('findstr /v /c:"" , , , "" Sheet%1.txt') do (echo !colour!%%i>>Table.txt")

batFile.WriteLine("        if !colour!==[#ffffff] (set colour=[#eeeeee]) else (set colour=[#ffffff])")

batFile.WriteLine(")")

batFile.Close

dim xlsFile

xlsFile=Wscript.Arguments.Item(0)

Dim iExcel,iWorkbooks

Set iExcel = CreateObject("Excel.Application")

Set iWorkbooks = iExcel.Workbooks.Open(xlsFile)

iExcel.Visible = False

iWorkbooks.Sheets(1).SaveAs Replace(xlsFile, fso.GetFileName(xlsFile), "Sheet1.txt"),6

iWorkbooks.Close False

iExcel.Quit

Set iWorkbooks = Nothing

Set iExcel = Nothing

dim objShell

Set objShell = CreateObject("Wscript.Shell")

objShell.Run "notepad.exe "& Replace(xlsFile, fso.GetFileName(xlsFile), "Sheet1.txt")

小弟最近才接触 VBS ，看了论坛已有的 VBS 代码当参考，从中复制了些，再查了些 CHM ，加上自己发挥，写出上面那段东西。但还是没完成预期的功能，特向大家请教。

对这段代码用意的说明：
将 EXCEL 表格直接拖上 VBS 文件当参数传进去。然后用将这个 XLS 表格文件另存为 TXT 文件，并由 VBS 生成一个 BAT 文件。
（然后再调用 BAT 对 TXT 文件处理下，进而得到最终文件。//这部分还没写）

出现的问题如下：
如果直接运行该 VBS 程序，也就是不传参数进去。则 BAT 文件能顺利生成。
如果拖 EXCEL 表格文件当参数，则转 XLS 文件为 TXT 的功能可以实现，TXT 文件顺利生成，但 BAT 文件却不见生成。

希望高手能指点一二，非常感谢。

[ Last edited by NaturalJ0 on 2006-11-4 at 04:26 AM ]

2006-11-4 03:44

NaturalJ0
银牌会员

积分 1181
发帖 533
注册 2006-8-14
状态离线

『第 2 楼』:

再问一次

2006-11-6 21:34

voiL
中级用户

积分 384
发帖 189
注册 2005-10-19
状态离线

『第 3 楼』:

帮你再问一次.

2006-11-6 22:48

ccwan
金牌会员

积分 2725
发帖 1160
注册 2006-9-23
来自河北廊坊
状态离线

『第 4 楼』:

我也帮你顶一个。

2006-11-6 23:08

electronixtar
铂金会员

积分 7493
发帖 2672
注册 2005-9-2
状态离线

『第 5 楼』:

我在幻影上问了这个问题，被鄙视了～～ zzzevazzz 说，不是没生成，而是你没找到。开始运行 . 回车就能看到生成的 color.bat 了(也就是大家熟悉的 %userprofile% 下面) ,呵呵

[ Last edited by electronixtar on 2006-11-10 at 12:42 AM ]

C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"

2006-11-10 00:41

ccwan
金牌会员

积分 2725
发帖 1160
注册 2006-9-23
来自河北廊坊
状态离线

『第 6 楼』:

谢谢electronixtar，并请NaturalJ0将没写的那部分代码共享

三人行，必有吾师焉。学然后知不足，教然后知困，然后能自强也。

2006-11-11 22:12

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: