帮我优化以下代码为依次导入txt文件，并在导入完成后删除这些文件，如果文件夹中没有相关文件，则不进行任何操作 DoCmd.TransferText acImportDelim, "接触清单导入规格", "接触清单", "C:\Users\icd\Desktop.20230601.txt", True, "" DoCmd.TransferText acImportDelim, "接触清单导入规格", "接触清单", "C:\Users\icd\Desktop.20230602.txt", True, "" DoCmd.TransferText acImportDelim, "接触清单导入规格", "接触清单", "C:\Users\icd\Desktop.20230603.txt", True, ""

您可以使用以下代码来实现您想要的功能：

Dim FileSystem As Object
Dim Folder As Object
Dim File As Object
Dim filePath As String
Dim importCount As Integer

'设置文件夹路径
filePath = "C:\Users\icd\Desktop\"

'创建文件系统对象
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set Folder = FileSystem.GetFolder(filePath)

'循环遍历文件夹中的所有txt文件
For Each File In Folder.Files
    If Right(File.Name, 4) = ".txt" Then
        '导入txt文件到Access表中
        DoCmd.TransferText acImportDelim, "接触清单导入规格", "接触清单", File.Path, True, ""
        '删除导入的txt文件
        FileSystem.DeleteFile File.Path
        importCount = importCount + 1
    End If
Next File

'如果没有文件被导入，则输出提示信息
If importCount = 0 Then
    MsgBox "未找到需要导入的文件！"
End If

这段代码首先使用 FileSystemObject 对象获取指定文件夹中的所有文件，然后循环遍历每个文件，判断是否为 txt 文件。如果是，则使用 DoCmd.TransferText 方法将其导入到 Access 表中，然后使用 FileSystemObject 对象的 DeleteFile 方法删除该文件。最后，如果没有文件被导入，则输出提示信息。