Application.ScreenUpdating = False Dim MyDir As String MyDir = ThisWorkbook.Path & "\" ChDrive Left(MyDir, 1) 'find all the excel files
確定! 回上一頁