Varios otros consejos en otros números de ExcelTips tratan sobre la apertura, lectura, escritura, adición y cierre de archivos de texto desde una macro.

Otro comando asociado con los archivos de texto secuenciales es el comando Buscar. Si se usa en un archivo abierto, Seek coloca el puntero del archivo interno en un número de carácter específico en el archivo. El siguiente fragmento de código es un ejemplo de cómo se usa:

Open "DOSTEXT.DAT" for Input as #1 iFileLen = LOF(1)

Seek 1, iFileLen / 2

Estas líneas de programa utilizan la función LOF para determinar la longitud del archivo. La última línea coloca el puntero del archivo interno a la mitad del archivo. Toda lectura o escritura posterior del archivo se realizará desde esa posición.

También puede utilizar Buscar como función para determinar su posición actual dentro de un archivo de texto. Esto es lo que hace este código:

iCurPos = Seek(1)

Este comando deja el puntero del archivo interno donde estaba, pero establece iCurPos en un valor que representa cuántos caracteres tiene el puntero en el archivo. El valor de iCurPos es la posición en la que se llevarán a cabo todas las lecturas y escrituras posteriores del archivo.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2475) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Using_Seek_In_a_Macro [Usando Buscar en una macro].