一个可以浏览多个Excel中的VBA的小程序

liucqa

zhyj_88 发表于 2012-2-14 14:59
你的信任代码中  .SendKeys "%tms{tab}{tab}v~"
在tms后打开时有t,而取消时无t ,经验证无t也可以正常操作 ...

Alt-t m s 是2003的打开信任窗口的快捷键，后面那个t没用，估计是输入错误

我的代码应该都有t吧

Private Sub Workbook_Open()
    '打开“信任对VBA工程对象模型的访问”
    If Not SecuritySet(ThisWorkbook) Then MsgBox "本程序将打开“信任对VBA工程对象模型的访问”"
    Do Until SecuritySet(ThisWorkbook)
        With Application
            If CDbl(Val(Application.Version)) <= 11 Then
                MsgBox "本程序只支持Excel2007以上版本"
                End
            Else
                .SendKeys "%tms{tab}{tab}v~"
                '.SendKeys "%las{tab}e{tab}v~"
            End If
            .CommandBars.FindControl(ID:=3627).Execute
        End With
    Loop   
End Sub


Private Sub Workbook_beforeclose(cancel As Boolean)
'取消“信任对VBA工程对象模型的访问”
    If SecuritySet(ThisWorkbook) Then
        Application.OnTime earliesttime:=Now + TimeSerial(0, 0, 1), procedure:="quitapp", schedule:=True
        Application.SendKeys "%tms{tab}{tab}v~", True
        cancel = True
    End If
    Exit Sub
End Sub

zhyj_88

liucqa 发表于 2012-2-12 23:21
非常不错的工具         

For Each VBRef In Wbk.VBProject.References

除了滚轮功能,已经完善了大部分功能,你在看看还有什么不足的地方.

zhyj_88

liucqa 发表于 2012-2-12 23:47
另外，如果打开文件的时候，选取消，再点按钮，字典就会报错，你改改。

打开信任工程的代码最好加上，省 ...

你的信任代码中  .SendKeys "%tms{tab}{tab}v~"
在tms后打开时有t,而取消时无t ,经验证无t也可以正常操作.我的程序中没有t
不知是否可以解释一下.

zhyj_88

因为自己要经常查看VBA,所以退出时就不运行CloseAccess了.

JLF2003

多谢分享！

特醇红双喜

看起来好像有点用

zhyj_88

liucqa 发表于 2012-2-12 23:44
另外能不能在textbox里面加上滚轮

用户窗体中TextBox无句柄,且没有索引项,实现起来有难度.
另外用ListView来代替文本框可以实现滚轮.

liucqa

zhyj_88 发表于 2012-2-17 11:33
用户窗体中TextBox无句柄,且没有索引项,实现起来有难度.
另外用ListView来代替文本框可以实现滚轮.

你弄一个呀

zhyj_88

修改了程序中的一些BUG,完善了部分功能.将新修改的程序放在了一楼.

goldowl2011

Mark it.Good idea.Thanks a lot.