本帖最后由 tmplinshi 于 2013-6-26 06:31 编辑
- ' 转换 et 文件(WPS 表格)为 txt
- ' ---------------------------------
- ' 使用方法:
- ' 方法一:拖拽 et 文件到 vbs 图标上
- ' 方法二:直接运行 vbs,则转换当前目录所有 et 文件
-
- Set ET = CreateObject("et.application")
- ET.Visible = false
- ET.displayalerts = False
-
- If wscript.arguments.count > 0 Then
- For Each etFile In Wscript.Arguments
- call et2txt
- Next
- Else
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- For Each f In objFSO.GetFolder(".").Files
- If UCase(objFSO.GetExtensionName(f.Name)) = "ET" Then
- etFile = f
- call et2txt
- End If
- Next
- End If
-
- ET.Quit
-
- Sub et2txt
- Set oWb = ET.Workbooks.Open(etFile)
- oWb.SaveAs(etFile & ".txt")
- End Sub
复制代码
|