excel工作薄裡有多個表，我要把裡面的多個表分別轉化為一個個的單個工作薄，如果一個個表拷出來做的話，工作量太大，我應該如何解決？謝

[KKCSDN]

excel工作薄裡有多個表，我要把裡面的多個表分別轉化為一個個的單個工作薄，如果一個個表拷出來做的話，工作量太大，我應該如何解決？謝謝

[yigepure]

用VBA.

[yigepure]

Sub gg()
Dim a%
a = Sheets.Count
Do Until a = 1
a = a - 1
Sheets(a).Select
Sheets(a).Move
ActiveWorkbook.SaveAs Filename:="d:\" & a & ".xls"
Windows("book4").Activate'这里windows("是填你的工作薄名"),我这里的book4仅是举了一个例子.
Loop
End Sub

特地为你写了一个宏,很好用.如将它指定到一个按钮上以后调用就方便多了.
知道这些代码放在哪吧.运行时,只要点"工具","宏",选择gg,执行即可.

[yigepure]

没有注意你的工作表很多,增加二句,修改如下:
Sub gg()
Dim a%
a = Sheets.Count
Application.ScreenUpdating = False'新增
Do Until a = 1
a = a - 1
Sheets(a).Select
Sheets(a).Move
ActiveWorkbook.SaveAs Filename:="d:\" & a & ".xls"
Windows("book4").Activate
Loop
Application.ScreenUpdating = True'新增
End Sub

[yigepure]

再次更新代码:
Sub gg()
Dim a%
a = Sheets.Count
Application.ScreenUpdating = False'新增
Do Until a = 1
a = a - 1
Sheets(a).Select
Sheets(a).Move
ActiveWorkbook.SaveAs Filename:="d:\" & a & ".xls"
activeworkbook.close true
Windows("book4").Activate
Loop
Application.ScreenUpdating = True'新增
End Sub

[yigepure]

另:还有什么疑问,发一个短信息给我.由于帖子太多,可能我会看不到.

[yigepure]

怎么搞的,不见楼主回复,不知道是不是解决了,还是有什么问题呢?