Pessoal estou tendo problemas com a acentuação das palavras quando leio o arquivo .csv um exemplo disso são as palavras:
CONCLUÍDO = CONCLUÃDO
Orientação Técnica = Orientação Técnica
A macro utilizada para fazer a importação esta abaixo se alguém puder me ajudar desde já agradeço.
Sub telefonemovel()
Dim Linha As String
Dim rs As DAO.Recordset
Dim Matriz() As String
Dim fDialog As Office.FileDialog
Dim x As Variant
'Dimensiona o objeto
Dim Fd As Object
'Define a caixa de diálogo como seleção de pasta(s)
Set Fd = Application.FileDialog(1)
'Define as propriedades da caixa de diálogo
With Fd
'Título da caixa de diálogo
.Title = "Selecione o local onde se encontra o arquivo..."
.Filters.Clear
.Filters.Add "Access Projects", "*.csv"
'Caso este método retorne Verdadeiro significa que o usuário selecionou uma pasta
If .Show Then
'Retorna o caminho da pasta para a função
SelecionarPasta = .SelectedItems(1)
Else
MsgBox "Clique em 'OK' para abortar a importação."
End If
End With
'Finaliza o objeto
Set Fd = Nothing
F = FreeFile
Set rs = CurrentDb.OpenRecordset("PAINELOP")
Open SelecionarPasta For Input As #F
Line Input #F, Linha ' Pula a 1ª linha
Line Input #F, Linha ' Pula a 2ª linha
Line Input #F, Linha ' Pula a 3ª linha
Line Input #F, Linha ' Pula a 4ª linha
cont = 4
Do While Not EOF(F) ' Começa a importação a partir da 5ª linha
Line Input #F, Linha
Debug.Print Linha
If Linha = "" Then
Else
Matriz() = Split(Linha, ",")
etexto = Trim(Matriz(0))
If IsNumeric(etexto) Then
x = Len(Trim(Matriz(0)))
If x = 8 Then
rs.AddNew
rs!x1 = Matriz(0)
rs!x2 = Matriz(1)
rs!x3 = Matriz(2)
rs!x4 = Matriz(3)
rs!x5 = Matriz(4)
rs!x6 = Matriz(5)
rs.Update
End If
End If
End If
Loop
Close #F
rs.Close
MsgBox "Arquivo Importado com Sucesso!", vbInformation, "Importação de arquivo txt"
End Sub
CONCLUÍDO = CONCLUÃDO
Orientação Técnica = Orientação Técnica
A macro utilizada para fazer a importação esta abaixo se alguém puder me ajudar desde já agradeço.
Sub telefonemovel()
Dim Linha As String
Dim rs As DAO.Recordset
Dim Matriz() As String
Dim fDialog As Office.FileDialog
Dim x As Variant
'Dimensiona o objeto
Dim Fd As Object
'Define a caixa de diálogo como seleção de pasta(s)
Set Fd = Application.FileDialog(1)
'Define as propriedades da caixa de diálogo
With Fd
'Título da caixa de diálogo
.Title = "Selecione o local onde se encontra o arquivo..."
.Filters.Clear
.Filters.Add "Access Projects", "*.csv"
'Caso este método retorne Verdadeiro significa que o usuário selecionou uma pasta
If .Show Then
'Retorna o caminho da pasta para a função
SelecionarPasta = .SelectedItems(1)
Else
MsgBox "Clique em 'OK' para abortar a importação."
End If
End With
'Finaliza o objeto
Set Fd = Nothing
F = FreeFile
Set rs = CurrentDb.OpenRecordset("PAINELOP")
Open SelecionarPasta For Input As #F
Line Input #F, Linha ' Pula a 1ª linha
Line Input #F, Linha ' Pula a 2ª linha
Line Input #F, Linha ' Pula a 3ª linha
Line Input #F, Linha ' Pula a 4ª linha
cont = 4
Do While Not EOF(F) ' Começa a importação a partir da 5ª linha
Line Input #F, Linha
Debug.Print Linha
If Linha = "" Then
Else
Matriz() = Split(Linha, ",")
etexto = Trim(Matriz(0))
If IsNumeric(etexto) Then
x = Len(Trim(Matriz(0)))
If x = 8 Then
rs.AddNew
rs!x1 = Matriz(0)
rs!x2 = Matriz(1)
rs!x3 = Matriz(2)
rs!x4 = Matriz(3)
rs!x5 = Matriz(4)
rs!x6 = Matriz(5)
rs.Update
End If
End If
End If
Loop
Close #F
rs.Close
MsgBox "Arquivo Importado com Sucesso!", vbInformation, "Importação de arquivo txt"
End Sub