vB编程VB源码 VB读取EXCEL工作薄某个表中数据 ADODB.Recordset

概述  Private Sub Form_Load()Dim RS As ADODB.RecordsetSet RS = GetExcelRs(App.Path & "\book1.xls")MsgBox RS.RecordCountMsgBox RS(0)RS(0) = TimerRS.UpdateRS.CloseEnd Sub'┏〓〓〓〓〓〓〓〓〓 GetE

Private Sub Form_Load()Dim RS As ADODB.RecordsetSet RS = GetExcelrs(App.Path & "\book1.xls")MsgBox RS.RecordCountMsgBox RS(0)RS(0) = TimerRS.UpdateRS.CloseEnd Sub'┏〓〓〓〓〓〓〓〓〓 GetExcelrs,start 〓〓〓〓〓〓〓〓〓┓'［简介］：'VB读取EXCEL工作薄某个表中数据Function GetExcelrs(ByVal sfile As String,Optional ExcelSheetname As String = "sheet1",Optional ErrInfo As String) As ADODB.Recordset   '[mycode_ID:2025],edittime:2011-9-7 下午 02:15:41   On Error GoTo Err   Dim RS As ADODB.Recordset   Set RS = New ADODB.Recordset   Dim ConnStr As String   ConnStr = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sfile & ";Readonly=False"      RS.Open "SELECT * FROM [" & ExcelSheetname & "$]",ConnStr,1,3      Set GetExcelrs = RS   Set RS = nothing      Exit Function   Err:   ErrInfo = Err.Description   MsgBox ErrInfoEnd Function'┗〓〓〓〓〓〓〓〓〓  GetExcelrs,end  〓〓〓〓〓〓〓〓〓┛

总结

以上是内存溢出为你收集整理的vB编程VB源码 VB读取EXCEL工作薄某个表中数据 ADODB.Recordset全部内容，希望文章能够帮你解决vB编程VB源码 VB读取EXCEL工作薄某个表中数据 ADODB.Recordset所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。