Simplificar el cidogo de una macro realizada con el grabador de macros

[Stackado]

Hola,

El problema quedo resuelto, solo tenia que hacer referencia al libro de trabajo completo y no solo dejar la carpeta.

El código de la macro seria de la siguiente forma.

Código vb:

Sub Macro_exportación()
' Macro_exportación Macro
' Para la tabla clientes.
 With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;CollatingSequence=ASCII;DBQ=" & ThisWorkbook.Path & "\EMBARQUES_SAE;" _
        ), Array( _
        "DefaultDir=" & ThisWorkbook.Path & "\EMBARQUES_SAE;Deleted=0" _
        ), Array( _
        ";Driver={Driver do Microsoft dBase (*.dbf)};DriverId=277;FIL=dBase IV;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0" _
        ), Array("Statistics=0;Threads=3;UID=admin;UserCommitSync=Yes;")), _
        Destination:=Range("$A$2")).QueryTable
        .CommandText = "SELECT clientes.NUM, clientes.NOMB, clientes.CP, clientes.RFC FROM clientes clientes ORDER BY clientes.NUM, clientes.NOMB, clientes.RFC"
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Tabla_Consulta_desde_tabla_clientes"
        .Refresh BackgroundQuery:=False
End With
End Sub
 

Donde:

Código vb:

DBQ=" & ThisWorkbook.Path & "\EMBARQUES_SAE;
DefaultDir=" & ThisWorkbook.Path & "\EMBARQUES_SAE
 

Es donde hacemos referencia desde donde esta el archivo principal de Excel..

Quiero agradezer tanto su ayuda como su paciencia a los que me ofrecieron sus respuestas, la verdad programando soy muy malo y nunca había programado en macros así que no entendía tanto las sintaxis como las limitaciones y propiedades de los archivos, sin ustedes no lo hubiera logrado.

Saludos.