Excel VBA

[Pepepere]

Cómo es la instrucción para programar en Excel una macro en la que lea una línea concreta de un fichero de texto externo donde tengo unos ciertos datos?

Gracias.
Pepe

[3pies]

Hola Pepepere. Bienvenido a FdW.

Aquí tienes lo que pides:

Código:

Sub leer_determinada_linea_de_un_fichero()
'Creamos el objeto FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
'Abrimos el fichero
Set archivo = fso.OpenTextFile("C\Mis documentos\fichero_que_queremos_leer.txt", 1)
'Cargamos en una variable la línea que queremos leer.
'En el ejemplo, leemos la línea 3, para lo cual nos
'saltaremos las 2 primeras líneas del fichero.
For i = 1 To 2
   'saltamos 2 líneas
    archivo.Skipline
Next
'Leemos la línea
contenido = archivo.readline()
'Cerramos el fichero
archivo.Close
'Limpiamos todo
Set fso = Nothing
Set archivo = Nothing
'Escribimos la línea 3 en la celda A1
Range("A1") = contenido
End Sub

Salu2

[Pepepere]

Gracias.
¿Y qué pasa si quiero leer una linea en cada ciclo "for"? Valdría algo asi como:

archivo.readline(i) ?


o una linea concreta? Valdría algo asi como:

archivo.readline(2793) ?

Pepe.

[3pies]

Pues creo que no te funcionará.

Tienes que saltar líneas como necesites, hasta llegar a la que desees leer.

[cinunezb]

Holabuen a 3pies, muy aporte pocas veces he visto en foros una respuesta tan clara y concisa....

[vbaexcel]

gracias me ha sido util






http://www.vbaexcel.com/

[Jorge Leon]

Hola amigos de LWP, tengo un formulario con varios textbox y en su evento KeyPress les pongo vbUpperCase para que me conviertan todo lo que escribo a mayúsculas..... pero son muchos textbox y aunque estoy copiando y pegando, es demasiado el código...... mi pregunta es si puedo realizar esto a todos los textbox en un solo Sub... algo parecido a los rangos?????? de antemano muchas gracias su amigo Jorge

[JoaoM]

Iniciado por 3pies

Hola Pepepere. Bienvenido a FdW.

Código PHP:

  Set archivo = fso.OpenTextFile("C\Mis documentos\fichero_que_queremos_leer.txt", 1) 
   

Solo hice cambio de ruta y nombre y me presenta el error #76 en tiempo de ejecucion

Dice que no encuentra la ruta de aceso y el archivo está en dicha ruta

Código PHP:

  Set archivo = fso.OpenTextFile("C\0\Formulas.txt", 1) 
   

En mi caso debe llevar los : a seguir al C
Probado en W7 y XP con Office 2010 y 2003 y funcionando

Código PHP:

  Set archivo = fso.OpenTextFile("C:\0\Formulas.txt", 1) 
   

[Johnnatanfigueroa]

tengo esta macro pero se tarda mucho tiempo en ejecutar hay alguna manera mas paralela de hacerlo, lo que hace es verificar sie l valor de cada celda en un rango es igual a cero y si es verdadero oculta esa fila completa

Sub plan_p5()
Dim a As Variant
For Each a In Range("c768:c839")
If a.Value = 0 Then
a.EntireRow.Hidden = True
Else
a.EntireRow.Hidden = False
End If
Next
End Sub

[JoaoM]

Coloca al inicio de la macro
Application.ScreenUpdating = False
y al final

Application.ScreenUpdating = True

Quedaria así

Sub plan_p5()
Application.ScreenUpdating = False
Dim a As Variant
For Each a In Range("c768:c839")
If a.Value = 0 Then
a.EntireRow.Hidden = True
Else
a.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
End Sub

Prueba

[mrocf]

Hola! Johnnatan.
Quizá notes que la siguiente variante es "rapidita":

Código PHP:

  Sub plan_p5()
Dim i As Long, Vec, C As Range
Application.ScreenUpdating = False
With Range("c768:c839")
  .Rows.Hidden = False
  Vec = Evaluate("IF(" & .Address & " = 0, ROW(" & .Address & "))")
  On Error Resume Next
  i = WorksheetFunction.Small(Vec, 1)
  If i = 0 Then Exit Sub
  Set C = Cells(i, .Column)
  For i = 2 To .Count
    Set C = Union(C, Cells(WorksheetFunction.Small(Vec, i), .Column))
    If Err.Number > 0 Then Exit For
  Next i
  Err.Clear
End With
C.Rows.Hidden = True
Application.ScreenUpdating = True
End Sub 
   

Saludos, Cacho R.

Iniciado por Johnnatanfigueroa

tengo esta macro pero se tarda mucho tiempo en ejecutar hay alguna manera mas paralela de hacerlo, lo que hace es verificar sie l valor de cada celda en un rango es igual a cero y si es verdadero oculta esa fila completa

Código PHP:

  Sub plan_p5()
Dim a As Variant
For Each a In Range("c768:c839")
   If a.Value = 0 Then
      a.EntireRow.Hidden = True
   Else
      a.EntireRow.Hidden = False
   End If
Next
End Sub