|
|
|
|
 |
Título da Dica: Trocar dados com o Excel
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Sub Importa(strArquivo As String)
'Número do arq
Dim lngArquivo As Long
'Dados da 1º coluna
Dim strUm As String
'Dados da 2º coluna
Dim strDois As String
'Dados da 3º coluna
Dim strTres As String
'Usada na substituição do ponto
Dim strDecimal As Variant
Range("A1").Select
lngArquivo = FreeFile
Open strArquivo For Input As lngArquivo
Do While Not EOF(lngArquivo)
Input #lngArquivo, strUm, strDois, strTres
ActiveCell.Value = strUm
ActiveCell.Offset(0, 1).Activate
'Obtem o ponto
strDecimal = InStr(1, strDois, ".")
If strDecimal <> 0 Then
'Se houver valor de retorno
'Substitui o ponto por vírgula
Mid(strDois, strDecimal, 1) = ","
'Converte para moeda
ActiveCell.Value = CCur(strDois)
Else 'Senão
'Não altera a string
ActiveCell.Value = strDois
End If
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = strTres
If ActiveCell.Column = 3 Then
'Se coluna atual = 3(C)
'Muda de linha
ActiveCell.Offset(rowOffset:=1, _
columnOffset:=-2).Activat
End If
Loop
Close lngArquivo
ThisWorkbook.SaveAs "c:\SeuArquivo.xls"
End Sub
Você pode usar a rotina dentro de um loop passando como parâmetro o nome do arquivo texto a ser aberto.
|
|
|
|
|
