VBA代码宝工具箱（陈表达）-Toy模板网

这篇具有很好参考价值的文章主要介绍了VBA代码宝工具箱（陈表达）。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

工具箱：xlam类型工具箱

数据源：存放在隐藏工作簿的xlam文件的表里，可通过代码读取和写入，读取和写入功能源码在excel的VBA工程模块，代码全部开源

excel vba工具箱开源,vsto插件开发,VBA系统,SQL数据库,microsoft,c#,vba,.net,sql

sub 开始
    msgbox("hello world")
end sub

使用窗体：listbox列表框控件 和 textbox文本框控件和 Button按钮控件等等

excel vba工具箱开源,vsto插件开发,VBA系统,SQL数据库,microsoft,c#,vba,.net,sql

菜单部分，最重要部分是VBA代码宝、和VBE代码助手部分

excel vba工具箱开源,vsto插件开发,VBA系统,SQL数据库,microsoft,c#,vba,.net,sql

VBE模块功能（可自定义动态增加、删除、修改 VBE按钮功能及写入信息）

excel vba工具箱开源,vsto插件开发,VBA系统,SQL数据库,microsoft,c#,vba,.net,sql

文章来源地址https://www.toymoban.com/news/detail-552445.html

下面是列举大部分VBE窗口的功能出来

excel vba工具箱开源,vsto插件开发,VBA系统,SQL数据库,microsoft,c#,vba,.net,sql

点击VBE的按钮，输出相应的代码：

excel vba工具箱开源,vsto插件开发,VBA系统,SQL数据库,microsoft,c#,vba,.net,sql



Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
Sub AutoClose2()
    MessageBoxTimeout 0, "程序执行完毕，两秒后关闭！", _
        "自动关闭的消息框2", 0, 0, 2000
End Sub

还有一些类模块：如打印类模块，任何工作簿打印都会触发打印，自动调整打印边距等等

excel vba工具箱开源,vsto插件开发,VBA系统,SQL数据库,microsoft,c#,vba,.net,sql

VBA代码宝模块

excel vba工具箱开源,vsto插件开发,VBA系统,SQL数据库,microsoft,c#,vba,.net,sql

关键字搜索功能

excel vba工具箱开源,vsto插件开发,VBA系统,SQL数据库,microsoft,c#,vba,.net,sql

Sub 连接Access数据库()

    '连接
    Dim cnn As ADODB.Connection
    
    Set cnn = New ADODB.Connection
    
    数据库路径 = "C:\Users\chenbiaoda\Desktop\SQL数据库\初来乍到.accdb"
    
    With cnn
        
        .Provider = "Microsoft.Ace.OLEDB.12.0"
        .Open 数据库路径
    
    End With
    
    
    
    '查询
    mysql = "select * from 课程"
    
    cnn.Execute (mysql)
    
    Range("a1").CopyFromRecordset cnn.Execute(mysql)
    
    Set cnn = Nothing


End Sub

获取电脑信息

Sub GetMyComputerName() '本机电脑名称加密
    
    Debug.Print Environ("USERNAME"), Environ("computername")
    If Environ("computername") <> "陈表达的计算机" Then
    
        MsgBox "删除内容"
    
    End If

End Sub

到了这里，关于VBA代码宝工具箱（陈表达）的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！