qq_42364589的博客

官方链接：https://support.microsoft.com/zh-cn/office/%E5%85%AC%E5%BC%8F%E5%92%8C%E5%87%BD%E6%95%B0-294d9486-b332-48ed-b489-abe7d0f9eda9#ID0EBBD=Formulas 公式 函数 逻辑 引用 更多函数 错误

Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPa