有一批EXCEL工作簿,要分别打开再另存为同名的txt,如何用VBA批量实现...

发布网友发布时间：2024-10-14 17:01

共2个回答

热心网友时间：2024-10-15 00:29

Sub Convert()

Workbooks.Open Filename:= _
"*工作簿路径*" '打开工作簿

ActiveWorkbook.SaveAs Filename:= _
"*保存路径*", _
FileFormat:=xlText, CreateBackup:=False '保存工作簿,格式为txt

End Sub

这个函数是完成打开并另存为txt格式的功能
之后你可以搜索到该文件夹下所有.xls的文件,将文件路径存储在数组中,利用For循环依次处理之即可

热心网友时间：2024-10-15 00:32

Sub 批量存TXT()
MyPath = "D:\My Documents\excel\" '为保存EXCEL的文件夹。
myfile = Dir(MyPath & "*.xls")
Do While myfile <> ""
Workbooks.Open Filename:=MyPath & myfile
ActiveWorkbook.SaveAs Filename:=MyPath & Left(myfile, Len(myfile) - 4), FileFormat _
:=xlText, CreateBackup:=False
ActiveWorkbook.Saved = True
ActiveWorkbook.Close '(SaveChanges)
myfile = Dir
Loop

'
End Sub