- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- excel列名怎么获取 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190259)
-- 发布时间：2024/1/26 17:16:00
-- excel列名怎么获取
excel列名怎么获取
此主题相关图片如下：企业微信截图_20240126171522.png
[此贴子已经被作者于2024/1/26 18:14:22编辑过]
-- 发布时间：2024/1/26 17:23:00
--
读取文件里第一行的数据就是列名
-- 发布时间：2024/1/26 19:11:00
--
Dim Book As New XLS.Book(e.Form.Controls("Excel文件").Value)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables(CurrentTable.Name).StopRedraw()
\'\'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nmsa() As String = e.Form.Controls("Excel表关联列名1").Value
Dim nmsb() As String = e.Form.Controls("当前表关联列名1").Value
\'\'\'注意下面的循环变量从1开始，而不是从0开始，因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count - 1
Dim r As Row = CurrentTable.AddNew()
For m As Integer = 0 To nmsb.Length - 1
r(nmsb(m)) = nmsa(m)
Next
Next
Tables(CurrentTable.Name).ResumeRedraw()
[此贴子已经被作者于2024/1/26 20:07:50编辑过]
-- 发布时间：2024/1/26 20:06:00
--
不规则的Excel表格
根据选择的列对应的导入到系统的表格
如果Excel的列名称和当前表名不一样,就按照选择的顺序导入到当前表
请教 老师
[此贴子已经被作者于2024/1/26 20:06:37编辑过]
-- 发布时间：2024/1/27 8:49:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105144