Início
elsouza 23/8/2016, 16:58Boa tarde!
Necessito criar um JOB que ao executar o banco eu importe todos os TXTs que estão em uma determinada pasta, para uma tabela no meu banco de dados.
Peguei uma solução pesquisando aqui no Grupo e fiz as alterações necessárias.
No momento de executar está dando a mensagem "a variavel do objeto ou a variavel do bloco with não foi definida"
Poderiam me dar um help? Estou enviando o código abaixo:
------------------------------------------------------------------------------------------------------------------
Option Compare Database
'requer referencia Microsoft Scripting Runtime (ativei)
Dim fso As FileSystemObject
Dim fld As folder
Function IMPORTAR_BASE_TOTAL(PastaImportar)
Dim sFol As String, sFile As String, _
nDirs As Long, nFiles As Long
Dim tFld As folder, tFil As File, FileName As String
On Error GoTo IMPORTAR_BASE_TOTAL_Err
sFol = "C:\Users\elianasouza\Documents\Projeto_Leitura\BUNGE\OK\"
sFile = "*.txt"
Set fld = fso.GetFolder(sFol)
FileName = Dir(fso.BuildPath(fld.Path, sFile), vbNormal Or _
vbHidden Or vbSystem Or vbReadOnly)
If Len(FileName) > 0 Then
While Len(FileName) <> 0
nFiles = nFiles + 1
MsgBox fso.BuildPath(fld.Path, FileName) 'msg ficheiro, depois pode-se retirar
DoCmd.TransferText acImportFixed, "Maquinas_TXT", "MaquinasTXT", fso.BuildPath(fld.Path, FileName), False, ""
FileName = Dir() ' Get next file
DoEvents
Wend
MsgBox ("Processados " & nFiles & " ficheiro(s).")
Else
'Call LocalizaArquivos
Exit Function
End If
IMPORTAR_BASE_TOTAL_Exit:
Exit Function
IMPORTAR_BASE_TOTAL_Err:
MsgBox Error$
Resume IMPORTAR_BASE_TOTAL_Exit
End Function
No código que peguei não tinha nada referente a "LocalizaArquivos" que está chamando acima, por isso comentei a linha.
Agradeço se puderem me dar um help.
Eliana Souza
Necessito criar um JOB que ao executar o banco eu importe todos os TXTs que estão em uma determinada pasta, para uma tabela no meu banco de dados.
Peguei uma solução pesquisando aqui no Grupo e fiz as alterações necessárias.
No momento de executar está dando a mensagem "a variavel do objeto ou a variavel do bloco with não foi definida"
Poderiam me dar um help? Estou enviando o código abaixo:
------------------------------------------------------------------------------------------------------------------
Option Compare Database
'requer referencia Microsoft Scripting Runtime (ativei)
Dim fso As FileSystemObject
Dim fld As folder
Function IMPORTAR_BASE_TOTAL(PastaImportar)
Dim sFol As String, sFile As String, _
nDirs As Long, nFiles As Long
Dim tFld As folder, tFil As File, FileName As String
On Error GoTo IMPORTAR_BASE_TOTAL_Err
sFol = "C:\Users\elianasouza\Documents\Projeto_Leitura\BUNGE\OK\"
sFile = "*.txt"
Set fld = fso.GetFolder(sFol)
FileName = Dir(fso.BuildPath(fld.Path, sFile), vbNormal Or _
vbHidden Or vbSystem Or vbReadOnly)
If Len(FileName) > 0 Then
While Len(FileName) <> 0
nFiles = nFiles + 1
MsgBox fso.BuildPath(fld.Path, FileName) 'msg ficheiro, depois pode-se retirar
DoCmd.TransferText acImportFixed, "Maquinas_TXT", "MaquinasTXT", fso.BuildPath(fld.Path, FileName), False, ""
FileName = Dir() ' Get next file
DoEvents
Wend
MsgBox ("Processados " & nFiles & " ficheiro(s).")
Else
'Call LocalizaArquivos
Exit Function
End If
IMPORTAR_BASE_TOTAL_Exit:
Exit Function
IMPORTAR_BASE_TOTAL_Err:
MsgBox Error$
Resume IMPORTAR_BASE_TOTAL_Exit
End Function
No código que peguei não tinha nada referente a "LocalizaArquivos" que está chamando acima, por isso comentei a linha.
Agradeço se puderem me dar um help.
Eliana Souza
Importar_TXT.docx