| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 导入导出 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52448) |
| -- 作者：gslxgl -- 发布时间：2014/6/16 13:49:00 -- 导入导出 导出时如何自己选择目录路径 |
| -- 作者：有点甜 -- 发布时间：2014/6/16 13:57:00 -- 看一下帮助文档，对话框这样调出来 http://www.foxtable.com/help/topics/0329.htm
|
| -- 作者：gslxgl -- 发布时间：2014/6/16 14:03:00 -- Dim ip as New Importer
对这个代码，由自已选择导入目录怎么改啊 |
| -- 作者：Bin -- 发布时间：2014/6/16 14:05:00 -- http://www.foxtable.com/help/topics/0684.htm |
| -- 作者：Bin -- 发布时间：2014/6/16 14:05:00 -- 看示例2 |
| -- 作者：有点甜 -- 发布时间：2014/6/16 14:05:00 -- Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel|*.xls;*.xlsx" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim ip As New Importer ip.SourcePath = dlg.FileName \'指定数据文件 ip.SourceTableName = "订单" \'指定要导入的表 ip.NewTableName ="订单" \'导入后的表名 ip.Format = "Excel" \'指定导入格式 ip.Import() End If |
| -- 作者：gslxgl -- 发布时间：2014/6/16 14:14:00 -- 我弄错了，应该是合并，只导入数据，不导入表 |
| -- 作者：有点甜 -- 发布时间：2014/6/16 14:17:00 -- Dim dlg As New OpenFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel|*.xls;*.xlsx" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim mg As New Merger mg.SourcePath = dlg.FileName mg.Format = "excel" \'指定格式 mg.SourceTableName = "订单$" \'指定要合并的表 mg.DataTableName = "订单" \'指定接收数据的表 mg.Merge() \'开始合并 End If |
| -- 作者：gslxgl -- 发布时间：2014/6/16 14:46:00 -- 谢谢 |