Extraer todas las tablas de Access

El siguiente scrip lee todas las tablas de la base Access  C:\Neptuno.mdb y guarda los qvd en la carpeta C:\QVD

ODBC CONNECT TO [MS Access Database;DBQ=C:\Neptuno.mdb]; 

Tablas: LOAD*; SQLTABLES;
Lista:  LOAD TABLE_NAME resident  Tablas where TABLE_TYPE='TABLE'; 
 
for i = 0 to NoOfRows('Lista') - 1 
   LET nombretabla=Peek('TABLE_NAME',$(i),'Lista'); 
   '$(nombretabla)': SQL SELECT * FROM [$(nombretabla)];
   STORE '$(nombretabla)' into C:\QVD\$(nombretabla).qvd;
   DROP Table  '$(nombretabla)';
next 

NOTA: Para SQL ver referencia Nro.2

La base Neptuno.mdb de ejemplo puede descargarse aquí.

Referencia: 

1. http://community.qlik.com/thread/17896

2. http://qlikshare.com/448/