你能否以编程方式访问Excel的VBEselect？

如果我在Excel VBE中打开了一些VB组件，并且如图所示突出显示了一些文本，

有没有办法以编程方式抓取文本“zBool”？

最好不要使用Sendkeys

6x新西兰Steinlager啤酒（一个很好的解决scheme），另一个很好的解决scheme

问：为什么黑羊比白羊less吃？

A：因为没有那么多

Answer 1

添加对“Microsoft Visual Basic for Applications扩展性…的引用”

Sub Tester() Dim oVBE As vbe Dim startLine As Long, startCol As Long Dim endLine As Long, endCol As Long Dim sContent As String, tmp As String, l As Long Set oVBE = Application.vbe oVBE.ActiveCodePane.GetSelection _ startLine, startCol, endLine, endCol For l = startLine To endLine tmp = oVBE.ActiveCodePane.CodeModule.Lines(l, 1) If l = endLine Then tmp = Left(tmp, endCol - 1) If l = startLine Then tmp = Right(tmp, (Len(tmp) - startCol) + 1) sContent = sContent & IIf(Len(sContent) > 0, Chr(10), "") & _ tmp Next l Debug.Print sContent End Sub 

GetSelection方法： http : //msdn.microsoft.com/en-us/library/aa443954( v=vs.60) .aspx

看看这里如何使用返回的信息来访问实际的文字： http : //www.cpearson.com/excel/vbe.aspx （我相信它在那里…）

编辑 – 为你自己做的教育
我会把它放在你的标签上;-)