教你把控件打包生成安装包，自动注册到用户电脑！

WANGL2 · 发表于 2012-7-26 12:50

教你把控件打包生成安装包，自动注册到用户电脑！？

iewihz · 发表于 2012-7-25 03:48

学习把控件打包生成安装包，自动注册到用户电脑

diymywork · 发表于 2012-7-21 19:03

看看怎么个钱宽广

ypbnyn · 发表于 2012-7-21 17:36

如果您要查看本帖隐藏内容请

lnjyzxp · 发表于 2012-7-21 17:36

正好需要认真学习一下，谢谢楼主分享！

htcaiwuke · 发表于 2012-7-21 17:32

学习一下呗！

走进EXCEL · 发表于 2012-7-21 17:23

Option Explicit
Sub 文件压缩() '多个文件压在一起
  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程序路径'C:\Program Files\HaoZip\HaoZip.exe
Rarexe = "C:\Program Files\HaoZip\HaoZip.exe"
Myfile = ThisWorkbook.path & "\文件压缩.XLS"    '指定要压缩的文件
myRAR = ThisWorkbook.path & "\B.rar"  '压缩后的文件名

FileString = Rarexe & " A -EP " & myRAR & " " & Myfile 'rar程序的A命令压缩文件的字符串
Result = Shell(FileString, vbHide) '执行压缩
End Sub
'Shell函数
   'Shell执行一个可执行文件.返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。
   '语法
   'Shell("可执行程序的路径文件名或命令行",窗口的显示方式)
'-ep压缩时忽略路径,如果没有则会带上
'-ep1压缩时忽略基准路径
'-p+密码加密码后可以看到文件列表
'-hp+密码加密码后无法看到文件列表
'df压缩后删除原文件
'dr压缩后删除原文件到回收站
'FileString = Rarexe & " A -x" & ThisWorkbook.path & "\B\dr.xls -x" & ThisWorkbook.path & "\B\1.xls -ep " & myRAR & " " & Myfile 'rar程序的A命令压缩文件的字符串

lai448733708 · 发表于 2012-7-21 17:16

这个看看，学习学习！

caosiheng · 发表于 2012-7-21 08:55

这个看看，学习学习！

aa021032 · 发表于 2012-7-10 09:06

学习来了！！！嘎嘎

		自动登录	找回密码
密码			注册

教你把控件打包生成安装包，自动注册到用户电脑！

浏览过的版块