| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 合并EXCEL文件导入问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78075) |
| -- 作者：陈志刚 -- 发布时间：2015/12/1 17:35:00 -- 合并EXCEL文件导入问题 FOXTABLE请求解决的问题一 程序如下： Dim mg As New Merger mg.SourcePath = "C:\\ 员工工资信息.xls" mg.Format = "Excel"
\'指定格式 mg.SourceTableName = "员工工资信息"
\'指定要合并的表 mg.DataTableName = "员工工资信息表" \'指定接收数据的表 mg.Merge() \'开始合并 出现运行错误：找不到” 员工工资信息“，请求专家指点错误在哪？ 陈志刚 敬上 18751210666 |
| -- 作者：大红袍 -- 发布时间：2015/12/1 17:39:00 -- 你foxtable里面是否有一个叫做 【员工工资信息表】的表？
Dim mg As New Merger mg.SourcePath = "C:\\ 员工工资信息.xls" mg.Format = "Excel" \'指定格式 mg.SourceTableName = "Sheet$" \'指定要合并的表 mg.DataTableName = "员工工资信息表" \'指定接收数据的表 mg.Merge() \'开始合并 |
| -- 作者：陈志刚 -- 发布时间：2015/12/1 18:07:00 -- 按文件上说的：”员工工资信息.XLS“放在C盘，就是提示”microsoft jet 数据引擎找不对象”员工工资信息“。 请确定对象是否存在，并正确地写出它的名称和路径。 文件名称的地址都对，就是找不到。按照视频的步骤检查，找不到问题所在，故而寻求帮助。
|
| -- 作者：陈志刚 -- 发布时间：2015/12/1 18:12:00 -- 我的软件下载的是试用版FOCTABLE2014，不知与试用版有无关系？ |
| -- 作者：大红袍 -- 发布时间：2015/12/1 18:59:00 -- 以下是引用陈志刚在2015/12/1 18:12:00的发言：
我的软件下载的是试用版FOCTABLE2014，不知与试用版有无关系？
跟版本无关。留意红色代码，后缀名、sheet的名字
Dim mg As New Merger mg.SourcePath = "C:\\ 员工工资信息.xlsx" mg.Format = "Excel" \'指定格式 mg.SourceTableName = "Sheet$" \'指定要合并的表 mg.DataTableName = "员工工资信息表" \'指定接收数据的表 mg.Merge() \'开始合并 |
| -- 作者：陈志刚 -- 发布时间：2015/12/8 8:44:00 -- 你foxtable里面是否有一个叫做 【员工工资信息表】的表？
Dim mg As New Merger mg.SourcePath = "C:\\ 员工工资信息.xls" mg.Format = "Excel" \'指定格式 mg.SourceTableName = "Sheet$" \'指定要合并的表 mg.DataTableName = "员工工资信息表" \'指定接收数据的表 mg.Merge() \'开始合并
上述问题已解决，是电子表格的版本问题。之前存的表格是办法导进去的。只本机新装的电子表所设计的表格才可导进去。 要想之前表导进去，只有把之前的表格导到现在新的表格保存后才能导进去。 谢谢指点。 |
| -- 作者：陈志刚 -- 发布时间：2015/12/8 8:49:00 -- 求助：查询的设计中：要查询某年某月某日到某年某月某日之间的时间内程序应怎样写？ 在时间范畴内，选择多个项目后，查询不显示，应怎样改写程序? 请求指点。 |
| -- 作者：Hyphen -- 发布时间：2015/12/8 8:52:00 -- Execl2003 Dim mg As New Merger mg.SourcePath = "C:\\ 员工工资信息.xls" mg.Format = "Excel" \'指定格式 mg.SourceTableName = "表格sheet名称" \'Execl表格左下角的名称 mg.DataTableName = "员工工资信息表" \'指定接收数据的表 mg.Merge() \'开始合并 Execl2007 Dim mg As New Merger mg.SourcePath = "C:\\ 员工工资信息.xlsx" mg.Format = "Excel2007l" \'指定格式 mg.SourceTableName = "表格sheet名称$" \'Execl表格左下角的名称+$ mg.DataTableName = "员工工资信息表" \'指定接收数据的表 mg.Merge() \'开始合并 [此贴子已经被作者于2015/12/8 8:53:02编辑过]
|
| -- 作者：大红袍 -- 发布时间：2015/12/8 9:10:00 -- 以下是引用陈志刚在2015/12/8 8:49:00的发言：
求助：查询的设计中：要查询某年某月某日到某年某月某日之间的时间内程序应怎样写？ 在时间范畴内，选择多个项目后，查询不显示，应怎样改写程序? 请求指点。
加上条件
mg.Filter = "日期 > #2001-01-01# and 日期 < #2020-01-01#" \'指定合并条件 |
| -- 作者：陈志刚 -- 发布时间：2015/12/8 11:52:00 -- 版主：您好！ 加上条件，执行不了，还是有错误，请指点：
Dim rq As WinForm.ComboBox = e.Form.Controls("日期") rq.combolist=DataTables("生产报表").GetcomboListString("日期")
rq.Filter = "日期 > #2001-01-01# and 日期 < #2020-01-01#" \'指定合并条件 Tables("生产报表").Filter =""
|