[已解决]VBS如何将指定XLS文件转成TXT？

zjw767676

下面的代码是将文件拖动到Vbs中，请教如何指定文件名转换？
fienname= 文件的绝对路径 (相对路径不行)

1. 
   
2. '将 XLS 文件拖到此 VBS 中，将生成同名 TXT 文本文件。
   
3. Filename = WScript.Arguments(0)
   
4. Set ExcelApp = CreateObject("Excel.Application")
   
5. Set ExcelOut = ExcelApp.Workbooks.Open(Filename)
   
6. If LCase(Right(Filename,4))=".xls" Then
   
7.     RowC = ExcelOut.WorkSheets(1).UsedRange.Rows.Count
   
8.     For i = 2 to ExcelOut.WorkSheets.Count
   
9.         ExcelOut.WorkSheets(i).UsedRange.Copy
   
10.         ExcelOut.WorkSheets(1).Range("A" & RowC + 1).PasteSpecial
    
11.         RowC = RowC + ExcelOut.WorkSheets(i).UsedRange.Rows.Count
    
12.     Next
    
13.     ExcelOut.WorkSheets(1).SaveAs Left(Filename,instrrev(Filename,".")) & "TXT",3
    
14. End If
    
15. ExcelOut.Saved = True
    
16. ExcelOut.Close
    
17. Wscript.Quit

复制代码

pcl_test

回复 1# zjw767676
第一句Filename = WScript.Arguments(0)改为

1. Filename = "D:\Test\A.xls"

复制代码

CrLf

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