Views

Histats

Vitrine

VBA Tips - Grave arquivo texto externo - write to external text file without quotes in VBA


Você já precisou gravar os dados de um linha dentro de um arquivo texto?

Sim, isso pode ser necessário vez ou outra. Como posso exportar uma única linha, gravando-a num arquivo texto em qualquer uma das minhas aplicações VBA?

Segue:


' Grava os arquivos de Script base para um Batch.


SUB Process


    Dim Script_Fase01 As Variant


    Dim nPath_01 As Variant


    Dim nPath_01b As Variant



    Let nPath_01 = Form_frm_Parameter_001.cxPath_001.Value

    Let nFile_01 = Form_frm_Parameter_001.cxFile_001.Value

    Let nFile_01b = Form_frm_Parameter_001.cxFile_001b.Value



     ' Arquivos que evocarão os scripts.

     Let Script_Fase01 = ":r " & nPath_01 & nFile_01



     Call WriteFile (nPath_01 & nFile_01b, Script_Fase01)
END SUB


Function WriteFile (nFile As Variant, nFrase As Variant)

    '        Author: André Luiz Bernardes - Bernardess@gmail.com.

    '          Date: 09/04/2013 - 10:21.

    '   Application: 

    ' Functionality: Grava uma frase em um arquivo texto externo.

    

  Dim strList As String

  

  Open nFile For Output As #1

  

  Print #1, nFrase

  

  Close #1

End Function

Tags: VBA, Tips, File, export, quotes, output, Open, print, Close, text



✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias