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 ]
