VBA Tips - Gravando num arquivo texto externo - write to externa text file without quotes in VBA

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

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,