- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请教关于自动批量导入excel文件问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=15759)
-- 发布时间：2012/1/10 15:55:00
-- [求助]请教关于自动批量导入excel文件问题
代码想实现以下功能·：
1、将项目目录下hz目录中的所有excel文件批量导入，表名为文件名（二次点击“批量导入”按钮同名的自动覆盖）；
2、点击“初始化”按钮表a可恢复导入前的原始状态；
3、表a中的“姓名”来自所有excel表中不重复的“姓名”，并自动将各excel表名中人员的“应发”导入表名对应字段。
存在以下问题请老师指正：
1、无法覆盖已导入文件；
2、“初始化”按钮无法实现自动删除已导入的表；
3、在表a中自动生成excel表所有不同的姓名，并自动将各excel表名中人员的“应发”导入表名对应字段。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:0108.rar |
-- 发布时间：2012/1/10 17:10:00
--
麻烦老师解答！
-- 发布时间：2012/1/10 18:10:00
--
不太理解你的问题。
另个人觉得将导入到foxtable的同一个表中。
用这个方法更灵活：
http://www.foxtable.com/help/topics/2334.htm
-- 发布时间：2012/1/11 8:17:00
--
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文件名。
请教下次再导入时如何判断已存在同名的表，如存在，则覆盖
-- 发布时间：2012/1/11 11:04:00
--
如何判断导入的表名已存在？列明已存在？
-- 发布时间：2012/1/11 11:19:00
--
If DataTables.Contains("统计表1") \'如果存在统计表1
End If
If DataTables("订单").DataCols.Contains("金额") Then
End If