以文本方式查看主题

-  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=116830)
--  作者：114039247
--  发布时间：2018/3/31 22:42:00
--  excel 列号
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
--  发布时间：2018/4/1 0:07:00
--  
为什么有写csv 文件  用text 查看是带“”号的，有些没有“”呢
[此贴子已经被作者于2018/4/1 1:49:09编辑过]
--  作者：有点甜
--  发布时间：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没有太大区别，有可能最后一行是回车，所以最后一行无效。
--  作者：有点甜
--  发布时间：2018/4/1 17:44:00
--  
以下是引用114039247在2018/4/1 0:07:00的发言：
为什么有写csv 文件  用text 查看是带“”号的，有些没有“”呢
[此贴子已经被作者于2018/4/1 1:49:09编辑过]

 

csv文件本身问题吧，是否带双引号，是随机的。