ник: osmor
функция вернет ADODB.Recordset по указанному имени файла и имени листа
Public Function GetRecordsetFromExcel(xlsFullFileName As String, xlsSheetName As String) As ADODB.Recordset
'xlsFullFileName - полный путь и имя файла xls с расширением
'xlsSheetName - имя листа который нужно получить
Dim con As ADODB.Connection
Dim rst As ADODB.Recordset
On Error GoTo GetRecordsetFromExcel_Error
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & xlsFullFileName & ";Extended Properties=" & Chr(34) & "Excel 8.0;HDR=Yes;IMEX=1" & Chr(34) & ";"
con.Open
Set rst = New ADODB.Recordset
rst.Open "select * from [" & xlsSheetName & "$]", con
Set GetRecordsetFromExcel = rst
On Error GoTo 0
Exit Function
GetRecordsetFromExcel_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure GetRecordsetFromExcel of VBA Document Form_Форма3"
End Function
|