Visual Basic - Proyecto en Visual Basic 5

' Dim Directorio, NombreLibro As String

Dim Directorio As String

Dim ContadorFicheros As String

Dim Unidos As Workbook

Dim K, NumHojas As Integer

Dim Libro As Workbook

Private Sub Command1_Click()

Directorio = ThisWorkbook.Path

ContadorFicheros = Dir$(Directorio + "\*.*")

'Crea el libro que contendrá a todos los demás

Application.SheetsInNewWorkbook = 1

Set Unidos = Application.Workbooks.Add

Do While ContadorFicheros <> "" And UCase(ContadorFicheros) <> "UNIR.XLS"

    Workbooks.Open filename:=Directorio & "\" & ContadorFicheros

    Set Libro = Workbooks(ContadorFicheros)

    NumHojas = Libro.Worksheets.Count

    For K = 1 To NumHojas

        Libro.Worksheets(K).Copy after:=Unidos.Worksheets(Unidos.Worksheets.Count)

'       NombreLibro = Replace(Libro.Name, ".xls", "")

'       Unidos.Worksheets(Unidos.Worksheets.Count).Name = NombreLibro & "_" & Libro.Worksheets(K).Name

        Unidos.Worksheets(Unidos.Worksheets.Count).Name = Libro.Worksheets(K).Name

    Next K

    Workbooks(ContadorFicheros).Close

    ContadorFicheros = Dir$

Loop

Unidos.Worksheets(2).Select

With Unidos

    .SaveAs filename:=Directorio & "\" & "unidos.xls"

    .Close

End With

End Sub

Directorio = App.Path