Dim ex As New Exporter ex.SourceTableName = "表一" ex.FilePath =ProjectPath & "aaa.mdb" ex.Filter = "_Identify >= " & CurrentTable.Current("_Identify") If FileSys.FileExists(ex.FilePath) Then '如果目标文件已经存在 FileSys.DeleteFile(ex.FilePath) '则删除之 End If ex.Export()