Cómo leer una línea de texto delimitado por tabuladores en VBA

Ser capaz de leer una línea de texto delimitado por tabulaciones utilizando Visual Basic para aplicaciones y analizar cada una de las palabras puede hacer que su aplicación VBA más dinámico. A menudo, los programadores necesitan para leer archivos delimitados por tabuladores y mostrar el contenido de esos archivos. En VBA , use el método " OpenTextFile " para abrir un archivo de texto que contiene los datos delimitados por tabuladores . Buscar en cada línea de las pestañas utilizando el " vbTab " constante VBA. Este proceso es útil cuando se necesita para encontrar rápidamente las pestañas en una cadena en lugar de leer cada carácter de la cadena . Cosas que necesitará
Microsoft Excel
Mostrar más instrucciones
1

clic en el botón Inicio y escriba " Bloc de notas " en el "Buscar programas y archivos" caja de texto. Pulse el botón " Enter" para iniciar el Bloc de notas . Escriba "Esto", " Tab ", pulse Tipo "es ", " Tab ", prensa de tipo "A ", " Tab ", pulse " tab ", escribe " Tab ", pulse " delimitado" tipo de prensa " Tab " y tipo ", sentencia. " Pulse la tecla "Ctrl " y " S " para guardar el archivo en "C : \\. MyTextFile.txt "
2

lanzamiento Microsoft Excel , haga clic en la pestaña " desarrolladores" y haga clic en "Visual Basic " para iniciar la ventana del editor de VB . Haga clic en el menú " Insertar" y haga clic en " módulos" para añadir un nuevo módulo de código . Haga clic en el menú " Herramientas" y haga clic en "Referencias ". Marque la casilla junto a " Microsoft Scripting Runtime" y haga clic en
3

Escriba lo siguiente para crear un nuevo procedimiento sub " Aceptar". :

ReadTabDelimited Sub Private ()
4

Agregue el código siguiente para declarar sus variables:

oFSo Dim As New FileSystemObject

Dim oFS

Dim sText As String

Dim tmpArray ( 10 ) As String

Dim pos As Integer

Xcntr Dim As Integer
5

abrir y leer el archivo de texto creado en el Paso 1 :

Set oFS = oFSO.OpenTextFile ("C: \\ MyTextFile.txt " )

¿ Hasta oFS.AtEndOfStream

sText = oFS.ReadLine
< p> Loop
6

Halla cada pestaña en la frase delimitado por tabuladores y añadir a cada palabra de la matriz de cadenas :

pos = InStr ( 1 , sText , vbTab , vbTextCompare )

Do While (pos < > 0 )

tmpArray ( Xcntr ) = Izquierda ( sText , pos - 1) spanish

sText = Right ( sText , Len ( sText ) - pos)

pos = InStr ( 1 , sText , vbTab , vbTextCompare )

Xcntr = Xcntr + 1

If ( pos = 0 ) entonces

tmpArray ( Xcntr ) = sText

End If

Loop
7

Muestra cada palabra a través de la ventana inmediata de la matriz de cadenas :

Xcntr = 0

Do While ( tmpArray ( Xcntr ) < > "" )

Debug.Print tmpArray ( Xcntr )

Xcntr = Xcntr + 1
< p> Loop
8

Fin del procedimiento escribiendo "End Sub ", como la última línea de código VBA. Pulse la tecla "Ctrl " y "G " para abrir la ventana " inmediata " y presione "F5 " para ejecutar el procedimiento .