Como posso encontrar dados especificado em uma linha de excel utilizando vba do access
-
21-12-2019 - |
Pergunta
Eu estou tentando encontrar dados especificado em uma linha de excel.Como a partir da linha de intervalo A1:A1J, apenas uma célula está tendo "dados do Processo" .se eu descobrir que os dados em um determinado intervalo, eu preciso de pop-up a mensagem "Encontrado" Aqui é o meu código
Dim ExcelApp As New Excel.Application
Dim ExcelBook As New Excel.Workbook
Dim rng As Excel.Range
Dim rngDefine As Excel.Range
Set ExcelBook = ExcelApp.Workbooks.Open("C\temp\find.xlsm")
ExcelApp.Visible = False
'Define your own Range
Set rngDefine = ExcelBook.Worksheets("Datatab").Range("A1:AJ1")
'ExcelBook.Worksheets("Datatab").Range ("A1:AJ1")
Set c = .Find("Process", LookIn:=xlValues)
For Each rng In rngDefine
If c = "Process" Then
MsgBox "Found"
End If
Next
ExcelApp.Quit
Set ExcelApp = Nothing
Não trabalho.Qualquer furthur código devo adicionar?
Solução
Primeira abordagem (slighlty mais rápido):
Set rngDefine = ExcelBook.Worksheets("Datatab").Range("A1:AJ1")
If IsError(ExcelApp.Match("Process", rngDefine, 0)) Then
MsgBox "Not found"
Else
MsgBox "Found"
End If
Segunda abordagem:
Dim c As Excel.Range
Set rngDefine = ExcelBook.Worksheets("Datatab").Range("A1:AJ1")
Set c = rngDefine.Find(What:="Process", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If c Is Nothing Then
MsgBox "Not found"
Else
MsgBox "Found"
End If
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow