Olá a todos, possuo um código em VBA que funciona da seguinte maneira.
Eu faço uma seleção no excel e clico em um botão para executar o código VBA. Quando o código é executado, ele pega toda minha seleção e copia ela dentro de um arquivo TXT.
Basicamente, eu escolho na planilha o que eu desejo enviar para um arquivo .txt e o código faz isso aplicando algumas configurações.
Porém os numero tanto na planilha quanto no arquivo criado estão usando VÍRGULA e eu gostaria que fossem usados PONTOS. Por exemplo:
10,2596 ou 10,33369 ou 561,221 -> errado
10.2596 ou 10.33369 ou 561.221 -> certo
É possível aplicar isso direito ao código?
Desde já agradeço a todos.
Segue abaixo o código:
Sub CommandButton1_Click()
Dim myFile As String, cellValue As String
Dim rng As Range
Dim i As Integer, j As Integer
myFile = Application.GetSaveAsFilename(InitialFileName:=vbNullString, FileFilter:="Text Files (*.data),*.data")
Set rng = Selection
Open myFile For Output As #1
For i = 1 To rng.Rows.Count
For j = 1 To rng.Columns.Count
If j = 1 Then
cellValue = rng.Cells(i, j).Value
Else
cellValue = cellValue & ";" & rng.Cells(i, j).Value
End If
Next j
Print #1, cellValue
Next i
Close #1
End Sub
Postado : 16/05/2016 8:16 am