Iphone

I need to import data from an excel file into an access table. I will need to import only certain columns from the excel file, columns A C D and E, but all of the rows that have data from all of the sheets. The needed columns will be the same for each sheet.

I know I can use the DoCmd.TransferSpreadsheet but how do I import each sheet and only the columns that I need? The number of sheets each time could change.

This is for Access 2000 DB.

Iphone

To find out the worksheet names.... Suppose you want to put them in an array

Dim xlAPP as Excel.Application
Dim xlWkb as Excel.Workbook
Dim xlWks as Excel.Worksheet
Dim strSheets as String
Dim varSheets as Variant
Dim intSheet as integer

Set xlApp = New Excel.Application
Set xlWkb = xlApp.Open(Filename:="Full Path of your excel file goes here")

For each xlWks In xlWkb
strSheets = strSheets & xlWks.Name & ";"
Next

xlWkb.Close 'close down workbook
Set xlWkb = Nothing
xlApp.quit
Set xlApp = Nothing 'Close down Excel Object

strSheets = Left(strSheets,Len(strSheets)-1)
varSheets = Split(strSheets,";") 'Place sheet names in variant array

For intSheet = 0 to Ubound(varSheets) 'This for loop will iterate through each sheet name
' do stufff with varSheets(intSheet)
Next