共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：excel列名怎么获取
1楼
yifan3429 发表于：2024/1/26 17:16:00excel列名怎么获取
此主题相关图片如下：企业微信截图_20240126171522.png
此主题相关图片如下：企业微信截图_20240126171522.png[此贴子已经被作者于2024/1/26 18:14:22编辑过]
2楼
有点蓝 发表于：2024/1/26 17:23:00读取文件里第一行的数据就是列名
3楼
yifan3429 发表于：2024/1/26 19:11:00Dim 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编辑过]
4楼
yifan3429 发表于：2024/1/26 20:06:00不规则的Excel表格
根据选择的列对应的导入到系统的表格
如果Excel的列名称和当前表名不一样,就按照选择的顺序导入到当前表
请教 老师
[此贴子已经被作者于2024/1/26 20:06:37编辑过]
5楼
有点蓝 发表于：2024/1/27 8:49:00参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105144
共5 条记录, 每页显示 10 条, 页签:
[1]