[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

Tables("理财客户明细").ResumeRedraw()

msgbox("理财数据导入更新完毕!",64,"提示")

End If

[此贴子已经被作者于2015/3/23 22:49:04编辑过]

版主，就是一串字符“1066005120001113030140011”，想截取前9个数导入项目文件第一列，再截取13至18段字符导入项目文件第二列。其余字符依次导入第三，第四.....列，谢谢！请帮助修改代码。

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

编译错误：“xls.cell"的值无法转换为“string" 错误代码：dim val as string = sheet(n,0) 谢谢

这个问题你可以自己解决的哦，你再想想。

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

或

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

已解决，谢谢！

主题：[求助]