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编辑过]
加好友 
发短信
Post By：2015/3/23 22:46:00 [只看该作者]
