Question

VBS将xls文件另存为TXT文件的问题。

我想将wsj.xls保存为txt文件，但是最后那有提示文件已经存在，或是否什么的。
能否设置为不用提示，直接确认？我是小白，求各位大虾帮帮忙。

dim objexcel,f,path
set objExcel = CreateObject("Excel.Application")

Set objWorkbook = objExcel.Workbooks.Open ("C:\Users\Administrator\Desktop\wsj.xls")
intRow = 1
strDN = ""
Do Until objExcel.Cells(intRow,1).Value = ""
objExcel.Cells(intRow,2).Value = intRow
intRow = intRow + 1
Loop

objExcel.Workbooks(1).SaveAS "111.txt",-4158,ture '保存工作表
objExcel.Workbooks(1).Close,ture '关闭工作表
objExcel.Quit ' 退出
wscript.echo "保存成功"

Answer 1

直接全部读取出来再用fso.CreateTextFile(xx,true).write(xx)写入txt

Answer 2

保存代码前加 objExcel.DisplayAlerts =false