用OLE显示Excel问题 - 编程论坛

#2

lianyicq2015-07-23 09:18

回复楼主 luffy9202

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

#3

luffy92022015-07-23 09:54

回复 2楼 lianyicq

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

#4

lianyicq2015-07-23 10:00

回复 3楼 luffy9202

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

#5

luffy92022015-07-23 17:31

回复 4楼 lianyicq

程序代码：

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

#6

luffy92022015-07-23 17:34

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

#7

lianyicq2015-07-24 10:26

回复 6楼 luffy9202

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