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

[问题求助] [已解决]VBS脚本怎样把Excel中的多个sheet转换成一个txt?

本帖最后由 gawk 于 2012-5-19 02:38 编辑

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

评分人数

    • zqz0012005: 感谢给帖子标题标注[已解决]字样PB + 2

回复 6# cutebe


    测试成功,多谢。

TOP

  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

评分人数

    • gawk: 乐于助人技术 + 1

TOP

回复 3# Demon


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

TOP

回复 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,是不是因为东西太多了?

TOP

单独转后合并不就行了

TOP

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

TOP

返回列表