1
Inicio Microsoft Office Excel y escriba " 1 " en " A1 ". Tipo " 2 " en " A2 ", " 3 " en " A3" y " 4 " en " A4 ".
2
Seleccione la pestaña "" y haga clic en " Programador de Visual Basic " . Haga clic en " Microsoft Excel Objetos " y seleccione " Insertar " y luego haga clic en " módulos".
Type " saveDataArray Sub Private ()" para crear un subprograma y presionar " Enter".
Página 3
Escriba lo siguiente para declarar las variables :
txtFileNum Dim As Integer Dim
dataArray ( 5 ) As String
xLoop Dim As Integer
Página 4
Escriba lo siguiente para crear un nuevo archivo de texto :
Abrir "C: \\ MyTextFile.txt " para Append Como # txtFileNum
Reemplazar " C: \\ myTextFile . . txt "con el nombre de archivo de su elección
5
Escriba lo siguiente para recorrer los datos en Excel y guárdelo en su conjunto :
para xLoop = 1 a 4
Range (" A" y xLoop ) . Seleccione
dataArray ( xLoop ) = Range (" A" y xLoop ) . Valor
Siguiente xLoop
Página 6
Escriba lo siguiente para recorrer la matriz y guardar los datos en el archivo de texto:
para xLoop = 1 a 4
Print # txtFileNum , dataArray ( xLoop )
Siguiente xLoop
7
Escriba el siguiente para cerrar el archivo de texto :
Close # txtFileNum
Press "F5 " para ejecutar la subrutina .