请教一下，我想在打开的Excel工作簿中根据条件查询，然后将结果所在的这几行显示在OLE中，工作簿中有好几个表。有办法实现吗？另外，求一份VB操作Excel的详细资料，谁有的话能不能发我一份呀？我邮箱894521642@，先谢啦~

可能你也看到了https://bbs.bccn.net/thread-455459-1-1.html有查找的例子，查找结果如果要显示在EXCEL文档中，那就直接建一张新worksheet再把查询结果写进单元格。资料我没有，有问题不是看MSDN就是看VB下的对象浏览器。

恩恩 看过了 我试了下 必须是先输入要查找的字符串再点击按钮打开文件 然后显示查到的内容  
我想的是有两个按钮 第一个是打开，第二个是查找
我在网上找不到相关的资料  只看了你的那段代码 还是不会改

如果要打开机器内的EXCEL文件,那就用DriveListBox、DirListBox和FileListBox这3个控件来找到需要的文件，再用
Set WB = EXAPP.Workbooks.Open("文件路径及文件名")来打开。

Option Explicit

Public xlApp As New Excel.Application
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet

Dim oBook As Object
Dim oSheet As Object

Dim myfilename As String

Private Sub Command1_Click()
    Dim dest As String
    Dim i As Integer
    Dim x As Integer
    Dim y As Integer
    Dim p As Excel.Range
    Dim firstaddress
    On Error GoTo Err_Handler

    OLE1.CreateEmbed vbNullString, "Excel.Sheet"
    Set oBook = OLE1.object
    Set oSheet = oBook.Sheets(1)

    dest = Text1.Text
    For i = 1 To xlBook.Worksheets.Count
    With xlSheet
    y = 1
    Do While .Cells(1, y).Value <> "" '以首行有数据为列有数据的判断
        x = 1
        Do While .Cells(x, 1) <> "" '列内判断
            If "dest" Like "*" & .Cells(x, y).Value & "*" Then
                .Rows(x).Copy
                'Set xlBook = xlApp.Workbooks.Open(myfilename) 
                oSheet.Paste Destination:=.Rows(x)
                Exit Do
            End If
            x = x + 1
        Loop
        y = y + 1
    Loop
    End With

 Next
    oBook.Application.Selection.AutoFormat
    Exit Sub
  'xlBook.Close
  'Set xlSheet = Nothing
  'Set xlBook = Nothing
  'Set xlApp = Nothing
Err_Handler:
   MsgBox "The file myfilename does not exist" & _
          " or cannot be opened.", vbCritical
End Sub

怎么粘了代码就没法写字啦  能不能帮我看下哪里有问题 没有资料 都自己瞎写的

自己觉得有什么问题?
看你五楼代码没有打开任何原有的EXCEL文件,而是新建了一个.