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

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

先使用adodc控件连接数据库

读取文本中的值

使用SQL语句: "insert into 数据表名 (列名1,列名2,...,列名n) values (值1,值2,..., 值n)"

adodc.refresh 更新数据库

用FORMULA

1

,一个开源框架；里面有个JBook可以取到EXCEL中的数据；然后你在根据JBook将数据存到数据库

答案补充

导入的时候打开一个JFileChooser用来让用户选择要读的excel文件；然后JBook

WorkBook

=

new

JBook()WorkBook.read(fileName,

new

ReadParams(JBook.eFileExcel97))WorkBook.setSheet(0)WorkBook.setSelection(0,

0,

0,

0)这就将excel中的数据读入JBook中了，int

EndRow

=

WorkBook.getLastRow()//

总行数int

EndCol

=

WorkBook.getLastCol()//

总列数WorkBook.getNumber(row,col)

或者getText(row,col)活的excel中的数据；将这些数据从JBOOK提取出来，然后自己封装成自己需要的类型，再存到数据库就行了；说起来好像挺繁琐的，做做试试；去网上下个FORMULA

1

的jar包我现在是在java的CS模式下用的；

---