Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
1、选择几个文件后、最终上传的结果是其中一个文件多次上传。
2、打开选择窗口后、选择多个文件时反应很慢;如果有100个文件要选的话、就停在那里不动啦
下载信息 [文件大小: 下载次数: ] | |
点击浏览该文件:管理项目1.zip |
以下命令读取文件中的第一个表、如果我想指定读取文件中的任意一个表。命令要怎样修改
比如我要指定读取 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