帮我优化以下代码，以便定时在每日14Private Sub 单次导入_Click() Dim importPath As String importPath = Forms!数据管理窗!导入路径 Select Case True Case importPath Is Null MsgBox "数据不能为空", , "空值提醒" Case importPath Like ".txt" DoCmd.TransferText acImportDelim, "接触清单导入规格", "接触清单", importPath, True, "" MsgBox "导入完成", , "完成提醒" Case importPath Like ".xls*" '未实现 End Select End Sub

下面是代码的优化版：

Private Sub 单次导入_Click()
    Dim importPath As String
    importPath = Forms!数据管理窗!导入路径
    
    If importPath = "" Then
        MsgBox "数据不能为空", vbExclamation, "空值提醒"
        Exit Sub
    End If
    
    If Not (importPath Like "*.txt" Or importPath Like "*.csv") Then
        MsgBox "请选择正确的数据文件（*.txt, *.csv）", vbExclamation, "格式提醒"
        Exit Sub
    End If
    
    On Error GoTo ErrorHandler
    DoCmd.TransferText acImportDelim, "接触清单导入规格", "接触清单", importPath, True, ""
    MsgBox "导入完成", vbInformation, "完成提醒"
    Exit Sub
    
ErrorHandler:
    MsgBox "导入失败，请检查数据文件是否正确！", vbCritical, "错误提醒"
End Sub

优化点如下：

1. 使用 If 语句替代 Select Case 语句，使代码更加简洁易读。
2. 使用 If importPath = "" 判断 importPath 是否为空字符串。
3. 使用 Not 运算符判断文件类型是否正确。
4. 添加错误处理机制，避免程序出错时没有提示信息。
5. 添加提示信息的图标和按钮，使用户更容易理解和操作。