Excel to VB

[Muppet2009]

Hi all,

What I am trying to do is search an excel document and bring back all results that matches my search critera.

On a VB form I have a text box and a flexgrid.

I want it to search for the text within my text box, and when it finds a match bring it into my flexgrid. (There maybe more than one result).

I am using VB6 and have managed to coble together this code so far, but it just does not seem to work:

Dim xlObject As Excel.Application
Dim xlWB As Excel.Workbook
Set xlObject = New Excel.Application
Set xlWB = xlObject.Workbooks.Open("D:\test.xls")
Clipboard.Clear
With xlObject.ActiveWorkbook.ActiveSheet
'.Range("A:A:k:k").

.Cells.Find(What:=txtDate.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

End With

End Sub

If anyone has any ideas please let me know as i am a bit stumped.

Thanks

[gibra]

You can use Find in other way. See below code:

With xlObject.Application.Range("A1:F9")
    Set c = .Find(What:=txtDate.Text, LookIn:=xlValues,_
               SearchOrder:=xlByRows, SearchDirection:=xlNext)
    For Each c In [A1:F9]
        If c.Value = txtDate.Text Then
            Debug.Print c.Address & " : " & c.Value
        End If
    Next
End With