【求问】提取vba编辑器里的光标位置

xdwy81129 · 发表于 2011-9-13 15:26

所谓光标不知道表示清楚没有，就是vba编辑器里面，如果打字，该字就显示的位置

希望提取如下
A1单元格是该光标所在的模块名称
B1单元格是该光标所在的过程名称
C1单元格是该光标所在的行数

xdwy81129 · 发表于 2011-9-14 02:49

顶顶

liuguansky · 发表于 2011-9-14 09:35

Application.VBE.SelectedVBComponent.Name
获取模块名。
Application.VBE.CodePanes(1).GetSelection
获取行数

xdwy81129 · 发表于 2011-9-15 03:54

回复 liuguansky 的帖子

测试如下
Application.VBE.SelectedVBComponent.Name
——没有得到正确模块名称，光标不一定在运行宏的里面

Application.VBE.CodePanes(1).GetSelection
——.GetSelection提示参数不可选

hxgfkfb · 发表于 2011-9-15 09:15

静待学习中……

爱疯 · 发表于 2011-9-15 10:52

Sub test()
'SelectedVBComponent 属性示例
'下列示例使用 SelectedVBComponent 属性返回被选择的部件。
Debug.Print Application.VBE.SelectedVBComponent.Name
End Sub

复制代码

以上是帮助示例。

因为属性/方法列表中，VBE下激活的属性只提供了以下三个：

Application.VBE.ActiveCodePane
Application.VBE.ActiveVBProject
Application.VBE.ActiveWindow

所以个人猜测，常规办法只能精确到部件。
不知api或其它方法可不可以。

xdwy81129 · 发表于 2011-9-15 11:00

回复爱疯的帖子

三句话都提示错误如下，不知道怎么搞的

爱疯 · 发表于 2011-9-15 11:10

6楼代码本身没问题，测试过OK，是帮助本身的示例。
7楼错误，需要查看你运行的附件，才好判断。

xdwy81129 · 发表于 2011-9-15 11:21

回复爱疯的帖子

Book1.rar (26.71 KB, 下载次数: 4)

爱疯 · 发表于 2011-9-15 11:33

Sub Macro1()
Dim x, y, z
Set x = Application.VBE.ActiveCodePane '返回 CodePane 对象
Set y = Application.VBE.ActiveVBProject '返回 VBProject 对象
Set z = Application.VBE.ActiveWindow '返回 Window 对象
Cells(1, 1) = Application.VBE.SelectedVBComponent.Name
Stop
End Sub

复制代码

因为前3次返回的是对象，所以赋值时需要加set；而最后1次，返回的字符串，所以可以不用加。

		自动登录	找回密码
密码			注册