Access - Exportar 2 tablas en dos hojas de Excel con ADO

Buenos días, por favor, necesito otra vez de su ayuda
Lo que estoy tratado de hacer es exportar dos tablas (clientes y proveedores).

Tengo el siguiente código; pero solo me exporta la tabla clientes mas no sé cómo hacer para que también me exporte la tabla proveedores en el mismo código, además necesito también los nombres de los campos de tabla y este código no lo exporta.

Private Sub cmdExportar1_Click()
Dim rst As DAO.Recordset, _
strSQL As String, _
strLibro As String, _
xls As Object ' Excel.Application

' abro una instancia de Excel
On Error GoTo cmdExportar1_Click_TratamientoErrores

Set xls = CreateObject("Excel.Application")

' con ella abro el libro ExportaraExcel
strLibro = CurrentProject.Path & "\ExportaraExcel.xls"
xls.Workbooks.Open (strLibro)

' lo hago visible o no
xls.Visible = True ' o false

' activo la Hoja 1
xls.Worksheets("Hoja1").Activate

' construyo la cadena de la SELECT
strSQL = "SELECT *" _
& "FROM Clientes "

' abro el recordset
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

' si el recordset no está vacio
If Not RecordsetVacioDAO(rst) Then
' me posiciono en la celda en que depositaré los datos
xls.ActiveSheet.Range("A1").Select
' pego los datos (el recordset completo)
xls.ActiveCell.CopyFromRecordset rst
End If

' guardo los datos
xls.ActiveWorkbook.Save

' cierro excel
xls.Application.Quit
Set xls = Nothing

' cierro el recordset
CierraRecordsetDAO rst

cmdExportar1_Click_Salir:
On Error GoTo 0
Exit Sub

cmdExportar1_Click_TratamientoErrores:

MsgBox "Error " & Err.Number & " en proc. cmdExportar1_Click de Documento VBA Form_frmExportaraExcel (" & Err.Description & ")", vbOKOnly + vbCritical
GoTo cmdExportar1_Click_Salir

End Sub ' cmdExportar1_Click



Vi en una página que para agregar los nombres de campos utilizaban este código.
'copiar rótulos
lngCampos = recSet.Fields.Count
For i = 0 To lngCampos - 1
ActiveSheet.Cells(1, i + 1).Value = recSet.Fields(i).Name
Next

Gracias por su atencion

No entiendo ni una papa de ese codigo y creo que es mucho más facil utilizar una macro para exportar una tabla o una consulta.

Estimado 2pl, gracias por el interes.

Actualmete lo vengo haciendo con macro con una accion para exportar la tabla clientes y otra accion para exportar la tabla proveedores en un mismo archivo; pero me da un error 3434 para la accion importar exportar hoja de calculo, "no se puede expandir el intervalo con nombre."

me he dado cuenta que esto sucede toda vez que las hojas de destino de la exportacion estan con registros.

SALUDOS PERCI

DOS SOLUCIONES :

1 VAS A LA TABLA de access -- recuadro de la parte superior izquierda (para seleccionar todos los registros ) - boton derecho del raton ---COPIAR
VA A EXCELL -- CASILLA A1 Y PEGAR

2 EN EL EVENTO AL HACER CLIC DE UN BOTON O ETIQUETA PONES EL SIGUIENTO CODIGO : SOLO TIENES QUE CAMBIAR EL NOMBRE DE LA TABLA

Jose, gracias por tu apoyo..

De las dos opciones que me brindas la 1 está descartada.

Y la 2da opción básicamente hace lo mismo que el código que yo he puesto solo que crea un archivo Excel y lo muestra para que uno decida guardarlo.

Lo que necesito es que estas dos tablas (cliente proveedor) se descarguen al hacer clic en el botón sin necesidad de editar el nombre de las tablas en el código.

La exportación debe de darse en un archivo específico en las hojas client y proveed respectivamente del archivo Excel, ya que posteriormente tengo tablas dinámicas y gráficos que usaran esta información.

tienes que agragar la referencia Microsoft Excel n.n desde projectos->referencias