怎樣批量Excel文件轉文本文件

工作中Excel文件轉文本文件大師城市，Excel【另存為】選保留類型：Unicode文本保留可以。我在剛起頭工作中一次碰著這樣環境有200個Excel文件，每個文件都有10個表，要轉當作文件文件，我按上面方式處置，我花了兩天時候才能完當作，有時定名也弄錯，很吃力。后來我再次趕上這樣工作，我找到新方式批量處置Excel文件轉文本文件，省時省力。修法布施得伶俐聰明，多分享讓糊口更夸姣。下面介紹我這種好的方式。

東西/原料

Excel VBA
百度經驗：如何批量提取文件夾下文件名的文件

方式/步調

1
在Microsoft Office Excel 2007打開在我前次分享經驗“如何批量提取文件夾下文件名“的Excel 文件（更名：百度經驗分享讓糊口更夸姣—批量處置），在A2單位格輸入“保留文本文件夾路徑”，如下圖。
1如何批量提取文件夾下文件名
2
然后選按鈕【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:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End If
Next myt
ActiveWorkbook.Close SaveChanges:=False
Next i
End Sub
4
封閉VBA（宏）編纂器，回到Excel 界面，然后選按鈕【B3下列EXCEL文件、B2保留路徑批量存文本】右鍵菜單“指心猿意馬宏”，打開“指心猿意馬宏”對話框，選心猿意馬“批量EXCEL文件存文本”宏，再【確定】。
5
下面介紹如何操作：為了便利操作舉例子，“D:\百度經驗實例“文件夾下有兩個Excel 文件A、B，里面內容詳見圖。兩個文件轉當作文本放在文件夾“D:\百度經驗實例\文本”。
6
步調1：在B1單位格填寫“D:\百度經驗實例”，步調2：在B2單位格填寫“D:\百度經驗實例\文本”，步調3：【B1輸入列舉文件名】，列舉出所文件，這時注重把不是Excel 文件刪除，步調4：按下按【B3下列EXCEL文件、B2保留路徑批量存文本】，幾秒鐘完當作轉換完當作。轉換文本文件名為EXCEL文件+表格名，如下圖。
7
若是感覺這篇經驗幫到了您，請點擊下方的 “投票點贊" 或者“保藏”撐持我！還有疑問的話可以點擊下方的 “我有疑問”，感謝啦！

發表于 2019-12-12 23:28
閱讀 ( 873 )
分類：其他類型

怎樣批量Excel文件轉文本文件

東西/原料

方式/步調

你可能感興趣的文章

相關問題

0 條評論

作家榜 ?

推薦文章