Ir para conteúdo
Fórum Script Brasil
  • 0

Carregar Arquivo CSV


Alex Mauricio

Pergunta

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.

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

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

Até agora não há respostas para essa pergunta

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...