............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Resumen de varios libros en uno solo

Ver el tema anterior Ver el tema siguiente Ir abajo

Resumen de varios libros en uno solo

Mensaje por nuganda el Vie Nov 27, 2009 4:42 pm

Hola
De todos los empleados de la empresa (unos 1500) que tenemos en un libro excel por cada uno de ellos (sudni.xls) ubicados en diferentes subcarpetas (segun en la unidad que trabaje), donde anotamos los diferentes permisos que disfruta a lo largo del año, queremos extraer una serie de datos en otro libro excel (resumen.xls).
Los datos son:
DNI en AK1, vacaciones en AL17, moscosos en AJ17 (estos dos ultimos es una formula: es la suma estos dos permisos durante todo el año).

Y lo queremos pasar a Resumen.xls respectivamente en las columnas A, B y C.

Código:
Sub resumir()
  Dim strarchivo$
  resumen = "C:\Documents and Settings\Administrador\Mis documentos\resumen.xls"
  Application.ScreenUpdating = False
  ruta = "C:\Documents and Settings\Administrador\Mis documentos\unidad 2807\"
 
  strarchivo$ = Dir(ruta & "*.xls")

  Do While strarchivo$ <> ""
      Workbooks.Open ruta & strarchivo$
     
      moscoso = Worksheets("2009").Range("AJ17").Value
      vacaciones = Worksheets("2009").Range("AL17").Value
      dni = Worksheets("2009").Range("AK1").Value
   
      ActiveWorkbook.Close savechanges:=False

      Windows("resumen v2").Activate
        Range("A65536").End(xlUp).Offset(1, 0).Select
        ActiveCell.Offset(0, 0).Value = dni
        ActiveCell.Offset(0, 1).Value = vacaciones
        ActiveCell.Offset(0, 2).Value = moscoso
        ActiveCell.Offset(1, 0).Select
 
      strarchivo$ = Dir()
  Loop

  ' ActiveWorkbook savechanges:=True
  Application.ScreenUpdating = True
End Sub

Tras diversas pruebas, ya lo consigo, pero ¿Y como hacer para que me deje escoger la carpeta a procesar?
Saludos

nuganda

Masculino Cantidad de envíos : 15
Edad : 53
Ciudad - Pais : Madrid
Fecha de inscripción : 22/10/2008

Volver arriba Ir abajo

Selector de Carpeta - FileDialog

Mensaje por GalileoGali el Sáb Nov 28, 2009 10:01 am

Este selector abre en C:\windows, ADAPTALO
Código:
Option Explicit

Sub test()
Dim fd As FileDialog
Dim strRuta As String

Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.Filters.Clear
.AllowMultiSelect = False
.InitialFileName = "C:\WINDOWS\"
.Show

Err.Clear
On Error Resume Next
strRuta = .SelectedItems(1)
On Error GoTo 0
If Err.Number <> 0 Then
MsgBox "No ha selecccionado ninguna carpeta"
Exit Sub
End If
MsgBox strRuta
End With

End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Resumen de varios libros en uno solo

Mensaje por nuganda el Sáb Nov 28, 2009 1:08 pm

Solucionado
un saludo

nuganda

Masculino Cantidad de envíos : 15
Edad : 53
Ciudad - Pais : Madrid
Fecha de inscripción : 22/10/2008

Volver arriba Ir abajo

Re: Resumen de varios libros en uno solo

Mensaje por Contenido patrocinado Hoy a las 12:40 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.