ACC: TransferSpreadsheet May Not Allow Table Append (153812)

SYMPTOMS

When you append data from a spreadsheet to an existing table by using a TransferSpreadsheet macro action or a TransferSpreadsheet method in Visual Basic for Applications, you may receive the following error message:

Field 'F1' doesn't exist in destination table '<table>'.

Microsoft Access was unable to complete the append operation. The destination table must contain the same fields as the table you are pasting from.

RESOLUTION

You can use one of the following two methods to work around this behavior. You can import the spreadsheet into a new table, and then append that data in Microsoft Access; or you can change the spreadsheet to include field names in the first row.

Method 1

Import the spreadsheet into a new table named tblTemp.
Create an append query to append the data in the tblTemp table to your existing table.
Run the append query.
Delete the tblTemp table.

Method 2

In Microsoft Excel, insert a new first row in the spreadsheet. In this row, add field names that match the field names in the existing Microsoft Access table.

In the macro, change the Has Field Names argument to Yes, for example:

      Transfer Type: Import
      Spreadsheet Type: <your type>
      Table Name: <table in your database>
      File Name: <name of file, including path>
      Has Field Names: Yes

If you are using code, the HasFieldNames argument should be set to True, for example:

NOTE: In the following sample code, an underscore (_) at the end of a line is used as a line-continuation character. Remove the underscore from the end of the line when re-creating this code in Access Basic.
```
      DoCmd.TransferSpreadsheet acImport, _
      <number of type of file to import>, "<table in your database>", _
      "<name of file including path>", True
						
```

MORE INFORMATION

Steps to Reproduce Behavior

NOTE: This example uses the Shippers table from the Northwind sample database (or NWIND.MDB in version 2.0).

Open Microsoft Excel version 7.0, and create a spreadsheet with the following data:

      9     Express      800-123-4567
     10     US Mail      800-569-4568

Save spreadsheet as c:\test1.xls.
Open the sample database Northwind.mdb (or NWIND.MDB in version 2.0).

Create a macro with the TransferSpreadsheet action, and the following values:

      Transfer Type: Import
      Spreadsheet Type: Microsoft Excel 5-7
      Table Name: Shippers
      File Name: c:\test1.xls
      Has Field Names: No

Run the macro. Note that you receive the error mentioned in the "Symptoms" section.
Create a new module, and enter the following function.

NOTE: In the following sample code, an underscore (_) at the end of a line is used as a line-continuation character. Remove the underscore from the end of the line when re-creating this code in Access Basic.
```
      Function ImportTest()
      DoCmd.TransferSpreadsheet acImport, 5, "Shippers", " c:\test1.xls", _
         False
      End Function
						
```
Open the Debug window (or the Immediate window in version 2.0), type the following line, and then press ENTER:

?ImportTest()

Note that you receive the error mentioned in the "Symptoms" section.