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

发布网友 发布时间：2022-04-21 21:43

我来回答

共3个回答

热心网友 时间：2022-04-11 02:53

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

热心网友 时间：2022-04-11 04:11

超连接撒

热心网友 时间：2022-04-11 05:45

利用ADO和ADOX,很简单,网上一搜一大堆