[已解决]VBS脚本怎样把Excel中的多个sheet转换成一个txt？

gawk

我找到一个把每个sheet单独转换成一个txt的，但是我想把一个Excel文件里面的所有sheet全部转换到一个txt，怎么办？
http://www.bathome.net/thread-10806-1-1.html

powerbat

1. xls = "C:\Users\root\Desktop\1.02战法数据表.xls"
   
2. 
   
3. strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
   
4.     "Data Source=" & xls & ";Extended Properties=""Excel 8.0;HDR=no;IMEX=1;"";"
   
5. 
   
6. Set AdoCnn = CreateObject("ADODB.Connection")
   
7. AdoCnn.Open strConnect
   
8. Set rs = AdoCnn.OpenSchema(20)
   
9. Do Until rs.EOF
   
10.     tbl = rs.Fields("table_name")
    
11.     s = s & tbl & vbCrLf & String(40,"-") & vbCrLf
    
12.     s = s & AdoCnn.Execute("select * from [" & tbl & "]").GetString(2)
    
13.     s = s & String(80,"=") & vbCrLf & vbCrLf
    
14.     rs.MoveNext
    
15. Loop
    
16. AdoCnn.Close
    
17. WScript.Echo s

复制代码

Demon

单独转后合并不就行了

gawk

回复 2# powerbat


报错信息如下：
c:\Test>cscript //nologo test.vbs >a.txt
c:\Test\test.vbs(12, 5) Microsoft JET Database Engine: Too many fields defined.

我的xls文件里面有几十个sheet，是不是因为东西太多了？

gawk

回复 3# Demon


不想生成几十个临时文件，觉得不够优雅。

cutebe

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
    

复制代码

gawk

回复 6# cutebe


    测试成功，多谢。