[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] [已解决]VBS如何将指定XLS文件转成TXT?

本帖最后由 zjw767676 于 2015-3-28 09:52 编辑

下面的代码是将文件拖动到Vbs中,请教如何指定文件名转换?
fienname= 文件的绝对路径 (相对路径不行)
  1. '将 XLS 文件拖到此 VBS 中,将生成同名 TXT 文本文件。
  2. Filename = WScript.Arguments(0)
  3. Set ExcelApp = CreateObject("Excel.Application")
  4. Set ExcelOut = ExcelApp.Workbooks.Open(Filename)
  5. If LCase(Right(Filename,4))=".xls" Then
  6.     RowC = ExcelOut.WorkSheets(1).UsedRange.Rows.Count
  7.     For i = 2 to ExcelOut.WorkSheets.Count
  8.         ExcelOut.WorkSheets(i).UsedRange.Copy
  9.         ExcelOut.WorkSheets(1).Range("A" & RowC + 1).PasteSpecial
  10.         RowC = RowC + ExcelOut.WorkSheets(i).UsedRange.Rows.Count
  11.     Next
  12.     ExcelOut.WorkSheets(1).SaveAs Left(Filename,instrrev(Filename,".")) & "TXT",3
  13. End If
  14. ExcelOut.Saved = True
  15. ExcelOut.Close
  16. Wscript.Quit
复制代码
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
有一种爱叫放弃

回复 1# zjw767676
第一句Filename = WScript.Arguments(0)改为
  1. Filename = "D:\Test\A.xls"
复制代码
1

评分人数

TOP

话说用 ado 转 txt 也很好,速度快
demon 教的

TOP

返回列表