Rx_
Nothing In Moderation
- Local time
- Today, 06:41
- Joined
- Oct 22, 2009
- Messages
- 2,803
For Access 2003 / 2007 see:
http://www.access-programmers.co.uk/forums/showthread.php?t=197604
For Access 2012 - Saved Export Saved Imports
Edit? Don't think there is a way.
However, I needed to figure out what a temp contractor had done.
This provided the information to delete and replace with the same steps & some modifications. Basically, run the script, delete the old Saved Import and recreate (with modification) it with the same name.
Below is an example of the code run in the Immediate window (debug) and the results in Access 2012.
http://www.access-programmers.co.uk/forums/showthread.php?t=197604
For Access 2012 - Saved Export Saved Imports
Edit? Don't think there is a way.
However, I needed to figure out what a temp contractor had done.
This provided the information to delete and replace with the same steps & some modifications. Basically, run the script, delete the old Saved Import and recreate (with modification) it with the same name.
Below is an example of the code run in the Immediate window (debug) and the results in Access 2012.
Code:
? access.CurrentProject.ImportExportSpecifications.count
1
? access.CurrentProject.ImportExportSpecifications(0 ).name
Import-CCS Data
? access.CurrentProject.ImportExportSpecifications(0 ).description
Changed extenstion
? access.CurrentProject.ImportExportSpecifications(0 ).xml
<?xml version="1.0"?>
<ImportExportSpecification Path="X:\Accounting\Materials Accounting\Propane\CCS File for Import into Access\CCS Data.xlsx" xmlns="urn:www.microsoft.com/office/access/imexspec">
<ImportExcel FirstRowHasNames="true" Destination="TEST" Range="Sheet2$">
<Columns PrimaryKey="{Auto}">
<Column Name="Col1" FieldName="GL Posting Date" Indexed="NO" SkipColumn="false" DataType="DateTime"/>
<Column Name="Col2" FieldName="SOP Number" Indexed="NO" SkipColumn="false" DataType="Text"/>
<Column Name="Col3" FieldName="Item Description" Indexed="NO" SkipColumn="false" DataType="Text"/>
<Column Name="Col4" FieldName="QTY" Indexed="NO" SkipColumn="false" DataType="Double"/>
</Columns>
</ImportExcel>
</ImportExportSpecification>