VBS 参数和部分代码失效的问题 - 中国DOS联盟论坛


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=")
batFile.WriteLine("for /f ""delims="" %%i in ('findstr /v /c:"" , , , "" Sheet%1.txt') do (echo !colour!%%i>>Table.txt")
batFile.WriteLine("	if !colour!== (set colour=) else (set colour=)")
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 ]

第1楼　NaturalJ0	发表于 2006-11-04 03:44
银牌会员　发帖 533　积分 1,181
[求助]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=") batFile.WriteLine("for /f ""delims="" %%i in ('findstr /v /c:"" , , , "" Sheet%1.txt') do (echo !colour!%%i>>Table.txt") batFile.WriteLine(" if !colour!== (set colour=) else (set colour=)") 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 ]

第2楼　NaturalJ0	发表于 2006-11-06 21:34
银牌会员　发帖 533　积分 1,181
再问一次

第3楼　voiL	发表于 2006-11-06 22:48
中级用户　发帖 189　积分 384
帮你再问一次.

第4楼　ccwan	发表于 2006-11-06 23:08
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
我也帮你顶一个。

第5楼　electronixtar	发表于 2006-11-10 00:41
铂金会员　发帖 2,672　积分 7,493
我在幻影上问了这个问题，被鄙视了～～ zzzevazzz 说，不是没生成，而是你没找到。开始运行 . 回车就能看到生成的 color.bat 了(也就是大家熟悉的 %userprofile% 下面) ,呵呵 [ Last edited by electronixtar on 2006-11-10 at 12:42 AM ]

第6楼　ccwan	发表于 2006-11-11 22:12
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
谢谢electronixtar，并请NaturalJ0将没写的那部分代码共享