If FileSys.FileExists("c:\某文件夹\" & e.sender.text) Then http://www.foxtable.com/webhelp/topics/0337.htm Dim mg As NewMerger mg.SourcePath = "c:\某文件夹\" & e.sender.text mg.Format = "excel"'指定格式 mg.SourceTableName = "订单"'指定要合并的表 mg.DataTableName = "订单"'指定接收数据的表 mg.Merge() '开始合并 Else Messagebox.Show("文件不存在或已经被删除!","提示") End If