CODE: [Copy to clipboard]
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 ,加上自己发挥,写出上面那段东西。但还是没完成预期的功能,特向大家请教。