Ver Mensaje Individual
  #2 (permalink)  
Antiguo 05/07/2012, 14:10
Avatar de mrocf
mrocf
 
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 15 años, 4 meses
Puntos: 88
De acuerdo Respuesta: Obtener datos de varias hojas excel

Hola! pixelmaniac. Podrías utilizar lo siguiente:

Código PHP:
Sub Colectar_Info()
'-------------------
By Cacho Rodríguez
-------------------
Dim myBook$, myWsh As WorksheetshDatos As WorksheetAs Long

myBook 
Dir(ThisWorkbook.Path "\*.xls")
If 
myBook "" Then
  MsgBox 
"Sin libros de extensión xls en" vbLf _
    
"la carpeta " ThisWorkbook.Path "."
  
Exit Sub
End 
If

Set shDatos Workbooks.Add(xlWBATWorksheet).ActiveSheet
shDatos
.[a1:d1] = Array("Libro -> hoja""Nombre empresa""CIF""Ingresos")
1
Application
.ScreenUpdating False
Application
.AutomationSecurity msoAutomationSecurityForceDisable

Do
  If 
myBook <> ThisWorkbook.Name And Right(myBook3) = "xls" Then
    Workbooks
.Open ThisWorkbook.Path "\" & myBook, , True
    For Each myWsh In ActiveWorkbook.Sheets
      i = 1 + i
      shDatos.Cells(i, "
a").Resize(, 4) = _
        Array(ActiveWorkbook.Name & " 
-> " & myWsh.Name, myWsh.[a1], myWsh.[b5], myWsh.[c4])
    Next
    ActiveWorkbook.Close False
  End If

  myBook = Dir
Loop Until myBook = ""

Application.AutomationSecurity = msoAutomationSecurityLow
Application.ScreenUpdating = True
End Sub 
¿Te sirve la idea?...
Saludos, Cacho R.