标题：合并文件

1、选择几个文件后、最终上传的结果是其中一个文件多次上传。

2、打开选择窗口后、选择多个文件时反应很慢；如果有100个文件要选的话、就停在那里不动啦

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

您的软件版本比我的高、我无法打开你的项目；麻烦您把命令直接发给我。谢谢

此主题相关图片如下：微信图片_20240428171847.png

提示加密狗有效期过期了、无法升级；要怎么处理？

以下命令读取文件中的第一个表、如果我想指定读取文件中的任意一个表。命令要怎样修改

比如我要指定读取 Sheet2  或者 Sheet3  中的数据

 
此主题相关图片如下：5e2a371d98a61b57c67d9a62f84de93.png

Dim  dlg As New  OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter=  "excel文件|*.xlsx" '设置筛选器
dlg.MultiSelect = True  '允许选择多个文件
If dlg.ShowDialog =  DialogResult.Ok Then  '如果用户单击了确定按钮
   
     For  Each fl  As  String  In dlg.FileNames
    '    MessageBox.show(fl) '显示读取到的文件路径和名称
   
    Dim  Book As New XLS.Book(fl) '定义一个Excel工作簿
    Dim  Sheet As XLS.Sheet = Book.Sheets(0) ' 读取文件中的第1个表(从0算起)
   
   
    Tables("国铁商城低值易耗品清单表_合并").StopRedraw() '开始执行
   
    '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
    Dim nms() As  String = {"序号","系统编号","商品名称","型号","单价","数量","金额","站段归属","申请站段","订单备注","领用时间","使用站段","存放地点","保管人","低值备注"}
   
    '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
    For n As Integer = 4 To Sheet.Rows.Count -1  ' 从第5行开始(从0算起),到最后一行(-3就是最后3行,等于删除最后2行)

        Dim r As  Row = Tables("国铁商城低值易耗品清单表_合并").AddNew() '增加一行
        For  m As  Integer = 0 To nms.Length - 1 ' 从第1列开始(从0算起)
            r(nms(m)) = Sheet(n,m).Value
        Next

    Next