Zip Code Not Importing with Extention

[Moxioron]

Hello.

I have a pretty basic TransferSpreadsheet module that works well except that if the Zip code has the four digit extention, it's not importing.

Option Compare Database

Dim myCheck
Function MeridianLinkFileImport()
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tbl_MeridianLinkFileImport", "R:\DEPT-BR\CONSUMER LENDING\Marketing Campaigns\2014 Auto Loan Prescreen\Report from LoansPQ.xls", True, "Sheet1!A3:AO50000"
End Function

If there is no extention, it is importing fine... 85086 works fine but 85018-4710 doesn't import.

The field is a Short Text data type.

Any ideas around this? Thanks.

 

[spikepl]

In Excel select the column and set its format to text.

 

[GinaWhipp]

First thing I would check is the Length of the Field, make sure it's set to 10 or above.

 

[jdraw]

How large is the field in the table? Is it possible you have it set to 5 positions?
In Excel is the field/column numeric? Is it possible that excel is doing a subtraction?

Just a few guesses.
Good luck.