此主题相关图片如下：qq截图20140216135432.png
以下是帮助中的作了一点修改
Dim file As String ="D:\456.xls"
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dr As DataRow = DataTables("员工").AddNew
dr("姓名") = sheet(4,1).Text
dr("部门") = sheet(5,1).text
dr("出生日期") = sheet(4,3).text
dr("雇佣日期") = sheet(5,3).text
dr("性别") = sheet(6,1).text
dr("职务") = sheet(6,3).text
dr("地址") = sheet(7,1).text
dr("家庭电话") = sheet(8,1).text
dr("办公电话") = sheet(8,3).text
dr("备注") = sheet(9,0).text
[此贴子已经被作者于2014-2-16 13:56:39编辑过]
加好友 
发短信
Post By：2014/2/16 13:56:00 [只看该作者]
