| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 598 人关注过本帖
标题:用OLE显示Excel问题
只看楼主 加入收藏
luffy9202
Rank: 1
等 级:新手上路
帖 子:10
专家分:7
注 册:2015-5-6
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:6 
用OLE显示Excel问题
请教一下,我想在打开的Excel工作簿中根据条件查询,然后将结果所在的这几行显示在OLE中,工作簿中有好几个表。有办法实现吗?另外,求一份VB操作Excel的详细资料,谁有的话能不能发我一份呀?我邮箱894521642@,先谢啦~
搜索更多相关主题的帖子: 详细资料 Excel 
2015-07-22 19:33
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:20 
回复 楼主 luffy9202
可能你也看到了https://bbs.bccn.net/thread-455459-1-1.html有查找的例子,查找结果如果要显示在EXCEL文档中,那就直接建一张新worksheet再把查询结果写进单元格。资料我没有,有问题不是看MSDN就是看VB下的对象浏览器。

大开眼界
2015-07-23 09:18
luffy9202
Rank: 1
等 级:新手上路
帖 子:10
专家分:7
注 册:2015-5-6
收藏
得分:0 
回复 2楼 lianyicq
恩恩 看过了 我试了下 必须是先输入要查找的字符串再点击按钮打开文件 然后显示查到的内容  
我想的是有两个按钮 第一个是打开,第二个是查找
我在网上找不到相关的资料  只看了你的那段代码 还是不会改
2015-07-23 09:54
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
回复 3楼 luffy9202
如果要打开机器内的EXCEL文件,那就用DriveListBox、DirListBox和FileListBox这3个控件来找到需要的文件,再用
Set WB = EXAPP.Workbooks.Open("文件路径及文件名")来打开。


大开眼界
2015-07-23 10:00
luffy9202
Rank: 1
等 级:新手上路
帖 子:10
专家分:7
注 册:2015-5-6
收藏
得分:0 
回复 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
2015-07-23 17:31
luffy9202
Rank: 1
等 级:新手上路
帖 子:10
专家分:7
注 册:2015-5-6
收藏
得分:0 
怎么粘了代码就没法写字啦  能不能帮我看下哪里有问题 没有资料 都自己瞎写的
2015-07-23 17:34
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
回复 6楼 luffy9202
自己觉得有什么问题?
看你五楼代码没有打开任何原有的EXCEL文件,而是新建了一个.

大开眼界
2015-07-24 10:26
快速回复:用OLE显示Excel问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017293 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved