JAg har ett excelark som databas. Att skriva och läsa är inget problem, men jag undrar hur man kan göra en sökning. Te.x. efter strängen 12345 och få positionen returnerad (A4).

Använder
Set xlApp = CreateObject("Excel.Application")
för läs/skriv

Om ditt sheet heter Sheet1:

rngHittadRange = Sheet1.Find("Sträng"[, massa options])

Jag får det inte att fungera...
Här är koden och några tappra försök. Några förslag?

Dim xl As New Excel.Application

Private Sub Form_Load()
Dim tmp As Variant

xl.Workbooks.Open App.Path & "\TD.xls"
'Combo1.AddItem Excel.ActiveCell.Value
'tmp = xl.prislista.Find("888889", 1, 1, 19000, 1, False, False)
'tmp = xl.Workbook("prislista").Find("888889", 1, 1, 19000, 1, False, False)
tmp = xl.Workbook("prislista").Find("888889", 1, 1, 19000, 1, False, False)


End Sub

Du måste vara på ett sheet!

Jag skulle skriva något i stil med:

<code>
Private Sub Form_Load()
Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range

Set wb = xl.Workbooks.Open (App.Path & "\TD.xls")
Set ws = wb.Worksheets("Ditt sheetnamn")
Set rng = ws.Find("888889", 1, 1, 19000, 1, False, False)

Combo1.AddItem rng.Value

End Sub
</code>

Får felet
Metode or datamember not found

och den gnäller på Find
Har jag glömt någon referens eller komponent?

Ojsan... en Range ska den ha.

Testa att byta ut:

Set rng = ws.Find("888889", 1, 1, 19000, 1, False, False)

mot

Set rng = ws.Cells(1,1).Find("888889", 1, 1, 19000, 1, False, False)

Då blev det Type Mismatch på Set rng =.. raden.
Bytte till Cells(1000,10) för att få med den data jag vill hitta men samma fel.

Jag tror att Cells(1,1) är riktigt, men du kan prova med ordet Range istället för hela Cells(1,1).

Sen är jag lite tveksam till övriga parametrar; skriv hellre

wks.Range.Find("din sträng")

om du inte behöver dem.

Om inte det heller funkar kan du testa med att byta typen på rng till Variant, men det ska inte ge någon skillnad.