Bom dia! Desculpe a demora em responder.
O código que estpu criando, só será utilizado uma única vez (eu espero), pois quero gerar um banco de dados, para manter histórico. Eu já faço esse "histórico" manualmente, usando a busca do windows
aliada com a busca manual de mais de 4 mil arquivos. Eu sei que está meio tosco, mas faz tempo que não programo!
Por favor, quem puder, me ajude!
A msg de erro é: "Erro em tempo de execução '91': A variável do objeto ou a variável do bloco 'with' não foi definida."
Abaixo segue o código:
Sub LeOS()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sSql As String
Dim sAux As String
Dim sValores As String
Dim i As Long
Dim l As Long
Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
Dim fso As New FileSystemObject
Dim pasta As Folder
Dim file As file
Dim vAux As Variant
sValores = ""
'Defini este vetor apenas com os campos que desejo pegar do arquivo
vAux = Split("os|data|codint|cc|nfent|itemnf|nfdev|nfsaida|datafat|solicitante|email|descrmaqeq|descricao|destino|desenho|detalhe|qtde|unidade|ps|prazoentrega|respromp|croqui1|croqui2|croqui3", "|")
Set pasta = fso.GetFolder("C:\TESTE")
'Conexão com o banco
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\teste\teste.mdb"
'Pega um a um os arquivos da pasta
For Each file In pasta.Files
If UCase(Right(file.Name, 3)) = "XLS" Then
Set xlw = xl.Workbooks.Open(file.Path)
'Percorre o vetor de campos para buscar apenas os valores desejados
For i = 0 To 23
'Trata o campo
sAux = PegaCampo(UCase(vAux(i)))
'Deveria fazer a busca de acordo com o valor da variável sAux. Mesmo se eu fizer sem a variável
'colocando apenas o valor string entre aspas, retorna o mesmo erro.
Cells.Find(What:=sAux, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
'Monta uma string para ser tratada mais para frente no código
sValores = sValores & "|" & Cells(ActiveCell.Row + 1, ActiveCell.Column).Value
Next
'tratamento da informação para ser inserida em um banco de dados.
'ainda não inseri aqui, pois não tive tempo nesses últimos dias.
End If
Next
xlw.Close
Set xl = Nothing
cnn.Close
End Sub
