PIECE OF CAKE - Criando Arquivo Texto Externo

#A&A #PIECEOFCAKE #POC #VBA

Criar arquivos texto externos a aplicação que trabalhamos é um recurso muito usado, especialmente quando queremos registrar algum log de acesso.

O código abaixo é muito funcional, quando passamos os dados que serão o conteúdo do arquivo.

Function CreateAfile(PathFileNameExt As String, nFrase As String)
    ' © 2007-20 Alefe & Bete Processamento de Dados LTDA - ME, except where noted, all rights reserved.
    '      Author: André Bernardes
    '     Contact: andreluizbernardess@gmail.com | https://goo.gl/EUMbSe/
    ' Description: Cria uma nova aba

    Dim fs, a
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(PathFileNameExt, True)

    a.WriteLine (nFrase)

    a.Close

End Function

Consulte-nos

⬛◼◾▪ Social Media ▪◾◼⬛

• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

• VBA Specialist® • VBA Excel Specialist®

• VBA Access Specialist® • VBA Dashboards Specialist®

• VBA Infografics Specialist® • VBA Pharma Specialist® 

⬛◼◾▪ CONTATO ▪◾◼⬛

brazilsalesforceeffectiveness@gmail.com