将excel文件转换为txt文件（无回车）

我想将Excel文件转换为制表符有限的TXT文件（无回车）。 目前我使用的脚本（在这个论坛发现），将大量的Excel文件转换成.txt文件。

脚本是

' @file: xl2tab.vbs ' @author: stephen brown - [e-mail] ' @date: 2009-Dec-10 ' ' @description: mass convert excel files to tab-delimited files ' ' @usage: place in top-level directory where excel files are contained and double-click. ' script will recursively access all subdirectories and convert each excel file to ' tab delimited file. All output will be in "output" folder, which retains structure ' of original directories Dim saveDirBase set fso = CreateObject("Scripting.FileSystemObject") set shell = CreateObject("WScript.Shell") set objExcel = CreateObject("Excel.Application") set top = fso.GetFolder(shell.CurrentDirectory) saveDirBase = top & "\" & "output" Sub TraverseFolders(path) set folder = fso.GetFolder(path) XL2Tab(folder) For each item in folder.SubFolders If item.Path <> saveDirBase Then Call TraverseFolders(item.Path) End If Next set folder = Nothing End Sub Sub XL2Tab(folder) Dim saveDir set files = folder.Files If folder.Name <> top.Name Then saveDir = saveDirBase & "\" & folder.Name Else saveDir = saveDirBase End If If fso.FolderExists(saveDir) = False Then fso.CreateFolder(saveDir) End If For each file In files If file.Name <> Wscript.ScriptName Then objExcel.Application.DisplayAlerts = False Set objWorkbook = objExcel.Workbooks.open(folder.Path & "\" & file.Name) objWorkbook.SaveAs saveDir & "\" & file.Name & ".txt", -4158 objWorkbook.close objExcel.Application.DisplayAlerts = True End If Next End Sub If fso.FolderExists(saveDirBase) = False Then fso.CreateFolder(saveDirBase) End If Call TraverseFolders(top) 

在转换之前我想在每个excel文件中删除回车。

请任何人指导我！

Answer 1

嗨如果您尝试在转换文件后删除回车，请将以下过程添加到代码中

  sub RemoveCarriage(FileN) Const ForReading = 1 Const ForWriting = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(FileN, ForReading) strText = objFile.ReadAll objFile.Close strNewText = Replace(strText, chr(013) & chr(010), "") ' chr(010) = line feed chr(013) = carriage return Set objFile = objFSO.OpenTextFile(FileN, ForWriting) objFile.WriteLine strNewText objFile.Close End sub 

在closures工作簿objWorkbook.close后立即调用您的过程的forloop模块

  RemoveCarriage(file.Name & ".txt")