Como eu crio uma Macro do Excel para enviar pares de chave / valor para o arquivo?

4

Eu tenho duas colunas como pares chave / valor e quero exportá-las para um arquivo na estrutura key = value (para criar um arquivo de propriedades).

Eu tentei este script:

Sub Properties()
Dim FileName As String, i As Integer, str As String

FileName = "C:\propstest.txt"

Open FileName For Output As #1

For i = 1 To 50
str = cells(i, 1) & "=" & cells(i, 2)
Write #1, str
Next i
Close #1

End Sub

Quase funciona, mas imprime no arquivo como

"key=value"

Existe uma maneira de se livrar das aspas no arquivo?

Obrigado.

    
por jmcmahon 22.10.2010 / 23:01

1 resposta

4

Usar o WriteLine em vez de Write deve se livrar das aspas.

    
por 22.10.2010 / 23:55