Board logo

标题: [文本处理] 求一个批处理:把xls表格转为txt文本 [打印本页]

作者: kumao    时间: 2018-1-15 20:41     标题: 求一个批处理:把xls表格转为txt文本

需要加到任务计划中自动运行,所以需要一个批处理文件
一直很喜欢批处理程序,简单好用,终于找到组织了
作者: yhcfsr    时间: 2018-1-16 11:09

此脚本不处理子目录中的文件
  1. Dim strBaseName,dirSour,strExtensionName
  2. '设置源目录
  3. dirSour="D:\test"
  4. Set objExcel = CreateObject("Excel.Application")
  5. '屏蔽操作提示窗口
  6. objExcel.displayalerts=false
  7. '遍历一个文件夹下所有文件,但不包含子目录
  8.     Set oFso = CreateObject("Scripting.FileSystemObject")   
  9.     Set oFolder = oFso.GetFolder(dirSour)   
  10.     '读取文件   
  11.     Set oFiles = oFolder.Files   
  12.     For Each oFile In oFiles
  13.     '获取扩展名
  14.     strExtensionName=oFso.GetExtensionName(oFile)
  15.     '判断是否xls格式文件
  16.     If strExtensionName = "xls" Then
  17.     '获取文件名
  18.     strBaseName = oFso.GetBaseName(oFile)
  19.     '读取excel表格另存为文档
  20.        Set objWorkbook = objExcel.Workbooks.Open(oFile.Path)
  21.        objWorkbook.SaveAs dirSour & "\"& strBaseName & ".txt" ,-4158
  22.        objWorkbook.close(true)
  23.     End If
  24.     Next              
  25.     Set oFolder = Nothing     
  26.     Set oFso = Nothing   
  27.      
  28.     objExcel.displayalerts=True
  29.     objExcel.Quit
复制代码





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2