其他信息
| Http://www.cnng.net |  |
首页 原创软件
VB文挡 VB资源
乱舞人生 资源
Tags 给我留言 |
 用户登陆 站点统计 最新评论 日志搜索 友情链接 |
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long  阅读全文……被刺激了一下好奇心，把xlsm里的VBA加了个密码，然后后缀改为zip解压，找到了vbaProject.bin。居然在这里面直接看到代码明文，我就没明白微软设那个密码是干啥的。代码居然没加密处理。 Dim arr With Me.Spreadsheet1 arr = .ActiveSheet.UsedRange If Not IsEmpty(arr) Then Range(.ActiveSheet.UsedRange(1).Address).Resize(UBound(arr), UBound(arr, 2)) = arr 阅读全文……以下方法是我亲自试用,有效果的. 新建记事本,保存以下代码为 XML.REG,然后双击导入注册表.
Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\TypeLib\{F5078F18-C551-11D3-89B9-0000F81FE221}][HKEY_CLASSES_ROOT\TypeLib\{F5078F18-C551-11D3-89B9-0000F81FE221}\6.0] 阅读全文……"C#解压.zip文件，网上一搜一大堆方法，有使用System.IO.Compression.GZipStream的，有使用J#库函数的，也有仿Java自己写库函数的，但好多都不大好使，最终发现还是系统函数System.Shell.Folder.copyHere(oItem [, intOptions])最为好使。具体方法如下： 1. 添加引用 Shell32.dll，可以在Windows\system32中找到它。 2. 添加方法，搞定。 阅读全文……Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long ShellExecute 0, "runas", "D:\1.exe", " commandcontent", vbNullString, vbNormalFocus 前段时间为公司实验室编制测试数据库，其中遇到一个问题，怎样在VBA中使用Excel自带的一些函数呢？如min,max,average等等。 本以为能在Excel表格中直接使用的函数也能直接移植到VBA中，结果发现根本行不通，程序报错。后来通过多方查询发现，虽然不能直接引用，但是我们可以曲线救国，excel中表格可以用max函数，在VBA中也可以用，只需通过WorksheetFunction对象就可以引用，后面加函数名称，然后加range来引用单元格。举个例子： Application.WorksheetFunction.Max(range("A1:C5")) 下面就是能在VBA中使用excel自带函数： |
