Como usar Fileappend filewrite EmReadscreen

Hola experto
Estoy programando una macro en excel, pero no conozco como funcionan estas funciones me las puedes explicar
Fileappend
Filewrite
Emreadscreen
Gracias y espero su respuesta

1 Respuesta

Respuesta
1
Disculpe la tardanza en responder.
No tengo información referente a esos comandos pero si tengo una posible solución.
Para FILEAPPEND puede utilizar APPEND, y para FILEWRITE puede utilizar WRITE. En el caso de ENREADSCREEN lamentablemente no conozco algún equivalente.
Los comandos estrellas que se necesitan para poder aplicar esto, correctamente, es OPEN y CLOSE.
APPEND no es un comando, es una opción del comando Open que define la forma como se va a tratar el archivo que se piensa abrir. En este caso se abrirá para adicionar lineas de texto al final del archivo.
WRITE si es un comando y su funcion es escribir en el archivo que se piensa abrir. Tambien puede usar el comando PRINT.
Le dejo un código de ejemplo para que lo revise:
Private Sub cmdAppend_Click()
    Dim intFileHandle As Integer
    Dim myStr As String
    myStr = "Celda A1 " & Range("A1").Value
    intFileHandle = FreeFile
    Open "Prueba.txt" For Append As #intFileHandle
    Print #intFileHandle, myStr
    Close #intFileHandle
End Sub
Private Sub cmdWrite_Click()
    Dim intFileHandle As Integer
    Dim myStr As String
    myStr = "Celda A1 " & Range("A1").Value
    intFileHandle = FreeFile
    Open "Prueba.txt" For Output As #intFileHandle
    Write #intFileHandle, myStr   ' Delimita con comas los datos introducidos.
    Write #intFileHandle,    ' Coloca una línea en blanco.
    Dim MiBool, MiFecha, MiNull, MiError
    ' Se establecen valores Boolean, Date, Null y Error.
    MiBool = False: MiFecha = #2/12/1969#: MiNull = Null
    MiError = CVErr(32767)
    ' Los datos booleanos se escriben como #TRUE# o #FALSE#. ' Los literales de fecha se escriben en el formato de
    ' fecha universal, por ejemplo,#13-07-1994# representa
    '13 de julio de 1994. Los datos nulos se escriben como #NULL#.
    ' Los datos de error se escriben como #ERROR código_error#.
    Write #intFileHandle, MiBool; "es un valor booleano"
    Write #intFileHandle, MiFecha; "es una fecha"
    Write #intFileHandle, MiNull; "es un valor nulo"
    Write #intFileHandle, MiError; "es un valor de error"
    Close #intFileHandle    ' Cierra el archivo.
End Sub
Saludos
http://formulas-en-excel.blogspot.com/

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas