ejemplo de código de archivo de texto de escritura vba

Ejemplo 1: Excel vba escribe una cadena en un archivo de texto

'VBA function to write string to text file:

Function SaveStringAsTextFile$(s$, fName$)
    Const adSaveCreateOverWrite = 2
    With CreateObject("ADODB.Stream")
        .Charset = "utf-8"
        .Open
        .WriteText s
        .SaveToFile fName, adSaveCreateOverWrite
    End With
End Function

Ejemplo 2: archivo de texto de escritura vba

Open ThisWorkbook.Path & "log.txt" For Append As #1
Write #1, "Here is my text."
Write #1, "Another line."
Close #1

---

---

Utiliza Nuestro Buscador