Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

9 de abril de 2013

VBA Tips - Gravando num arquivo texto externo - write to externa 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, 



Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine