[VB.NET] Cercare valore all'interno di celle Excel

[kleiko]

Ciao, ho un problema da risolvere e chiedo aiuto a voi
dato questo codice:

Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click
Dim codselect As String
codselect = art_List.Text
Dim gest As String
Dim cod As String


' richiamo i dati dal file excel


Dim excel As Microsoft.Office.Interop.Excel.Application
Dim wb As Microsoft.Office.Interop.Excel.Workbook
Dim ws As Microsoft.Office.Interop.Excel.Worksheet
excel = New Microsoft.Office.Interop.Excel.Application
cod = (codinput.Text)

wb = excel.Workbooks.Open("C:\....\articoli.xls")
excel.Visible = False
wb.Activate()

************ qui sto impazzendo *************

excel.Workbooks.Close()
excel.Quit()

End Sub

e questo file excel

A B
1 1234 Scarpe
2 8888 Guanti
3 4444 Cappelli

In pratica ho una textbox dove inserisco il codice e alla pressione del button ok vorrei che il programma mi cercasse il codice inserito all'interno delle celle della colonna A e assegni ad una variabile string il valore della riga e della cella B, ovvero se inserisco 8888 nel textbox e premo ok ho bisogno che nella variabile risultato sia inserito "guanti". Inoltre avrei bisogno che se il codice inserito non esiste all'interno del file excel mi si apra una msgbox "con scritto codice inesistente" e non errore del programma.
Finche si tratta di lettura e scrittura su foglio excel riesco bene, ma la ricerca e l'assegnazione del valore di una cella precisa ho grossi problemi. Mi poteta iutare è ore che provo, ma senza risultato

[gibra]

Guarda sulla guida a VBA di Excel la funzione CERCA

[Ibiza81]

Ciao Kleiko,
ecco questo codice semplice semplice che fa di sicuro al caso tuo!!!

Andrea

Dim xlsCurrentFind As Excel.Range

xlsCurrentFind = xlsRange.Find("testo da ricercare", , _
                        Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _
                        Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlPrevious, False)
If Not xlsCurrentFind Is Nothing Then
      ' testo trovato alla riga xlsCurrentFind.Row
     riga = xlsCurrentFind.Row
else
     ' testo ricercato non trovato
endif

[kleiko]

Grazie Ibiza81, ma non funziona

Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click
Dim codselect As String
codselect = art_List.Text
Dim gest As String
Dim cod As String


' richiamo i dati dal file excel


Dim excel As Microsoft.Office.Interop.Excel.Application
Dim wb As Microsoft.Office.Interop.Excel.Workbook
Dim ws As Microsoft.Office.Interop.Excel.Worksheet
excel = New Microsoft.Office.Interop.Excel.Application
cod = (codinput.Text)

wb = excel.Workbooks.Open("C:\....\articoli.xls")
excel.Visible = False
wb.Activate()

Dim xlsCurrentFind As Microsoft.Office.Interop.Excel.Range
Dim xlsrange As New Microsoft.Office.Interop.Excel.Application
Dim riga As String

xlsCurrentFind = xlsRange.Find(cod, , _
Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _
Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlPrevious, False)
If Not xlsCurrentFind Is Nothing Then
' testo trovato alla riga xlsCurrentFind.Row
riga = xlsCurrentFind.Row
else
' testo ricercato non trovato
endif


excel.Workbooks.Close()
excel.Quit()

Questo è l'errore:
Eccezione non gestita di tipo 'System.MissingMemberException' in Microsoft.VisualBasic.dll

Informazioni aggiuntive: Impossibile trovare il membro pubblico 'XlFindLookIn' nel tipo 'ApplicationClass'.


avete idee?
Grazie Ciao

[oregon]

Quale versione di Excel usi?

[kleiko]

2007

[kleiko]

RISOLTO!!!!!!!

Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click
Dim codselect As String
codselect = art_List.Text
Dim gest As String
Dim cod As String


' richiamo i dati dal file excel


Dim excel As Microsoft.Office.Interop.Excel.Application
Dim wb As Microsoft.Office.Interop.Excel.Workbook
Dim ws As Microsoft.Office.Interop.Excel.Worksheet
excel = New Microsoft.Office.Interop.Excel.Application
cod = (codinput.Text)

wb = excel.Workbooks.Open("C:\....\articoli.xls")
excel.Visible = False
wb.Activate()

'************ qui stavo impazzendo *************

ws = wb.Worksheets("foglioarticoli")

For Each find In ws.Cells.Range("A1:A1000")
If CStr(find.Value) = codeselect Then
y = find.column + 1
x = find.row
articolo = (ws.Cells(x, y).value) 'dichiarata pubblica

End If
Next

excel.Workbooks.Close()
excel.Quit()

End Sub