Come posso trovare i dati specificati in una riga di Excel utilizzando Access VBA
-
21-12-2019 - |
Domanda
Sto cercando di trovare i dati specificati in una riga di Excel.Come da una serie di riga A1: A1J, solo una cella ha il "processo" dei dati.Se trovo che i dati in un determinato intervallo, ho bisogno di aprire il messaggio "trovato" qui è il mio codice
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
.
non funziona.Qualsiasi codice Forthur Ho bisogno di aggiungere?
Soluzione
Primo approccio (Slighlty più veloce):
Set rngDefine = ExcelBook.Worksheets("Datatab").Range("A1:AJ1")
If IsError(ExcelApp.Match("Process", rngDefine, 0)) Then
MsgBox "Not found"
Else
MsgBox "Found"
End If
.
Secondo approccio:
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
. Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow