¿Cómo puedo encontrar datos especificados en una fila de Excel usando Access VBA
-
21-12-2019 - |
Pregunta
Estoy tratando de encontrar datos especificados en una fila de Excel.Como desde la gama de filas A1: A1J, solo una celda está teniendo datos de datos ".Si encuentro datos en un rango dado, necesito abrir el mensaje "Encontrado" aquí es mi 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
no funciona.¿Algún código de FURTHUR necesito agregar?
Solución
Primer enfoque (Slighlty Faster):
Set rngDefine = ExcelBook.Worksheets("Datatab").Range("A1:AJ1")
If IsError(ExcelApp.Match("Process", rngDefine, 0)) Then
MsgBox "Not found"
Else
MsgBox "Found"
End If
segundo enfoque:
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 bajo: CC-BY-SA con atribución
No afiliado a StackOverflow