✔ Programação GLOBAL®: VBA Tips - Grave arquivo texto externo - write to external text file without quotes in VBA

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

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