Excel spreadsheet to Access Table

[Aristarco]

Hi there. I've been using the next code to tranfer an excel spreadsheet to Access so I can make relations, etc...

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97, "MyTable", "MySheet.xls", True [\code]

But now, I have to make it in VB 6.0, so my utility is a .exe file. I've connected to the .xls file. Now what? How do I open the sheet and get the info to pass it to a recordset? Is there an equivalent of VBA's TransferSpreadsheet in VB?

To boldly code, where no programmer has compiled before!

 

[SkipVought]

Hi,

What you need to do is set a reference to Excel x.0.

Then you will have all the Excel objects, properties, methods including TransferSpreadsheet.

After setting the reference in the VB Editor, in you code use CreateObject to create and instance of Excel...

dim xlApp as Excel.Application
reference.
    
Set xlApp = CreateObject("excel.application")

xlApp.workbooks.Open  ...

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[Aristarco]

What I want to do is to open a spreadsheet and store the data in a recordset, so I can transfer it to a table in an *.mdb file. I'll try your code. Thank you very much.

To boldly code, where no programmer has compiled before!