Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Copiar nombres largos

Solución
Solucionado. Copio el código, por si a alguien le ayuda:

Código:
Option Explicit

Private Declare PtrSafe Function GetShortPathName Lib "kernel32.dll" Alias "GetShortPathNameA" (ByVal lpszShortPath As String, _
ByVal lpszLongPath As String, ByVal cchBuffer As Long) As Long

Dim RutaOrigenDef   As String
Dim RutaDestinoDef  As String
Dim Filtrar         As Boolean
Dim Carpeta         As String

Sub CopiarTodo()

    IniciarCopiarArchivosDocumentacion
   
    IniciarCopiarArchivosExcel
   
    IniciarCopiarArchivosJubilaciones
   
    IniciarCopiarArchivosIncapacidades
   
    IniciarCopiarArchivosVacaciones

End Sub

Sub IniciarCopiarArchivosDocumentacion()
       
    RutaOrigenDef = Hoja2.Range("B3").Value
   
    RutaDestinoDef =...
Volver
Arriba