PROBLEMA COM TXT

MARCELOFAZAN 03/08/2010 21:35:55
#349333
Pessoal estou com problema nessa linha

Open strFileName For Input As #1


estou importando TXTs com esse codigo só que esse comando nao está importando
alguem pode me ajudar ?



[ô]Set banco = Nothing
[ô]
[ô]ReDim lista(N) As Variant
[ô]i = 0
[ô]
[ô]Set area = DBEngine.CreateWorkspace([Ô]NewWorkspace[Ô], [Ô]Admin[Ô], [Ô][Ô])
[ô]Set banco = area.OpenDatabase(App.Path & [Ô]\busca1.mdb[Ô])
[ô]ssql = [Ô]select * from buscar[Ô]
[ô]Set tabela = banco.OpenRecordset(ssql, dbOpenSnapshot)
[ô]
[ô] Do Until tabela.EOF
[ô]
[ô] i = i + 1
[ô] lista(i) = tabela([Ô]cod_fox[Ô])
[ô] tabela.MoveNext
[ô] Loop
[ô] tabela.Close
[ô]
[ô] For i = 1 To N
[ô] Dim x As String
[ô]
[ô] If x = [Ô]00000[Ô] Then
[ô]
[ô] Else
[ô]
[ô] x = lista(i)
[ô] x = lista(i)
[ô] x = lista(i) & [Ô].txt[Ô]
[ô]
[ô] Dim strFileName As String
[ô]
[ô] strFileName = App.Path & [Ô]\TXT\[Ô] & x
[ô]
[ô] Open strFileName For Input As #1
[ô]
[ô] Dim intCod, strPagamento, strPagam, linha, linha2, linha3 As String
[ô] Dim p_virgula, u_aspas, s_virgula, t_virgula As Integer
[ô]
[ô] Do Until EOF(1)
[ô] linha = strFileName
[ô]
[ô] Line Input #1, linha
[ô] p_virgula = InStr(linha, [Ô],[Ô])
[ô] linha2 = Mid(linha, p_virgula + 1)
[ô] s_virgula = InStr(linha2, [Ô],[Ô])
[ô] linha3 = Mid(linha2, s_virgula + 1)
[ô] t_virgula = InStr(linha3, [Ô],[Ô])
[ô]
[ô]
[ô] intCod = LTrim(Mid(linha, 2, p_virgula - 3))
[ô] strPagamento = LTrim(Mid(linha2, 2, s_virgula - 3))
[ô] strPagam = LTrim(Mid(linha3, 2, t_virgula - 3))
[ô]
[ô] Sql = [Ô]UPDATE buscar SET[Ô]
[ô] Sql = Sql & [Ô] pagamento=[ô][Ô] & strPagamento & [Ô][ô],[Ô]
[ô] Sql = Sql & [Ô] pagam=[ô][Ô] & strPagam & [Ô][ô][Ô]
[ô] Sql = Sql & [Ô] Where cod_fox = [ô][Ô] & intCod & [Ô][ô][Ô]
[ô] cn.Execute Sql
[ô]
[ô] Loop
[ô] Close #1
[ô] cn.Close
[ô]
[ô] txtArquivo.Text = App.Path & [Ô]\TXT\[Ô] & txtArquivo.Text
[ô] Kill txtArquivo.Text
[ô]
[ô] MsgBox [Ô]Transferência concluida com sucesso[Ô], vbExclamation
[ô] txtArquivo.Text = [Ô][Ô]
[ô]End If
[ô]Next i
[ô]
[ô]Set area = Nothing
[ô]Set banco = Nothing



Obrigado
Abs
Marcelo Fazan
XXXANGELSXXX 03/08/2010 23:40:36
#349341
Tente adaptar ai.. ok

  
Private Sub btnInadimplentes_Click()
    If txtAnexo.Text = Empty Then
        MsgBox [Ô]Selecione o Arquivo para Importação![Ô], vbCritical, [Ô]Tech Size[Ô]
        Call ProcurarArquivo
        Exit Sub
    Else

        Dim Coluna() As String
        Dim F As Long, sLine As String
        Dim DB As Database, RS As Recordset
        caminho = ReadINI([Ô]Geral[Ô], [Ô]Caminho[Ô], App.Path & [Ô]\Config.ini[Ô])
        F = FreeFile
        Open txtAnexo.Text For Input As F
        Set DB = DBEngine(0).OpenDatabase(caminho)
        Set RS = DB.OpenRecordset([Ô]AuxCliInadimplentes[Ô], dbOpenTable)
        Do While Not EOF(F)
            Line Input #F, sLine
            Coluna = Split(sLine, [Ô];[Ô])
            RS.AddNew
            RS(0) = Coluna(1)
            RS(1) = Coluna(7)
            RS(2) = Coluna(8)
            RS(3) = Coluna(9)
            RS(4) = Coluna(10)
            RS(5) = Coluna(11)
            RS(6) = Coluna(12)
            RS.Update
        Loop
        RS.Close
        DB.Close
       Close #F
        MsgBox [Ô]Arquivo Importado com Sucesso !! [Ô], vbInformation, [Ô]Tech Size[Ô]
    End If

End Sub
MARCELOFAZAN 04/08/2010 00:05:29
#349343
quero importar varios txt no Load ou no Comand do login sem precisar escrever o nome do TXT

Abs
Marcelo Fazan
MARCELOFAZAN 04/08/2010 00:11:33
#349344
Voce quer dizer que o meu erro nessa linha Open strFileName For Input As #1
consiguirei adaptar conforme essa parte do seu codigo ? para parar o meu Erro ?

Dim F As Long, sLine As String
F = FreeFile
Open txtAnexo.Text For Input As F

Obrigado , Abs
Marcelo Fazan




Tópico encerrado , respostas não são mais permitidas
Voltar