- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]数据导出到模板的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70684)
-- 发布时间：2015/6/26 12:44:00
-- [求助]数据导出到模板的问题
因为需要将订单数据导出到客户的系统中，客户给了一个excel模板test.xls 此模板包含两个表 原始数据，待导入数据， 现在只需要按照格式将数据导出到原始数据表中，待导入数据表使用公式从原始数据表中抓取数据，但是我每次导出数据到原始数据表中，但是待导入数据表的公司并没有自动更新，需要我刷新下，才能显示出来。不知道是何原因，请大家帮忙查看下！谢谢了！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导出数据.rar |
-- 发布时间：2015/6/26 13:49:00
--
大家帮忙看下
[此贴子已经被作者于2015/6/26 13:55:15编辑过]
-- 发布时间：2015/6/26 14:15:00
--
大家帮忙看下
-- 发布时间：2015/6/26 14:19:00
--
什么意思? 意思是Excel模版的刷新公式没起作用?
-- 发布时间：2015/6/26 14:39:00
--
待导入数据中的单元格上的内容是引用原始数据的有 比如 =原始数据!K2 但是原始数据更新后，待导入数据中的数据没有根据公式更新！
[此贴子已经被作者于2015/6/26 14:41:00编辑过]
-- 发布时间：2015/6/26 14:44:00
--
Dim flg As New SaveExcelFlags
flg.RowNumber = False
flg.CellStyle = False
Tables("表A").SaveExcel(ProjectPath & "test.xls","原始数据",flg)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("待导入数据")
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.Formula = rg.Formula
app.visible = True
\'app.quit
-- 发布时间：2015/7/16 23:21:00
-- 导出到模板的问题
袍哥写的代码有用但是又有另外一个问题！
导入前
此主题相关图片如下：1.png
导入后
此主题相关图片如下：2.png
[此贴子已经被作者于2015/7/16 23:21:53编辑过]
-- 发布时间：2015/7/16 23:42:00
--
1楼和你7楼的不同，上传例子看看。
实在不行的话，你就用vba导出数据嘛。
-- 发布时间：2015/7/17 8:48:00
--
袍哥真是太爱你了，都到凌晨了还继续回复，原始导出模板如下 导出数据前的名称管理器是正常的，但是导出后名称管理器就乱了。请袍哥帮忙看下！实在搞不定excel 了！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.xls |
-- 发布时间：2015/7/17 9:32:00
--
袍哥，帮忙看下吧！