怎样批量Excel文件转文本文件 _VBA

工作中Excel文件转文本文件大师城市，Excel【另存为】选保留类型：Unicode文本保留可以。我在刚起头工作中一次碰着这样环境有200个Excel文件，每个文件都有10个表，要转当作文件文件，我按上面方式处置，我花了两天时候才能完当作，有时定名也弄错，很吃力。后来我再次赶上这样工作，我找到新方式批量处置Excel文件转文本文件，省时省力。修法布施得伶俐聪明，多分享让糊口更夸姣。下面介绍我这种好的方式。

需要这些哦
Excel VBA
百度经验：如何批量提取文件夹下文件名的文件
方式/
1在Microsoft Office Excel 2007打开在我前次分享经验“如何批量提取文件夹下文件名“的Excel 文件（更名：百度经验分享让糊口更夸姣—批量处置），在A2单位格输入“保留文本文件夹路径”，如下图。
1如何批量提取文件夹下文件名

文章插图

2【怎样批量Excel文件转文本文件】然后选按钮【B1输入列举文件名】右键菜单选“复制”，在旁边G2单位格处右键菜单选“粘贴”生当作新一个按钮【B1输入列举文件名】，选该按钮右键菜单“编纂文字”改为【B3下列EXCEL文件、B2保留路径批量存文本】，如下图

文章插图

文章插图

3按下快捷键ALT+F11打开VBA（宏）编纂器界面，双击模块1，在“列举文件名”代码下面复制下面代码，如图。
Sub 批量EXCEL文件存文本()
Dim fm1 As String, myt As Worksheet
Dim m$, m1$, m2$, m3$, i%, r%, n%
m = Range("b1").Text
r = Application.WorksheetFunction.CountA(Range("B4:B10000"))
fm1 = Range("B2").Text & "\"
For i = 1 To r
m1 = Range("b" & i + 3).Text
n = InStr(1, m1, ".", 1)
m2 = Left(m1, n - 1)
Workbooks.Open m & "\" & m1
For Each myt In Sheets
myt.Select
If IsEmpty(myt.UsedRange) Then

Else
m3 = myt.Name
ActiveWorkbook.SaveAs Filename:=fm1 & m2 & m3 & ".txt", FileFormat:= _
xlUnicodeText, Password:="", WriteResPassword:="", ReadOnlyRecommed:=False _
, CreateBackup:=False
If
Next myt
ActiveWorkbook.Close SaveChanges:=False
Next i
Sub