Fiz um código para carregar um arquivo csv em um flexgrid...
Porém está dando um erro na parte do código em negrito.
Private Sub carregaGrid()
Dim strArquivo As String
Dim strTexto As String
Dim lngPosIni As Long
Dim lngPos As Long
Dim strCodigo As String
Dim strTelefone As String
Dim strDataCadastro As String
Dim strSituacao As String
Dim strDataVigor As String
Dim codigo As Long
codigo = 0
strArquivo = cmmCarregaArquivo.FileName
Open strArquivo For Input As #1
Line Input #1, strTexto
Dim lngLinha As Long
lngLinha = 1
While Not EOF(1)
lngPos = Empty
strCodigo = Empty
strTelefone = Empty
strDataCadastro = Empty
strSituacao = Empty
strDataVigor = Empty
lngPosIni = 1
If Trim(strTexto) <> Empty Then
If InStr(1, Trim(strTexto), "Arquivo Lista Gerado") <> 0 _
Or InStr(1, Trim(strTexto), "Bloqueio de Ligacoes Telefonicas") <> 0 _
Or InStr(1, Trim(strTexto), "Fundacao de Protecao e Defesa do Consumidor") <> 0 _
Or InStr(1, Trim(strTexto), "a partir de") <> 0 Then
Line Input #1, strTexto
'End If
Else
' MsgBox "VAI CARREGAR O ARQUIVO!!!"
With grdArquivo
codigo = codigo + 1
strTexto = Trim(strTexto)
strCodigo = codigo
.Row = lngLinha
.Col = 0
.Text = strCodigo
lngPos = InStr(lngPosIni, strTexto, ";")
strTelefone = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni)
.Col = 1
.Text = strTelefone
lngPosIni = lngPos + 1
lngPos = InStr(lngPos + 1, strTexto, ";")
strDataCadastro = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni)
.Col = 2
.Text = strDataCadastro
lngPosIni = lngPos + 1
lngPos = InStr(lngPos + 1, strTexto, ";")
strSituacao = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni)
.Col = 3
.Text = strSituacao
lngPosIni = lngPos + 1
lngPos = InStr(lngPos + 1, strTexto, ";")
[b] strDataVigor = Mid(strTexto, lngPosIni, (lngPos) - lngPosIni)[/b]
.Col = 4
.Text = strDataCadastro
.Rows = .Rows + 1
lngLinha = lngLinha + 1
End With
End If
End If
Line Input #1, strTexto
Wend
Close #1
End Sub
Pergunta
Alex Mauricio
Boa noite pessoal.
Gostaria de tirar uma dúvida...
Fiz um código para carregar um arquivo csv em um flexgrid...
Porém está dando um erro na parte do código em negrito.
run-time erro '5':
invalid procedure call or argument
O que pode ser?
Obrigado
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.