Export From Excel To Text File By Batch

::—— edit ——- edit —– fixed goofs!
@echo off & setlocal
if exist exl.vbs goto :alrdydon
:: might need to change this line
set xls=c:\excel\mycalendar.xls
:: change the following to suit your preference
:: (ie: where you want the exported text to go)
set outp=c:\doc\test.txt
> exl.vbs echo Dim xl
>> exl.vbs echo Set xl = WScript.CreateObject(“Excel.Application”)
:: change to false if you want it running in stealth-mode
>> exl.vbs echo xl.application.Visible = TRUE
:: this disables the overwrite-safety dialogue
>> exl.vbs echo xl.application.displayalerts=false
>> exl.vbs echo set ac=xl.WorkBooks.open(“%xls%”)
>> exl.vbs echo ac.SaveAs “%outp%”,-4158
>> exl.vbs echo xl.application.quit
:alrdydon
wscript exl.vbs