导入工作表并将文件移动到备份位置 Option Explicit Sub ImportCustomerSheet() ' Destination Workbook Dim dwb As Workbook: Set dwb = ThisWorkbook ' workbook containing this code ' Destination Lookup Worksheet Dim dlws As Worksheet: Set dlws = dwb.Sheets("Settings") ' Retrieve the source folder path...