将数据从Excel电子表格检索到块中的Excel电子表格

Question

Here's my problem : I want to retrieve data from an Excel XML spreadsheet (*.xlsx) within another Excel spreadsheet without opening it. So I gave a chance to OLEDB with the ACE Provider.

The connection worked and I made what I wanted, by looping through my recordset. But now I want some optimization, ie putting my recordset into excel in a block instead of looping through it.

Therefore I made something like this :

Sub RetrieveData()

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

With con
    .Provider = "Microsoft.ACE.OLEDB.12.0"   
    .ConnectionString = "Data Source=Path\File.xlsx; _
        Extended Properties=""Excel 12.0 Xml;HDR=NO;IMEX=1"""
    .Open
    Set rs = .Execute("Select * From [Sheet1$]")

'Problem here
    Range(Cells(1, 1), Cells(rs.RecordCount, rs.Fields.Count - 1)) = rs
   .Close
End With
Exit Sub

The thing here, is that I'm currently dealing with technologies which I don't know much about them and can't find any documentation on them (eg Microsoft ACE 12.0 Provider for OLEDB).

Regards.

(And don't even hesitate to correct my poor grammar)

Answer 1

I think this is what you need:

Cells(1,1).CopyFromRecordset rs

Quite simple, don't you think. But put it instead of this line:

Range(Cells(1,1)................ = rs

And remember to remove comment: 'Problem here :)

By the way, data you get in your sheet don't include columns heading. But I hope you'll cope with that separately.