Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel 列号


  共有1900人关注过本帖树形打印复制链接

主题：excel 列号
帅哥哟，离线，有人找我吗？
114039247
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：103 积分：1664 威望：0 精华：0 注册：2016/5/11 0:19:00 		excel 列号  发帖心情 Post By：2018/3/31 22:42:00 [只看该作者]

1.代码怎么写

得到外部excel表格 “金额”这个列的列号
2.
Dim ddstr2 As String = FileSys.ReadAllText(l3,Encoding.Default)
Dim ddary() As String = ddstr2.Split(new Char() {chr(10), Chr(13)})
For i As Integer = 1 To ddary.Length -2  这个不明白为什么是-2（源文件数据没有多余的行不是-1吗？我用-1会超出索引）
Dim dds() As String = ddary(i).Split(",")
Dim ddnr As Row = Tables("测试表").AddNew

For Each str1 As String In dr1
If names.Contains(str1)
ddnr(str1) = dds(names.Indexof(Str1)).replace("""", "").trim()
End If
Next
Next



[此贴子已经被作者于2018/4/1 2:01:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
114039247
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：103 积分：1664 威望：0 精华：0 注册：2016/5/11 0:19:00 		  发帖心情 Post By：2018/4/1 0:07:00 [只看该作者]

为什么有写csv 文件  用text 查看是带“”号的，有些没有“”呢
[此贴子已经被作者于2018/4/1 1:49:09编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/1 17:43:00 [只看该作者]

1、需要循环所有的列，判断，知识点

 

Dim Book As New XLS.Book("d:\test.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For i As Integer = 0 To sheet.cols.count-1
    output.show(sheet(0, i).text)
    If sheet(0, i).text = "金额" Then
        msgbox(i)
        Exit For
    End If
Next

 

2、-1或者-2没有太大区别，有可能最后一行是回车，所以最后一行无效。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/1 17:44:00 [只看该作者]

以下是引用114039247在2018/4/1 0:07:00的发言：
为什么有写csv 文件  用text 查看是带“”号的，有些没有“”呢
[此贴子已经被作者于2018/4/1 1:49:09编辑过]

 

csv文件本身问题吧，是否带双引号，是随机的。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询