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
复制代码