[已解决]VBS把xls文件转换为txt文件

随风

〔已解决〕vbs把xls文件转换为txt文件
要求：
   xzt.vbs 运行方式是从bat中调用 如: call xzt.vbs "a.xls" hhh.txt
vbs功能
1、首先把xls文件中的所有空值改为#
2、再把xls文件另存为hhh.txt
注：要求1中把所有空值改为#并不是要改xls文件内容，目的是要txt中的空值等于#
    如果要求1有难度，可以忽略，直接解决第2个要求也可以。
有劳大家！

[ 本帖最后由 随风 于 2010-1-5 17:23 编辑 ]

batman

1. '另存工作表为txt文件，并将空值替换为#
   
2. dim hang,lie,counter,counter1 '声明变量
   
3. on error resume next '忽略错误
   
4. 
   
5. '设置对象
   
6. set wshshell=createobject ("wscript.shell")
   
7. path=wshshell.currentdirectory '当前路径
   
8. set objexcel=createobject ("excel.application")
   
9. set objworks=objexcel.workbooks.open (path&""&wscript.arguments(0)) 'arguments(0)表示参数1
   
10. set objfso=createobject("scripting.filesystemobject")
    
11. set objtext=objfso.opentextfile(path&""&wscript.arguments(1),2,true) 'arguments(1)表示参数2
    
12. objexcel.worksheets(1).activate
    
13. 
    
14. '获取工作表有效总行列数，但工作表的第一行和第一列不得有空值
    
15. counter=0
    
16. do
    
17.      counter=counter+1
    
18. loop until objexcel.cells(1,counter).value=""
    
19. lie=counter-1:counter=0
    
20. do
    
21.      counter=counter+1
    
22. loop until objexcel.cells(counter,1).value=""
    
23. hang=counter-1:counter=0
    
24. 
    
25. '读取工作表数据并将空值替换为#
    
26. for counter=1 to hang
    
27.     for counter1=1 to lie
    
28.         if objexcel.cells(counter,counter1).value="" then
    
29.            strexcel=strexcel&" #"
    
30.            else
    
31.            strexcel=strexcel&" "&objexcel.cells(counter,counter1).value
    
32.         end if
    
33.      next
    
34.      strexcel=strexcel&vbcrlf
    
35. next
    
36. objtext.write strexcel
    
37. objtext.close
    
38. objworks.close
    
39. 
    
40. '清空对象，释放内存
    
41. set objtext=nothing
    
42. set objfso=nothing
    
43. set objworks=nothing
    
44. set objexcel=nothing
    
45. set wshshell=nothing

复制代码

523066680

一个个都是都老手来的

batman

从楼顶的问题来看，固然我二楼的代码是没有问题的，但在随风在测试中又遇到很多问题：如前三行因单元格

合并导致运行出错；读取形如0.*的数据时出现超长数据；要求对数值取两位小数并四舍五入，于是，修改代码

如下：

1. '另存工作表为txt文件，并将空值替换为#
   
2. dim hang,lie,counter,counter1,vbstr '声明变量
   
3. on error resume next '忽略错误
   
4. 
   
5. '设置对象
   
6. set wshshell=createobject ("wscript.shell")
   
7. path=wshshell.currentdirectory '当前路径
   
8. set objexcel=createobject ("excel.application")
   
9. set objworks=objexcel.workbooks.open (path&""&wscript.arguments(0))
   
10. set objfso=createobject("scripting.filesystemobject")
    
11. set objtext=objfso.opentextfile(path&""&wscript.arguments(1),2,true)
    
12. objexcel.worksheets(1).activate
    
13. 
    
14. '从第四行开始获取工作表有效总行列数（舍弃前三行非数据行）
    
15. counter=0
    
16. do
    
17.      counter=counter+1
    
18. loop until objexcel.cells(4,counter).value=""
    
19. lie=counter-1:counter=3
    
20. do
    
21.      counter=counter+1
    
22. loop until objexcel.cells(counter,1).value=""
    
23. hang=counter-1:counter=0
    
24. 
    
25. '读取工作表数据并将空值替换为#
    
26. for counter=4 to hang
    
27.     for counter1=1 to lie
    
28.         vbstr=objexcel.cells(counter,counter1).value
    
29.         if vbstr="" then
    
30.            strexcel=strexcel&" #"
    
31.            else
    
32.            if replace(vbstr,".","")<>vbstr then vbstr=round(vbstr,2) '对小数取两位小数并四舍五入
    
33.            if mid(vbstr,1,1)="." then vbstr="0"&vbstr
    
34.            strexcel=strexcel&" "&vbstr
    
35.         end if
    
36.      next
    
37.      strexcel=strexcel&vbcrlf
    
38. next
    
39. objtext.write strexcel
    
40. objtext.close
    
41. objworks.close
    
42. 
    
43. '清空对象，释放内存
    
44. set objtext=nothing
    
45. set objfso=nothing
    
46. set objworks=nothing
    
47. set objexcel=nothing
    
48. set wshshell=nothing

复制代码

[ 本帖最后由 batman 于 2010-1-5 17:36 编辑 ]