Copiar tablas a otro libro con los nombre de encabezado completos

[Juan Suarez]

Buenas,

Estoy copiando tablas a otro libro y no logro copiar los encabezados, si copia correctamente el mismo nombre que también me interesa

Uso un buscador para que puedan elegir la ubicación del nuevo libro que se crea,  el nombre del nuevo libro   es "Salvo" y lo pueden cambiar por código

Aguardo ayuda

Saludos

Adjunto

  

CopioTablas.xlsb

[Abraham Valencia]

Hola

Esta parte:

Sheets(nombre).Range(Tabla.Name).Copy

Cámbiala por esta:

Hoja.Tabla.Range.Copy

Tienes algunos errores de concepto al usar el For Each. 

Saludos

[Juan Suarez]

 

Hola Abraham, gracias por la respuesta

Me da este error, con tu sugerencia  No se encontró el método o dato miembro 

De alguna manera tengo error en el for next y con los libros se genera conflicto

Tienes alguna sugerencia o te funciona  correctamente en tu maquina?

Saludos

[Antoni]

Así funciona:

Public Sub CreoArchivo()
Dim fd As Object
Dim Ruta As String
Dim Tabla As ListObject
Dim Hoja As Worksheet
'--
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    With fd
        .Title = "Seleccione una carpeta para guardar archivo"
        .AllowMultiSelect = False
        .ButtonName = "Guardar"
        .InitialFileName = ""
        If .Show = True Then
            Ruta = .SelectedItems(1)
            'MsgBox (Archivo)
            Application.EnableCancelKey = xlErrorHandler
        End If
    End With

'Nombre a guardar
NombreLibro = "Salvo"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'--
Workbooks.Add
For Each Hoja In ThisWorkbook.Sheets
   For Each Tabla In Hoja.ListObjects
      Tabla.Range.Copy
      ActiveSheet.Paste
      Sheets.Add after:=ActiveSheet
   Next
Next
'--
With ActiveWorkbook
    .SaveAs Filename:=Ruta & "\" & CStr(NombreLibro), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    .Close
End With
'--
Application.ScreenUpdating = False
Application.DisplayAlerts = True
End Sub

 

[Juan Suarez]

Estimado Antoni, muchas gracias por la solución, no tenia claro el libro activo y libro de trabajo 

Es mas eficiente y rápido el código sin los   . Activate  , vi un comentario tuyo  en otro tema y comentas que no hay que hacer abuso de estos, que me podes aclarar al respecto?, este comentario sin compromiso para no abusar de su tiempo. 

Abraham también gracias por la participación

Saludos a ambos