[文本处理] 求一个批处理：把xls表格转为txt文本

kumao

需要加到任务计划中自动运行，所以需要一个批处理文件
一直很喜欢批处理程序，简单好用，终于找到组织了

yhcfsr

此脚本不处理子目录中的文件

Dim strBaseName,dirSour,strExtensionName
'设置源目录
dirSour="D:\test"

Set objExcel = CreateObject("Excel.Application")
'屏蔽操作提示窗口
objExcel.displayalerts=false
'遍历一个文件夹下所有文件，但不包含子目录
    Set oFso = CreateObject("Scripting.FileSystemObject")    
    Set oFolder = oFso.GetFolder(dirSour)    
    '读取文件   
    Set oFiles = oFolder.Files    
    For Each oFile In oFiles 
    '获取扩展名
    strExtensionName=oFso.GetExtensionName(oFile)
    '判断是否xls格式文件
    If strExtensionName = "xls" Then 
    '获取文件名
    strBaseName = oFso.GetBaseName(oFile)
   	'读取excel表格另存为文档
       Set objWorkbook = objExcel.Workbooks.Open(oFile.Path) 
       objWorkbook.SaveAs dirSour & "\"& strBaseName & ".txt" ,-4158
       objWorkbook.close(true)
    End If
    Next              
    Set oFolder = Nothing     
    Set oFso = Nothing   
     
    objExcel.displayalerts=True
    objExcel.Quit
复制代码