Visual Basic - Abrir los archivos de tipo excel de una carpeta y contarlos.

Life is soft - evento anual de software empresarial

Abrir los archivos de tipo excel de una carpeta y contarlos.

Publicado por Alvaro (19 intervenciones) el 29/05/2015 09:44:32

Muy buenas!

Estoy creando un programa que abra todos los archivos de tipo excel de una carpeta y tambien los cuente.
Si no es excel simplemente debe ignorarlo.
Estoy probando con un for each
For Each file As Excel.Application In My.Computer.FileSystem.GetFiles("\direccion")
''codigo
Next

Pero no me funciona.

¿Alguna sugerencia o ayuda?

Muchas gracias.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 3.117

Abrir los archivos de tipo excel de una carpeta y contarlos.

Publicado por Andres Leonardo (1798 intervenciones) el 29/05/2015 17:43:48

Intenta con este

Public fs As New FileSystemObject

Public temporal As Folder

Public Archivo As File

Sub ContarArchivosCarpeta()

On Error GoTo Eterror:

dim Nombre as string

Set temporal = fs.GetFolder(App.Path & "\XLS")     'o la ruta donde cesees

        C = 1

        For Each Archivo In temporal.Files

            Nombre = Archivo

           if archi.type = "Hoja de cálculo de Microsoft Excel 97-2003" then

            C = C + 1

           end if

        Next Archivo

    msgbox "Existen " & c & " Archivos de Excel en la carpeta"

Eterror:

    'MsgBox Err.Description

    XError = True

End Sub

Espero te ayude

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Abrir los archivos de tipo excel de una carpeta y contarlos.

Publicado por Khristtian (54 intervenciones) el 29/05/2015 17:52:22

Si en el PC a ejecutar tu codigo no esta instalada ninguna version de office.... ?

Funcionará esta linea ??

if archi.type = "Hoja de cálculo de Microsoft Excel 97-2003" then

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

Abrir los archivos de tipo excel de una carpeta y contarlos.

Publicado por Andres Leonardo (1798 intervenciones) el 29/05/2015 18:30:07

Pues habria que probar ya que esta usando scripting file ... otra cosa que podrias hacer es si no sacas el tipo...
ver la extencion si es xls o xlsx y contarlo .... en todo caso podrias probar pero el codigo funcionara sin problemas

Valora esta respuesta

Comentar

Abrir los archivos de tipo excel de una carpeta y contarlos.

Publicado por Khristian (54 intervenciones) el 29/05/2015 19:26:33

A eso queria llegar.

Debe contar basado en las extensiones de archivo.

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

Abrir los archivos de tipo excel de una carpeta y contarlos.

Publicado por Andres Leonardo (1798 intervenciones) el 29/05/2015 19:38:04

Podrias usar esta Linea asi pero recuerda que no solo excel es XLS

Esta XLS , XLSX, XLSM ... en fin ... espero te sirva.

if mid(archivo.Name, len(archivo.Name) - 3, 3) = "XLS" then

Archivo . name te da el nombre asi ---- NombreArchivo.ext

Saludos

Valora esta respuesta

Comentar

Abrir los archivos de tipo excel de una carpeta y contarlos.

Publicado por Khristian (54 intervenciones) el 29/05/2015 21:59:18

Y no todas las extensiones son de 3 caracteres.

Se deben utilizar las librerías correspondientes al manejo de archivo para extraer la extensión de un archivo.

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

Abrir los archivos de tipo excel de una carpeta y contarlos.

Publicado por Andres Leonardo (1798 intervenciones) el 29/05/2015 22:08:03

Khristian
Muy valida tu apreciacion la verdad yo tambien me lo planteaba de esa manera,
nos podrias indicar cual seria la libreria ?? por que con fs revise y ninguno me daba la ext

En todo caso con lo indicado podria avanzar si no es tan avanzado .. a veces lo perfecto es enemigo de lo bueno

Saludos

Valora esta respuesta

Comentar

Abrir los archivos de tipo excel de una carpeta y contarlos.

Publicado por Khristian (54 intervenciones) el 30/05/2015 01:16:40

Lo que no es perfecto. .. debe ser funcional.
puedes sacar rápido un código, pero no olvidemos detalles, como el de evaluar extensiones de 3 caracteres cuando no siempre son de 3.
yo hubiera determinado el largo del nombre del archivo, luego localizo la posición del punto, y de ahí extraigo los caracteres desde la posición del punto +1 hasta el largo de caracteres del nombre. Obviamente con excepciones para cuando un archivo no tiene extensión.

Respecto al código:

For Each foundFile As String In _

My.Computer.FileSystem.GetFiles("C:\TestDir")

    Dim check As String = _

    System.IO.Path.GetExtension(foundFile)

    MsgBox("The file extension is " & check)

Next

Saludos

Valora esta respuesta

Comentar

Abrir los archivos de tipo excel de una carpeta y contarlos.

Publicado por Facundo (58 intervenciones) el 02/06/2015 04:35:28

Primero: listá todas las extensiones asociadas a Excel (son un montón)
Segundo: en un form colocá
- drivelistbox
- dirlistbox
- filelistbox
- un label
Tercero (lo más dificil):
- escribí el codigo para que en el filelistbox aparezcan los archivos de la carpeta seleccionada en el dirlistbox

sub drive1_change

on error resume next 'por si elegís alguna unidad no disponible

dir1.path = drive1.drive

end sub

sub dir1_change ()

File1.Path = Dir1.Path

end sub

Cuarto (el truco):
en las propiedades del filelistbox buscá la que se llama PATTERN: es el "filtro" del filelistbox.
ahí ingresá las extensiones asociadas a Excel (o las que vos quieras), separadas por el caracter ";" (punto y coma)
ejemplo "*.txt;*.pdf" (escribílo sin las comillas)
Quinto (el gran final):
agregá en el sub dir_change () la siguiente línea:

Label1.Caption = "Cuenta de archivos: " + Str(File1.ListCount)

y mandale F5.

Valora esta respuesta

Comentar

ayuda porfavor

Modificar .txt en wincc