vbs : 将WPS表格另存为文本文件

SaveAs.vbs

Dim fso,objArgs,objET,WorkBook,Sheet
Set objArgs = WScript.Arguments

File1 = objArgs(0)
File2 = Replace(Replace(File1,".et",".txt"),".ET",".txt")
'WScript.Echo File2
Set fso = CreateObject("Scripting.FileSystemObject")
isFile = fso.fileExists(File1)
IF isFile and File1 <> File2 then

Set objET = CreateObject("KET.Application")
objET.Visible = True
Set WorkBook = objET.WorkBooks.Open(File1)
Set Sheet = WorkBook.Sheets("Sheet1")
Sheet.Activate
objET.ActiveWorkBook.SaveAs File2,3
WorkBook.Close
objET.Quit

ELSE
WScript.Echo " 文件名有错误 "
End IF

Set Sheet = Nothing
Set WorkBook = Nothing
Set objET = Nothing
Set fso = Nothing