主题：合并EXCEL文件导入问题

FOXTABLE请求解决的问题一

程序如下：

Dim mg As New Merger

mg.SourcePath = "C:\ 员工工资信息.xls"

mg.Format = "Excel" '指定格式

mg.SourceTableName = "员工工资信息" '指定要合并的表

mg.DataTableName = "员工工资信息表" '指定接收数据的表

mg.Merge() '开始合并

出现运行错误：找不到” 员工工资信息“，请求专家指点错误在哪？

陈志刚 敬上  18751210666

你foxtable里面是否有一个叫做 【员工工资信息表】的表？

 

Dim mg As New Merger

mg.SourcePath = "C:\ 员工工资信息.xls"

mg.Format = "Excel" '指定格式

mg.SourceTableName = "Sheet$" '指定要合并的表

mg.DataTableName = "员工工资信息表" '指定接收数据的表

mg.Merge() '开始合并

按文件上说的：”员工工资信息.XLS“放在C盘，就是提示”microsoft jet 数据引擎找不对象”员工工资信息“。 请确定对象是否存在，并正确地写出它的名称和路径。

    我的软件下载的是试用版FOCTABLE2014，不知与试用版有无关系？

 

跟版本无关。留意红色代码，后缀名、sheet的名字

 

Dim mg As New Merger

mg.SourcePath = "C:\ 员工工资信息.xlsx"

mg.Format = "Excel" '指定格式

mg.SourceTableName = "Sheet$" '指定要合并的表

mg.DataTableName = "员工工资信息表" '指定接收数据的表

mg.Merge() '开始合并

你foxtable里面是否有一个叫做 【员工工资信息表】的表？

 

Dim mg As New Merger

mg.SourcePath = "C:\ 员工工资信息.xls"

mg.Format = "Excel" '指定格式

mg.SourceTableName = "Sheet$" '指定要合并的表

mg.DataTableName = "员工工资信息表" '指定接收数据的表

mg.Merge() '开始合并

 

    上述问题已解决，是电子表格的版本问题。之前存的表格是办法导进去的。只本机新装的电子表所设计的表格才可导进去。

要想之前表导进去，只有把之前的表格导到现在新的表格保存后才能导进去。

   谢谢指点。

     求助：查询的设计中：要查询某年某月某日到某年某月某日之间的时间内程序应怎样写？

              在时间范畴内，选择多个项目后，查询不显示，应怎样改写程序?

请求指点。

Execl2003

 

加上条件

 

mg.Filter = "日期 > #2001-01-01# and 日期 < #2020-01-01#" '指定合并条件

版主：您好！

加上条件，执行不了，还是有错误，请指点：

 

Dim rq As WinForm.ComboBox = e.Form.Controls("日期")

rq.combolist=DataTables("生产报表").GetcomboListString("日期")

 

rq.Filter = "日期 > #2001-01-01# and 日期 < #2020-01-01#" '指定合并条件

Tables("生产报表").Filter =""