Visual Basic - Contar Archivos De Excel

Life is soft - evento anual de software empresarial
   
Vista:

Contar Archivos De Excel

Publicado por Gabriel (30 intervenciones) el 06/05/2008 00:30:30
Ayuda como contar archivos de excel en un directorio de esta manera se cuantos hay en un directorio pero como contar unicamente los que tengan extension .XLS

Set ObjCarpeta = CreateObject("Scripting.FileSystemObject")
Set Carpeta = ObjCarpeta.GetFolder(App.Path)

'MsgBox "Archivos " & Carpeta.Files.Count
'MsgBox "SubCarpetas " & Carpeta.SubFolders.Count
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Contar Archivos De Excel

Publicado por Javier (44 intervenciones) el 10/05/2008 15:37:34
Una manera, lista = Listbox

Set ObjCarpeta = CreateObject("Scripting.FileSystemObject")
Set carpeta = ObjCarpeta.GetFolder(App.Path)
Set archivos = carpeta.Files
Extension = "xls"

For Each archivo In archivos
tempext = ObjCarpeta.GetExtensionName(App.Path & archivo.Name)
If Extension = tempext Then
Lista.AddItem archivo.Name
cont = cont + 1
End If

Next

Lista.AddItem ""
Lista.AddItem cont & " Archivos (." & Extension & ") de " & carpeta.Files.Count

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Contar Archivos De Excel

Publicado por Jose (1 intervención) el 16/09/2008 21:42:31
Gracias este codigo me ayudo mucho
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar