fm1=保文件路径
m2="\" & activesheet.range("b11").text
ActiveWorkbook.SaveAs Filename:=fm1 & m2 & ".txt", FileFormat:= _
xlUnicodeText, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
参考
怎样批量Excel文件转文本文件
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024