VSTO中获取ActiveBook遇到问题

qsclaw

制作了一个AddIn按钮控件，想实现功能非常简单，即当鼠标选中任意几行或几列数据，再点击按钮，程序输出数据的方差，获取当前ActiveBook我是这么写的(用的VB) Dim xlapp As Object, xlbok As Object, xlsht1 As Object
xlapp = GetObject(, "Excel.Application")  '取得Excel实例
xlbok = xlapp.ActiveWorkbook           '取得Excel实例下活动工作簿


其中遇到一个很棘手的问题
1、如果打开多个EXCEL时，代码无法识别目前鼠标停留在哪一个EXCEL，经常记录为第一个excel，后面即使关掉第一个excel，xlbok 仍不更新


2、如果一个excel 有多个sheet时，代码也无法识别鼠标具体停留在哪一个

网上看到的代码很多都是采取open具体路径的文件，读取具体哪一个sheet，像我这种问题，各位专家有好的办法没？

wxhnr

每次运行ADDIN按钮里的其它代码前先运行xlbok = xlapp.ActiveWorkbook

qsclaw

wxhnr 发表于 2014-2-13 12:35
每次运行ADDIN按钮里的其它代码前先运行xlbok = xlapp.ActiveWorkbook

不是这个意思，简单说来就是多点击几次button
xlapp = GetObject(, "Excel.Application")  '取得Excel实例
xlbok = xlapp.ActiveWorkbook ，里面xlbok 经常为nothing，无法获得表名称，不知道为何呀？高人指点下吧，已经卡在这了

qsclaw

具体为 执行xlapp = GetObject(, "excel.application") 后无法获取excel 相关信息，搞不懂啥原因
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button1.Click
        Dim xlapp, xlbook As Object
        Dim StrFlag, ErrFlag As Boolean
        Dim Arr(), YArr(), ii As Double, cnt As Long
        xlapp = GetObject(, "excel.application")
具体调试结果如下：

ytukids

楼主，你的问题解决没，我也遇到这个问题了！解决了告诉我一声