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

最新推荐文章于 2024-06-17 23:08:11 发布

原创最新推荐文章于 2024-06-17 23:08:11 发布 · 3.2k 阅读

3 ·

CC 4.0 BY-SA版权

vbs 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一段VBS脚本，该脚本能够将.et格式的电子表格文件转换为.txt文本格式。通过创建KET.Application对象并利用Scripting.FileSystemObject进行文件操作，实现了文件的读取和转换。

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