VBA代码宝工具箱（陈表达）

工具箱：xlam类型工具箱

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

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

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

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

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

 

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

 

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

 
 
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
 

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

 

 

 

 

VBA代码宝模块

 

 关键字搜索功能

 

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