将总表中的各工作表追加到同名的工作簿中

响宝砣

把以岭流向工作簿中的以岭1、以岭2......，分别追加到工作簿以岭1、以岭2......中。谢谢大家！

ykcbf1100

附件供参考。。。

wowo000

楼主：是工作表另存为工作簿吧？如yes用下面代码即可
Sub 所有工作表另存为工作簿()
Dim sht As Worksheet, n, Ipath$
n = 1
Application.ScreenUpdating = False
Ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
    sht.Copy
    ActiveWorkbook.SaveAs Ipath & sht.Name & ".xlsx"   '(工作表名称为文件名）
    n = n + 1
   ActiveWorkbook.Close
Next sht
Application.ScreenUpdating = True
End Sub

bqwd36

Sub 拆分()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim wb As Workbook, sht As Worksheet
With Application.FileDialog(3)
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "excel文件", "*.xls*,*.et"
    .Filters.Add "全部文件", "*.*"
    If .Show = -1 Then
        Set aw = GetObject(.SelectedItems(1))
        For Each sht In aw.Sheets
            Set ow = Workbooks.Add
            sht.Copy before:=ow.Sheets(1)
            ow.SaveAs aw.Path & "\" & sht.Name & ".xlsx"
            ow.Close
        Next
    End If
End With
MsgBox "ok"
End Sub

响宝砣

感谢感谢！问题已解决，非常了不起！100个赞！

响宝砣

ykcbf1100 发表于 2023-4-23 15:28
附件供参考。。。

向您请教，代码中的 ‘//2023.4.23 有什么作用呢?

响宝砣

ykcbf1100 发表于 2023-4-23 15:28
附件供参考。。。

里有个时间，请用代码以后还可以用吗？

ykcbf1100

响宝砣 发表于 2023-4-23 16:04
感谢感谢！问题已解决，非常了不起！100个赞！

按工作表名自动生成对应工作簿，这样是不是更方便？

响宝砣

ykcbf1100 发表于 2023-4-23 16:29
按工作表名自动生成对应工作簿，这样是不是更方便？

请问一次批量可以生成多少个表呢？

ykcbf1100

响宝砣 发表于 2023-4-23 16:43
请问一次批量可以生成多少个表呢？

理论上应该没有限制吧。