以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65821)
--  作者：yjd
--  发布时间：2015/3/23 22:46:00
--  [求助]






1066005120001113030140011

定期

20150101

20150601 

25000

高洪波

国足教练


版主您好，上面是XLS文件，想导入项目文件”理财客户明细“，其中”1066005120001113030140011“是xls文件中的第一列，我从每行第一列前9个字符“106600512”截取导入项目文件的“产品代码”，从第13至18个字符“111303”截取导入项目文件的“网点号”，其他列依次导入，您看我代码应该怎么写,另外XLS文件中日期怎样转换导入项目文中的“日期时间”型字符。谢谢！

If msgbox("导入更新可以导入客户基础数据和最新的理财金额,是否进行?",65,"提示") = 1 Then
    Dim Book As New XLS.Book("D:\\khdaxt\\drgx\\lcdrgx.xls")
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("理财客户明细").StopRedraw()
    Dim nms() As String = {"产品代码“，”网点号“，产品名称","起息日","到期日","金额","户名","客户等级"}
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As Row = Tables("理财客户明细").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    Next
    Tables("理财客户明细").ResumeRedraw()
    msgbox("理财数据导入更新完毕!",64,"提示")
End If
[此贴子已经被作者于2015/3/23 22:49:04编辑过]
--  作者：Bin
--  发布时间：2015/3/24 8:41:00
--  
具体请上例子
--  作者：yjd
--  发布时间：2015/3/24 9:20:00
--  
版主，就是一串字符“1066005120001113030140011”，想截取前9个数导入项目文件第一列，再截取13至18段字符导入项目文件第二列。其余字符依次导入第三，第四.....列，谢谢！请帮助修改代码。
--  作者：狐狸爸爸
--  发布时间：2015/3/24 9:24:00
--  
If msgbox("导入更新可以导入客户基础数据和最新的理财金额,是否进行?",65,"提示") = 1 Then
    Dim Book As New XLS.Book("D:\\khdaxt\\drgx\\lcdrgx.xls")
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("理财客户明细").StopRedraw()
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As Row = Tables("理财客户明细").AddNew()
        Dim val As String = sheet(n,0)
        r("产品代码") = val.Substring(0,9)
        r("网点号") = val.SubString(12,6)
        val = sheet(n,2)
        Dim y As Integer = val.SubString(0,4)
        Dim m As Integer = val.Substring(4,2)
        Dim d As Integer = val.Substring(6,2)
        r("起息日") = new Date(y,m,d)
        r("户名") = sheet(n,5)
        \'....大概如此,自己写下去
    Tables("理财客户明细").ResumeRedraw()
    msgbox("理财数据导入更新完毕!",64,"提示")
End If
--  作者：yjd
--  发布时间：2015/3/24 9:25:00
--  
非常感谢！
--  作者：yjd
--  发布时间：2015/3/24 10:18:00
--  
编译错误：“xls.cell"的值无法转换为“string" 错误代码：dim val as string = sheet(n,0) 谢谢
--  作者：狐狸爸爸
--  发布时间：2015/3/24 10:20:00
--  
这个问题你可以自己解决的哦，你再想想。
--  作者：狐狸爸爸
--  发布时间：2015/3/24 10:22:00
--  

dim val as string = sheet(n,0).text

 

或

 

dim val as string = sheet(n,0).Value
--  作者：yjd
--  发布时间：2015/3/24 21:30:00
--  
已解决，谢谢！