excelvba一個文件分拆多個文件

⑴ excel sheet拆分成不同的文檔

ALT+F11進入VBA界面，依次菜單插入模塊
輸入以下代碼，最後點擊進行
分拆後的文件與當前文件同文件下，分拆文件與sheet同名
Sub分拆()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Worksheets
sh.SaveAs ThisWorkbook.Path &"\" &sh.Name
Next
Application.DisplayAlerts = True
End Sub
解釋：

使用方法：
1、打開你的工作簿

2、按Alt+F11進入VBA

3、在工程資源管理器窗口單擊滑鼠右鍵，選擇插入->模塊

4、把那個下面代碼粘貼到模塊中，運行一下就

Sub 另存所有工作表為工作簿()
Dim sht As Worksheet
Application.ScreenUpdating = False '禁用屏幕刷新
ipath = ThisWorkbook.Path & "\" '當前工作簿的文件目錄
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name & ".xls" '(工作表名稱為文件名）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True '恢復屏幕刷新
End Sub

⑵ excel sheet怎麼拆分成不同的文檔

ALT+F11進入VBA界面，依次菜單插入模塊
輸入以下代碼，最後點擊進行
分拆後的文件與當前文件同文件下，分拆文件與sheet同名
Sub分拆()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Worksheets
sh.SaveAs ThisWorkbook.Path &"\" &sh.Name
Next
Application.DisplayAlerts = True
End Sub
解釋：

使用方法：
1、打開你的工作簿

2、按Alt+F11進入VBA

3、在工程資源管理器窗口單擊滑鼠右鍵，選擇插入->模塊

4、把那個下面代碼粘貼到模塊中，運行一下就

Sub 另存所有工作表為工作簿()
Dim sht As Worksheet
Application.ScreenUpdating = False '禁用屏幕刷新
ipath = ThisWorkbook.Path & "\" '當前工作簿的文件目錄
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name & ".xls" '(工作表名稱為文件名）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True '恢復屏幕刷新
End Sub

⑶ excel按固定行數拆分成多個txt ，VBA代碼怎麼寫

請你試試：

Sub宏1()
lastrow=Cells(Rows.Count,1).End(3).Row
mypath="d:T"
m=1
y=1
DoUntilm>lastrow
Forn=mTom+4499
Openmypath&Format(y,"P000")&".txt"ForAppendAs#1
Print#1,Cells(n,1).Value
Close#1
Nextn
m=m+4500
y=y+1
Loop
EndSub

⑷ 將excel根據工作表名稱拆分成多個文件

1、如下圖工作薄中有多個工作表。

⑸ 如何將含多個sheet的excel按照一列拆分成N個含多個sheet的excel文件

將含多個工作表的Excel文件按照每個工作表的一列拆分成多個Excel文件，有兩種方法：
第一種方法：利用編程工具，自己編寫代碼處理；
第二種方法：利用WPS表格的拆分功能將每個工作表拆分成多個Excel文件後，再利用合並表格功能將拆分後的Sheet1、Sheet2、Sheet3、Sheet4進行多次合並操作。

⑹ vba精選 如何將一個Excel工作表的數據按一列的關鍵字拆分成多個

附件中的excel的作用是，將指定的某個打開的工作薄中的一張大表，按指定的一列中不同的關鍵字拆分到多個工作表，或是多個工作薄中。切記一點的是，需要拆分的工作表，要打開著。否則會出錯。

以下所說的關鍵字，其實就是指定區域所含的不重復單元格。


說明：1、點擊上面的按鈕後，首選要輸入需要拆分的工作表所在的工作薄名字，可以是本
工作薄名字，也可以是其他打開的工作薄的名字，這個要看你想拆分的工作表具
體在哪個工作薄中了，記住要包含工作薄的後綴名。
2、第二步請輸入第一步中指定工作薄中需要拆分的工作表的名稱。
3、第三步，請輸入需要拆分的工作表中拆分依據所在的列號。
4、第四步，請輸入需要拆分的工作表中拆分依據開始的行號。
5、第五步，請輸入需要拆分的工作表中拆分依據結束的行號。
以上5步要填的內容，可以事先填在本表H1到H5的單元格中。
6、第六步，需要選擇是只拆分指定的關鍵字，還是將拆分依據中所有的關鍵字都拆
分。如果需要指定關鍵字拆分，那麼就會彈出選擇關鍵字的對話框。如果所選擇
的關鍵字在依據區域全都沒有，剛會提示是否需要重新選擇。如果所選擇的關鍵
字中只有一部分在依據區域中有，那麼只拆分在拆分依據中的有關鍵字。
7、如果第六步，關鍵字選擇完畢，那麼第七步就需要選擇是拆分到源工作薄的新建
工作表中，還是拆分到源工作薄所在目錄下面的新建工作薄中。如果選擇拆分到
源工作薄的新建工作表中，那麼就會先刪除源工作薄中以關鍵字命名的工作表，
然後再將拆分的各個工作表以關鍵字命名。如果選擇拆分到新建工作薄中，那麼
接下來要選擇新建工作薄命名方式，然後再選擇工作表的命名方式。
8、最後一點，如果要只拆分部分關鍵字，那麼關鍵字一定要事先寫在該工薄中，否
則沒法取得關鍵字。不管是拆分部分關鍵字還是全部關鍵字，關鍵字所在單元格
不能是用公式得到的字元。
ps:總表中拆分依據所在列的內容最好為純文本，不要用公式。並且如果要拆分的大表中如果有很多公式，打開很慢的話，建議先在大表中把公式計算模式改為手動計算。