1. VB6.0封装VBA代码
你的这段代码只是通过运行特定的工作簿，来打开隐藏在系统文件夹的某个Excel文件。如果通过VB来打开该文件。那么前面的Protect部分意义不大。给你全部修改掉，直接通过VB来核对密码：代码如下：
2. 如何将vba程序封装
vb输出可执行程序过程
菜单: 外接程序管理器->打包和展开向导，选择加载选框；
之后选择需要的项目一直下一步；
其中要注意的是，如果有文件在程序里面被用到，在中间一个步骤里一定要把那个程序也加到包；
这样可以生成一个完整的安装文件，可以在其他电脑上直接安装。
3. VBA VB
两者是可以转换的，但是不能直接复制，
VBA是基于一个平台二次开发脚本
VB是一种高级开发语言，
VB和VBA的语法相似 ，所以可以转换，但直接复制会有问题
4. VBA代码封装
安全性高，方便做软件的跨平台和他人使用
5. vba代码封装视频教程
安全性高，方便做软件的跨平台和他人使用
6. vb封装vba代码成exe文件
一、_压缩文件
'Shell函数
'Shell执行一个可执行文件.返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。
'语法：
'Shell("可执行程序的路径 文件名或命令行",窗口的显示方式)
Sub 用绘图程序打开图片()
Dim mysh
mysh = Shell("mspaint.exe " & ThisWorkbook.path & "\pic.jpg", vbMaximizedFocus)
End Sub。
'WinRar命令的命令行表示方法
' WinRar程序路径 命令 开关1 开关2 开关3..开关N 压缩包路径 压缩的文件路径
'命令是指要进行怎么样的操作，如A是压缩，X是解压缩
'开关是具体操作时的细节，如压缩是是否把原文件删除，是否添加密码等
Sub RarFile() '压缩单个文件
Dim Rarexe As String
Dim myRAR As String
Dim Myfile As String
Dim FileString As String
Dim Result As Long
Rarexe = "C:\program files\winrar\winrar.exe" 'rar程序路径
myRAR = ThisWorkbook.path & "\A.rar" '压缩后的文件名
Myfile = ThisWorkbook.path & "\B*.xls" ' 指定要压缩的文件
FileString = Rarexe & " A " & myRAR & " " & Myfile 'rar程序的A命令压缩文件的字符串
Result = Shell(FileString, vbHide) '执行压缩
End Sub
'如果文件名使用通配符,可以对同类的文件进行和压缩,
'如果只有路径没有文件名,则会把这个文件夹进行压缩
Sub RarFile2() '多个文件压在一起
Dim Rarexe As String
Dim myRAR As String
Dim Myfile As String
Dim FileString As String
Dim Result As Long
Rarexe = "C:\program files\winrar\winrar.exe" 'rar程序路径
myRAR = ThisWorkbook.path & "\B.rar" '压缩后的文件名
' Myfile = ThisWorkbook.path & "\B\*.xls" ' 指定要压缩的文件类型
Myfile = ThisWorkbook.path & "\B\" ' 指定要压缩的文件夹路径
FileString = Rarexe & " A " & myRAR & " " & Myfile 'rar程序的A命令压缩文件的字符串
Result = Shell(FileString, vbHide) '执行压缩
End Sub。
7. vba vbe
1、首先我们打开一个工作样表作为例子。
2、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：
Option Explicit
Sub testWidthOrHeight()
Cells(i, j) = 5464
End Sub
3、运行这段代码是会报错的，option explicit是变量声明。而活动单元格cells（i，j）中cells的参数i，j 都是变量未声明，所以会出现错误提示。
4、正确的方法是将i，j变量换算成直接的单元格序列号，比如我们这里换成a1单元格，那么就应该输入（1,1）这样的格式，那么，就会在a1单元格内输入5464这个数值。
5、其实也可以将参数输入为（1，“a”）这样的格式，为什么呢，因为不将a使用双引号括起来那么就会将a视为一个变量而报错。
6、不仅如此，如果没有给变量赋予一个正确的值，这里的值包括数值，或者是列序列，那么同样会报错，这是变量没有定义造成的应用函数错误。
8. vba封装成exe
用Shell可以实现.Shell（iProcess-Admin.exe的完整路径放在这，vbNormalFocus）
9. vb封装excel
Option ExplicitDim data As New ADODB.ConnectionDim db As New ADODB.RecordsetDim xlsApp As Excel.ApplicationDim xlsBook As Excel.WorkbookDim xlsSheet As Excel.WorksheetPrivate Sub Command1_Click()On Error GoTo ErrHandlerCommonDialog1.DialogTitle = "Open files"CommonDialog1.Filter = "mdb files(*.mdb)|*.mdb"CommonDialog1.Flags = 4 '取消 “以只读方式打开” 复选框CommonDialog1.ShowOpenCommonDialog1.CancelError = TrueIf Len(CommonDialog1.FileName)
- 相关评论
- 我要评论
-