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

您所在的位置：网站首页 › VBA代码助手专业版 › VBA代码宝工具箱（陈表达）

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

2023-09-22 10:54| 来源: 网络整理| 查看: 265

工具箱：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

【本文地址】

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

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

今日新闻

推荐新闻