帮我优化以下VBA代码,并在导入时判断是否存在同样的数据,导入完成后删除源文本: DoCmd.TransferSpreadsheet acImport, 10, "场景使用清单", "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.01.xlsx", True, "" DoCmd.TransferSpreadsheet acImport, 10, "场景使用清单", "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.02.xlsx", True, "" DoCmd.TransferSpreadsheet acImport, 10, "场景使用清单", "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.03.xlsx", True, "" DoCmd.TransferSpreadsheet acImport, 10, "场景使用清单", "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.04.xlsx", True, "" DoCmd.TransferSpreadsheet acImport, 10, "场景使用清单", "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.05.xlsx", True, "" DoCmd.TransferSpreadsheet acImport, 10, "场景使用清单", "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.06.xlsx", True, ""