Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As Stringdim n as integer Application.ScreenUpdating = False application.inputbox("请确认要从第几行开始复制:","自定义开始复制的行号",2,type:=1)MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xls"...
|