【正文】
Next WbN = WbN amp。 *.xls) AWbName = Num = 0 Do While MyName If MyName AWbName Then Set Wb = (MyPath amp。 Sub 合并當(dāng)前目錄下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String = False MyPath = MyName = Dir(MyPath amp。運(yùn)行。