朋友帮我写了个XLS文件转换为TXT文件的VBS。
能实现转换,但需要进一步优化一下,在此请教达人帮帮我。
拜托,先谢谢了!
——原VBS文件代码:- dim objexcel,f,path
- set objExcel = CreateObject("Excel.Application")
-
- Set objWorkbook = objExcel.Workbooks.Open ("F:\test\temp\2社会管理 市政 市政绿化.xls")
- intRow = 1
- strDN = ""
- Do Until objExcel.Cells(intRow,1).Value = ""
- objExcel.Cells(intRow,2).Value = intRow
- intRow = intRow + 1
- Loop
-
- objExcel.DisplayAlerts =false '屏蔽保存确认对话框
- 'application.displayalerts=false
- objExcel.Workbooks(1).SaveAS "F:\test\temp\2社会管理 市政 市政绿化.txt",-4158,ture 'EXCEL文件另存为TXT文件
- objExcel.Workbooks(1).Close,ture '关闭工作表
- objExcel.Quit ' 退出
-
- 'wscript.echo "保存成功"
- 'wscript.sleep 10000 '挂起10秒,此属性单位为毫秒
- 'fso.CreateTextFile(xx,true).write(xx)写入txt
复制代码 ——需要优化的需求:
一、能自动去读取某目录下的所有XLS、XLSX文件,包括主目录下所有子目录下的XLS、XLSX文件;
二、TXT文件统一到一个指定的目录下,且TXT文件名自动以各个XLS、XLSX主文件名命名;
三、该VBS转换成的TXT文件,内容中字符之间的空格字符全部变成了?号;需要将该?号自动删除后再保存;见下面示例:
受?理??单?位? ?街道 > 社区 受??理??人? ?朱有才
反映人姓名? ?陈女士 性????????别? ?女
受 身?份??证?号? ?5001************ 联系电话?
拜托各位,谢谢了! |