HELP! TransferSpreadSheet

V

Valeda

Joined
Jul 19, 2007
Messages
2
Reaction score
0
I am attempting to import an Excel file into Access. I am getting a 3125 error. It shows the strLastDataColumn = to @ or some other symbol, when it should be a letter, ie 'J' or 'DA'. What am I doing wrong? ANy solution?

For intCounter = 1 To intNoOfSheets
imported = "Y"
excelbook.Worksheets(intCounter).Activate
'The next 3 lines will obtain the last data cell reference for each Worksheet
strLastDataColumn = Chr(Selection.SpecialCells(xlLastCell).Column)
strLastDataRow = Selection.SpecialCells(xlLastCell).Row
strLastDataCell = strLastDataColumn & strLastDataRow 'e.g. J123

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tblExcelImport", strFilePath, True, _
excelbook.Worksheets(intCounter).Name & "!A1:" & strLastDataCell
Next
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

HELP!!! TransferSpreadSheet 0
Help with some code Please 1
transferspreadsheet 1
Transferspreadsheet to import excel file with different column 5
Importing from Excel 2007 into Access 2007: Object Required 18
CopyObject / Transferspreadsheet help 4
TransferSpreadsheet Issue 3
Help with Excel Automation Import 1

Top