vbs : 将WPS表格另存为文本文件
2016-03-20 11:43
459 查看
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
相关文章推荐
- 《首看vb.net》
- 单片机与RS-232的串口通信+VB程序
- VB.net版机房收费系统——存储过程和视图的本质挖掘
- 【VB.NET视频总结(一)】
- VBA学习笔记(2)之文件操作
- vba 编写自动报表
- vb6加载时提示出错,窗体log文件中错误信息为:控件 XX 的类 MSComctlLib.ListView 不是一个已加载的控件类。
- 机房收费系统VB.NET版——DataGridView显示数据
- 《GLSL渲染语言入门与VBO、VAO使用:绘制一个三角形》的正确版本及源代码
- vb作业
- 3.17 vb 另外一种等量变换 (随机)ROM
- VBA学习笔记(1)
- 3.17 VB 变量 变换
- vba调用c#dll
- VB编程步骤 变量交换
- VBA教程初级(七):数组的其他操作
- VBA,iLogic,插件中使用学徒服务器
- VBScripit 导出AD用户信息
- VBS实现文件逐字节异或
- VB.NET——你到底是?