Tabla de contenido
Escribir descripción
Escribe datos en un archivo secuencial.
Escribir sintaxis
1 | Escribir #FileNumber, [OutputList] |
La instrucción Write contiene 2 argumentos:
Número de expediente: Cualquier número de archivo válido.
Lista de salida: Opcional. Una o más expresiones numéricas delimitadas por comas o expresiones de cadena para escribir en un archivo.
Ejemplos de función de escritura de Excel VBA
Primer nombre | Apellido | La edad | Género |
Robert | Stepp | 20 | Masculino |
Jennifer | Mariscal | 33 | Mujer |
David | Romig | 35 | Masculino |
Carmelo | Ingram | 26 | Mujer |
Para generar Rango ("A2: D5") en una hoja como la imagen de arriba en un archivo, puede usar el siguiente código.
12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (strFile como cadena, rng como rango)Atenuar fila como rango, celda como rangoDim FileNumber como enteroFileNumber = FreeFileAbra strFile para la salida como #FileNumberPara cada fila en filas de filasPara cada celda de la fila.Si cell.Column = row.Cells.Count EntoncesEscriba #FileNumber, celdaDemásEscriba #FileNumber, celda,Terminara siSiguiente celdaFila siguienteCerrar #FileNumberEnd SubSub Write_Example ()Dim strFolder como cadenaDim strFile como cadenaDim dlgFolder como FileDialogAtenuar como rangoEstablecer dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Si dlgFolder.Show = True EntoncesstrFolder = dlgFolder.SelectedItems (1)DemásSalir de SubTerminara siEstablecer rng = Rango ("A1: D5")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngEnd Sub |
La salida al archivo "Write_Output.txt":
12345 | "Nombre", "Apellido", "Edad", "Sexo""Robert", "Stepp", "20", "Hombre""Jennifer", "Mariscal", "33", "Mujer""David", "Romig", "35", "Hombre""Carmel", "Ingram", "26", "Mujer" |