usuarios - trabajar simultaneamente en excel

Combine múltiples libros de trabajo de Excel en un solo libro de trabajo

Question

Soy un principiante en Visual Basic. Puedo usar Excel 2010 o Excel 2013 para esta tarea.

Tengo docenas de libros de trabajo con datos en la primera hoja de trabajo de cada uno. Por ejemplo, One.xlsx, Two.xlsx, Three.xlsx, Four.xlsx contienen información sobre sus respectivas Sheet1.

Necesito que la información en Sheet1 de cada libro de trabajo se combine en un solo libro de trabajo con hojas que se nombran desde el nombre de archivo del libro de trabajo original. Entonces, por ejemplo, combined.xlsx tendría 4 hojas llamadas One, Two, Three, Four. En todos los casos, toda la información en las hojas de trabajo subyacentes debe copiarse y combinarse en el nuevo Libro de trabajo como se muestra a continuación.

• El formato que necesito

Encontré este Macro / Add-In en línea que me acerca a lo que necesito usando los archivos abiertos para agregar en la opción.

http://www.excelbee.com/merge-excel-sheets-2010-2007-2013#close

El complemento de Open Files me permite agregar las hojas de trabajo del Workbook en un solo libro de trabajo. Sin embargo, las pestañas no se nombran a partir del nombre del archivo original.

• Correcta agregación de hojas, pero nombres incorrectos de la hoja de trabajo.

Por ahora, todos los libros de trabajo subyacentes estarán en la misma carpeta. La capacidad de examinar y seleccionar los archivos sería agradable si esto cambia alguna vez, pero si eso es demasiado difícil, simplemente indicaría que la ruta del directorio en el código de Visual Basic funcionaría. En cuanto a la salida combinada resultante probablemente debería ser un nuevo libro de trabajo, el nombre del archivo del nuevo libro de trabajo no es tan importante. Podría llamarse combined.xlsx, por ejemplo.

Answer 1

Lo siguiente lleva a cabo la tarea.

Option Explicit

Private Sub CommandButton1_Click()

Dim directory As String, fileName As String, sheet As Worksheet, total As Integer
Dim WrdArray() As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False

directory = "c:/test/"
fileName = Dir(directory & "*.xl??")

Do While fileName <> ""
    Workbooks.Open (directory & fileName)
        WrdArray() = Split(fileName, ".")
        For Each sheet In Workbooks(fileName).Worksheets
        Workbooks(fileName).ActiveSheet.Name = WrdArray(0)
            total = Workbooks("import-sheets.xlsm").Worksheets.Count
            Workbooks(fileName).Worksheets(sheet.Name).Copy after:=Workbooks("import-sheets.xlsm").Worksheets(total)

            GoTo exitFor:

        Next sheet

exitFor:
    Workbooks(fileName).Close
    fileName = Dir()
Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Answer 2

En Excel, presione Alt+F11 , esto abrirá el editor Excel VBA.

El artículo http://www.excel-spreadsheet.com/vba/debugging.htm explica algunos conceptos básicos de cómo usarlo.

En el Module1 hay 2 opensheets abreviadas de abreviaturas opensheets y una merge contiene ~ 50 líneas de código.

Use F1 con el cursor dentro de las palabras que no entiende, para saber lo que significa.

Una vez que comprenda lo que hace el código, puede adaptarlo a sus necesidades.