关于获取系统中所有EXCEL对象的方法

[脆皮大雪糕]

目前想实现一个功能，就是获取系统中所有已经打开的excel中的内容。

与此相同的一个目标是获取系统中所有已经打开的word对象中的内容。我的做法是：

     
    Dim WordObj As Word.Application
    Set WordObj = Word.Application
    For i = 1 To WordObj.Documents.Count
        Debug.Print WordObj.Documents(i).Name
    Next

这已经能够获得系统中所有的已经打开的WORD文档，但使用相同的方法折腾excel.Application 却是创建了一个新的excel对象。郁闷了，office的application针对word和excel是不同的？！

请问有什么方式能够获取到系统中所有已经打开的excel对象

[LWMWORK]

好像xlApp.Workbooks.Count并不计数已经打开的excel文件，只对新建的文件或新建后又打开的文件计数。
从Excel VB.chm中看count属性应用于下列集合中，没找到想要的

AddIns 集合对象


Adjustments 对象


AllowEditRanges 集合


Areas 集合


Axes 集合对象


Borders 集合


CalculatedFields 集合对象


CalculatedItems 集合对象


CalculatedMembers 集合


Characters 对象


ChartGroups 集合


ChartObjects 集合对象


Charts 集合


Comments 集合对象


CubeFields 集合对象


CustomProperties 集合


CustomViews 集合对象


DataLabels 集合对象


DiagramNodeChildren 集合


DiagramNodes 集合


Dialogs 集合对象


Filters 集合对象


FormatConditions 集合对象


GroupShapes 集合对象


HPageBreaks 集合对象


Hyperlinks 集合


LegendEntries 集合对象


Names 集合对象


ODBCErrors 集合对象


OLEDBErrors 集合对象


OLEObjects 集合对象


Panes 集合对象


Parameters 集合对象


Phonetics 集合对象


PivotCaches 集合对象


PivotFields 集合对象


PivotFormulas 集合对象


PivotItemList 集合


PivotItems 集合对象


PivotTables 集合对象


Points 集合对象


PublishObjects 集合对象


QueryTables 集合对象


Range 集合


RecentFiles 集合对象


Scenarios 集合对象


SeriesCollection 集合对象


ShapeNodes 集合对象


ShapeRange 集合


Shapes 集合


Sheets 集合对象


SmartTagActions 集合


SmartTagRecognizers 集合


SmartTags 集合


Styles 集合


Trendlines 集合对象


UsedObjects 集合


UserAccessList 集合


VPageBreaks 集合对象


Watches 集合


Windows 集合对象


Workbooks 集合


Worksheets 集合




Adjustments 对象


AllowEditRanges 集合


Areas 集合


Axes 集合对象


Borders 集合


CalculatedFields 集合对象


CalculatedItems 集合对象


CalculatedMembers 集合


Characters 对象


ChartGroups 集合


ChartObjects 集合对象


Charts 集合


Comments 集合对象


CubeFields 集合对象


CustomProperties 集合


CustomViews 集合对象


DataLabels 集合对象


DiagramNodeChildren 集合


DiagramNodes 集合


Dialogs 集合对象


Filters 集合对象


FormatConditions 集合对象


GroupShapes 集合对象


HPageBreaks 集合对象


Hyperlinks 集合


LegendEntries 集合对象


Names 集合对象


ODBCErrors 集合对象


OLEDBErrors 集合对象


OLEObjects 集合对象


Panes 集合对象


Parameters 集合对象


Phonetics 集合对象


PivotCaches 集合对象


PivotFields 集合对象


PivotFormulas 集合对象


PivotItemList 集合


PivotItems 集合对象


PivotTables 集合对象


Points 集合对象


PublishObjects 集合对象


QueryTables 集合对象


Range 集合


RecentFiles 集合对象


Scenarios 集合对象


SeriesCollection 集合对象


ShapeNodes 集合对象


ShapeRange 集合


Shapes 集合


Sheets 集合对象


SmartTagActions 集合


SmartTagRecognizers 集合


SmartTags 集合


Styles 集合


Trendlines 集合对象


UsedObjects 集合


UserAccessList 集合


VPageBreaks 集合对象


Watches 集合


Windows 集合对象


Workbooks 集合


Worksheets 集合

[LWMWORK]

粘多了

[东方之珠]

不知道 Workbooks 集合 能否枚举到所有的，没试过。帮顶！

[goosen]

关注

[白发程序猿]

用API去得到进程，不知是否可实现

[goosen]

判断每个打开的工作薄,,再判断每个工作薄里有几个工作表..再得到表名 不知可行否

[Tiger_Zhao]

Private Sub Command1_Click()
    Dim xlApp As Excel.Application
    Dim i As Long
    
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    On Error GoTo 0
    If xlApp Is Nothing Then
        MsgBox "没有打开 Excel", vbInformation
        Exit Sub
    End If
    
    For i = 1 To xlApp.Workbooks.Count
        Debug.Print xlApp.Workbooks(i).Name
    Next

    Set xlApp = Nothing
End Sub

[东方之珠]

用API枚举，打开的Excel工作表标题均含有“Microsoft Excel - ****.xls”的格式：
http://www.qqgb.com/program/vb/vbjq/program_175471.html

[神马都能聊]

其实老鸟的代码是可用的,但是却存在问题.

因为默认的Excel打开后,并不像word一样,在对象运行表中注册,你可以先Shell "C:\Program Files\Microsoft Office\Office11\Excel.EXE", vbMinimizedFocus 这样就会在运行表注册Excel.application对象.

然后
For i = 1 To xlApp.Workbooks.Count
Debug.Print xlApp.Workbooks(i).Name
Next

[白发程序猿]

Word和Excel确实是不同的
Excel是以WorkBook的形式存在
你打开多个Excel文件，实际上只用到一个Excel Application
当然如果是用New的形式在代码中打开
就有可能有多个Excel Application
要看打开的Excel文件数，还需要枚举WorkBook

[神马都能聊]

[Quote=引用 5 楼 ling242a 的回复:]
你打开多个Excel文件，实际上只用到一个Excel Application
[/Quote]
似乎版本不同,这个是不一样的.

[脆皮大雪糕]

楼上几位没看明白我的意思
Set ExcelObj = Excel.Application
的时候实际上已经创建了一个新的application对象
和Set ExcelObj = New Excel.Application 的效果是一样的。对于一个新建的appication对象WorkBooks怎么着都是空的

Set WordObj = Word.Application
和
Set WordObj = new Word.Application
的效果却是不同的，前者能够得到所有的document，貌似word的appication是系统全局的。

现在我就想得到系统中所有的workbook 不知道大家有没有什么方法

[脆皮大雪糕]

弟兄们加把劲啊，300分不够再加，呵呵

[脆皮大雪糕]

老鸟的方法验证通过，感谢AisaC的建议。同时感谢所有参与的人

[woshi200969]

看看那

[budingqhh]

我也遇到同样问题，学习