'┏〓〓〓〓〓〓〓〓〓 GetExcelRs,start 〓〓〓〓〓〓〓〓〓┓
'［簡介］：
'VB讀取EXCEL工作薄某個(gè)表中數(shù)據(jù)
Function GetExcelRs(ByVal sFile As String, Optional ExcelSheetName As String = "sheet1", Optional ErrInfo As String) As ADODB.Recordset
'VB源碼，幫你寫函數(shù)，幫你寫代碼，幫你寫模塊，幫你設(shè)計(jì)軟件
'--需要什么函數(shù)或功能，可以聯(lián)系我。
'版權(quán)所有，請(qǐng)保留作者信息.QQ：1085992075
'如需商業(yè)用途請(qǐng)聯(lián)系作者
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 ErrInfo
End Function
'┗〓〓〓〓〓〓〓〓〓 GetExcelRs,end 〓〓〓〓〓〓〓注意:本例題程序必須引用 Microsoft Excel 11.0 Object Library
Visual Basic code
?1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
'Form = Command1
'引用 Microsoft Excel 11.0 Object Library
'完成效果：在D盤下建立一個(gè)名字為 2的 excel文件 文件中的第5列第5行有“成功字樣”
'*************下面是代碼***************
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Private Sub Command1_Click()
Set xlapp = CreateObject("Excel.Application") '創(chuàng)建EXCEL對(duì)象
Set xlbook = xlapp.Workbooks.Add()
Set xlsheet = xlbook.Worksheets("Sheet1") '設(shè)置活動(dòng)工作表
xlsheet.Cells(5, 5) = "成功" '向第五行第五列寫入該數(shù)據(jù)
xlbook.SaveAs "D:.xls" '另存文件
xlbook.Close '關(guān)閉工作簿
Set xlbook = Nothing '從內(nèi)存中清除
xlapp.Quit '關(guān)閉excel
Set xlapp = Nothing '從內(nèi)存中清除
End Sub
