代码想实现以下功能·：

1、将项目目录下hz目录中的所有excel文件批量导入，表名为文件名（二次点击“批量导入”按钮同名的自动覆盖）；

2、点击“初始化”按钮表a可恢复导入前的原始状态；

3、表a中的“姓名”来自所有excel表中不重复的“姓名”，并自动将各excel表名中人员的“应发”导入表名对应字段。

存在以下问题请老师指正：

1、无法覆盖已导入文件；

2、“初始化”按钮无法实现自动删除已导入的表；

3、在表a中自动生成excel表所有不同的姓名，并自动将各excel表名中人员的“应发”导入表名对应字段。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:0108.rar

不太理解你的问题。

另个人觉得将导入到foxtable的同一个表中。

用这个方法更灵活：

http://www.foxtable.com/help/topics/2334.htm

Dim file As String
For Each File In FileSys.GetFiles(ProjectPath &"hz") 

Dim ip As New Importer
ip.SourcePath =file  \'指定数据文件
ip.SourceTableName ="sheet1" \'指定要导入的表
Dim a,b As  Integer
a=file.LastIndexOf("\\")+1
b=file.length-4
ip.NewTableName =file.substring(a,b-a)          \'导入后的表名
ip.Format = "Excel" \'指定导入格式
ip.Import()

Next

以上代码实现了将hz目录下的所有excel文件批量导入，并将导入后的表名命名为excel文件名。

请教下次再导入时如何判断已存在同名的表，如存在，则覆盖

If DataTables.Contains("统计表1") \'如果存在统计表1

End If

If DataTables("订单").DataCols.Contains("金额") Then

End If