Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共21 条记录, 每页显示 10 条, 页签: [1] [2][3]
[浏览完整版]

标题:合并文件

1楼
wumingrong-2 发表于:2024/4/28 10:41:00

有好多表格格式一样的文件、要把那些文件里的内容合并到一个表里去。该怎么处理?

 

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20240428103820.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20240428103827.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2024/4/28 10:41:44编辑过]
2楼
有点蓝 发表于:2024/4/28 10:50:00
导入参考:http://www.foxtable.com/webhelp/topics/2334.htm

获取导入的文件参考:http://www.foxtable.com/webhelp/topics/0328.htm,或者:http://www.foxtable.com/webhelp/topics/0341.htm
3楼
wumingrong-2 发表于:2024/4/28 11:54:00

Dim  dlg As New  OpenFileDialog '定义一个新的OpenFileDialog
 dlg.Filter=  "excel文件|*.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

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20240428115249.png
图片点击可在新窗口打开查看


 所选的文件中、有"国铁商城广综财"这个表、但是却提示错误


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20240428115256.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2024/4/28 11:55:19编辑过]
4楼
有点蓝 发表于:2024/4/28 12:23:00
非标准文档格式:http://www.foxtable.com/webhelp/topics/2280.htm,请使用2楼的导入方式
5楼
wumingrong-2 发表于:2024/4/28 15:02:00

这是固定导入某一个文件、如果要改为打开文件对话框,合并用户指定的文件;要怎么改?

 

Dim  Book As New XLS.Book("D:\我的文件\Mylave\输出报表\三个系统低值易耗品台账\2024-04-28【三个系统低值易耗品】\行政办【三个系统低值易耗品】.xlsx")
 Dim  Sheet As XLS.Sheet = Book.Sheets(0)
Tables("国铁商城低值易耗品清单表").StopRedraw()
 '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As  String = {"序号","系统编号","订单号","商品名称","一级类目","售价","数量","售价小计","站段归属","申请站段","备注","采购单提交时间","使用站段","存放地点","保管人","低值易耗品备注"}
 '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
 For n As Integer = 4 To Sheet.Rows.Count -1
     Dim r As  Row = Tables("国铁商城低值易耗品清单表").AddNew()
     For  m As  Integer = 0 To nms.Length - 1
           r(nms(m)) = Sheet(n,m).Value
     Next
 Next
 Tables("国铁商城低值易耗品清单表").ResumeRedraw()

6楼
有点蓝 发表于:2024/4/28 15:14:00
Dim  dlg As New  OpenFileDialog '定义一个新的OpenFileDialog
 dlg.Filter=  "excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog =  DialogResult.Ok Then  '如果用户单击了确定按钮
Dim  Book As New XLS.Book(dlg.FileName)
7楼
wumingrong-2 发表于:2024/4/28 15:26:00

不管选哪个文件、执行后都只新装了两条空白行 

 

Dim  dlg As New  OpenFileDialog '定义一个新的OpenFileDialog
 dlg.Filter=  "excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog =  DialogResult.Ok Then  '如果用户单击了确定按钮
Dim  Book As New XLS.Book(dlg.FileName)

'Dim  Book As New XLS.Book("D:\我的文件\Mylave\输出报表\三个系统低值易耗品台账\2024-04-28【三个系统低值易耗品】\行政办【三个系统低值易耗品】.xlsx")
 Dim  Sheet As XLS.Sheet = Book.Sheets(0)
Tables("国铁商城低值易耗品清单表").StopRedraw()
 '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As  String = {"序号","系统编号","订单号","商品名称","一级类目","售价","数量","售价小计","站段归属","申请站段","备注","采购单提交时间","使用站段","存放地点","保管人","低值易耗品备注"}
 '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
 For n As Integer = 4 To Sheet.Rows.Count -1
     Dim r As  Row = Tables("国铁商城低值易耗品清单表").AddNew()
     For  m As  Integer = 0 To nms.Length - 1
           r(nms(m)) = Sheet(n,m).Value
     Next
 Next


 Tables("国铁商城低值易耗品清单表").ResumeRedraw()

End If

 

 


此主题相关图片如下:微信图片_20240428152441.png
按此在新窗口浏览图片
8楼
有点蓝 发表于:2024/4/28 15:33:00
做个例子发上来测试一下
9楼
wumingrong-2 发表于:2024/4/28 16:21:00

现在可以导进去啦、现在如果我想同时选择好几个文件;一起导进去、而不用选一个文件导进去后、再去选另外一个文件导进去。增加了【允许同时选择多个文件】、但是导进去还是只导了一个文件。该怎么改?

 

 

Dim  dlg As New  OpenFileDialog '定义一个新的OpenFileDialog
 dlg.Filter=  "excel文件|*.xlsx" '设置筛选器
dlg.MultiSelect = True  '允许选择多个文件
If dlg.ShowDialog =  DialogResult.Ok Then  '如果用户单击了确定按钮
Dim  Book As New XLS.Book(dlg.FileName)


 Dim  Sheet As XLS.Sheet = Book.Sheets(0)
Tables("国铁商城低值易耗品清单表").StopRedraw()
 '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As  String = {"序号","系统编号","订单号","商品名称","型号 ","单价","数量","金额","站段归属","申请站段","订单备注","领用时间","使用站段","存放地点","保管人","低值备注"}
 '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
 For n As Integer = 4 To Sheet.Rows.Count -1
     Dim r As  Row = Tables("国铁商城低值易耗品清单表").AddNew()
     For  m As  Integer = 0 To nms.Length - 1
           r(nms(m)) = Sheet(n,m).Value
     Next
 Next

10楼
有点蓝 发表于:2024/4/28 16:29:00
http://www.foxtable.com/webhelp/topics/0328.htm,看示例二
共21 条记录, 每页显示 10 条, 页签: [1] [2][3]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.