VB读取excel数据并插入到数据库

VB读取excel数据并插入到数据库
excel表中有8列 其中性别列为男 女
数据库中有10-20列 数据库为oracle 性别列为number 1 0
1 要讲excel中数据输入到oracle中 并且列与数据库中列一一对应
2 要讲excel中的性别转换为数据库中的1 0
如果能解决上述问题 千分不惜
也可以加我Q 单独教我
只要能实现，有源码分就不是问题

Set xlApp = CreateObject("Excel.Application") '激活EXCEL应用程序

xlApp.Visible = False '隐藏EXCEL应用程序窗口
Set xlBook = xlApp.Workbooks.Open(FileManually) '打开工作簿，FileManually为一个EXCEL报表文件

Set xlSheet = xlBook.Worksheets(Trim(txtSheetNM.Text)) '设定工作表
For IRowsCount = 1 To xlSheet.UsedRange.Cells.Rows.Count
If Trim(xlSheet.Cells(IRowsCount, 1)) = "" Then
Exit For
End If
'将xlSheet.Cells(IRowsCount,列号)的数据插入数据库中
'转换男女可以判断xlSheet.Cells(IRowsCount,列号)="男",则=1,否则=0,然后再写入数据库

Next IRowsCount

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fs8qp72mp4q4ppq2q2m.html