[已解决]【求助】vb控制rar备份excel或则直接备份

xdwy81129

已经有2个excel打开了，分别是F:\学习\book1.xls和 E:\dngl\bkkk2.xls的文件。E:\dngl\bkkk2.xls出于隐藏状态

想实现的是对E:\dngl\bkkk2.xls进行备份在桌面上，最好是通过rar压缩来在桌面上生成。

如果办不到的话，就直接复制E:\dngl\bkkk2.xls的文件到桌面上。

另：备份前肯定要有个保存E:\dngl\bkkk2.xls的文件。

谢谢老师赐教了

最佳答案

月排行榜 / 总排行榜

搁浅2008

2009-11-13 08:09

以下是我搜到的

有些朋友想过用VBA来实现压缩文件，但不知如何弄，其实这个就VBA利用WINRAR的一些命令通过 SHELL这个函数来实现!
先来为大家说说Shell函数：
    Shell函数是VB中的内部函数，它负责执行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的进程ID，若不成功，则会返回0。(这个函数也可以在VBA中使用。)
    Shell的语法是：Shell(PathName[，WindowStyle])。
    PathName：为必需参数。类型为String，它指出了要执行的程序名，以及任何需要的参数或命令行变量，也可以包括路径名。
    WindowStyle：为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyle有以下这些值。
    常量值 描述
    VbHide  0  窗口被隐藏，且焦点会移到隐式窗口。
    VbNormalFocus  1  窗口具有焦点，且会还原到它原来的大小和位置。
    VbMinimizedFocus  2  窗口会以一个具有焦点的图标来显示（缺省值）。
    VbMaximizedFocus  3  窗口是一个具有焦点的最大化窗口。
    VbNormalNoFocus  4  窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
    VbMinimizedNoFocus  6  窗口会以一个图标来显示，而当前活动的窗口仍然保持活动。
再介绍下所需要结合运用的WinRar的用法
    主要介绍以下如何在WinRar中用命令行来压缩和解压缩文件?
　　压缩：WINRAR A [-switches] [Files] [@Filelists]
　　例如你想把try.mdb压缩到C盘下，可以WINRAR A C:\try.rar C:\try.mdb
      解压缩：如果带目录解压缩
　　WINRAR X [-switches] [Files] [@Filelists] [destionationfolder]
　　如果在当前目录解压缩，即解压缩时不写目录名
　　WINRAR E [-switches] [Files] [@Filelists] [destionationfolder]
　　例如你想把try.rar解压缩到C盘下，可以WINRAR X C:\try.rar C:\try.mdb
最后以一个实际例子给大家一个参考
　　在VBA中新建一个模块，在模块中添加两个子程序压缩文件和解压缩文件。

    压缩文件子程序是把文件try.mdb压缩成try.rar。
    Sub 压缩文件()
        Dim Rarexe As String 'WINRAR执行文件的位置
        Dim Source As String '压缩前的原始文件
        Dim Target As String '压缩后的目标文件
        Dim FileString As String 'Shell指令中的字符串
        Dim Result As Long
        Rarexe = "C:\program files\winrar\winrar"
        Source = "C:\try.mdb"
        Target = "C:\try.rar"
        FileString = Rarexe & " a " & Target & " " & Source
        Result = Shell(FileString, vbHide)
    End Sub

　　解压的过程类似，解压缩文件子过程是把try.rar解压生成try.mdb。在执行了上面的压缩过程后，可以删除文件try.mdb，来解压缩重新生成try.mdb。
    Sub 解压缩文件()
        Dim Rarexe As String 'WINRAR执行文件的位置
        Dim Source As String '解压缩前的原始文件
        Dim Target As String '解压缩后的目标文件
        Dim FileString As String 'Shell指令中的字符串
        Dim Result As Long
        Rarexe = "C:\program files\winrar\winrar"
        Source = "C:\try.rar"
        Target = "C:\try.mdb"
        FileString = Rarexe & " X " & Source & " " & Target
        Result = Shell(FileString, vbHide)
    End Sub

跳转到最佳答案楼层

搁浅2008

附件附件[em06]

搁浅2008

以下是我搜到的

有些朋友想过用VBA来实现压缩文件，但不知如何弄，其实这个就VBA利用WINRAR的一些命令通过 SHELL这个函数来实现!
先来为大家说说Shell函数：
    Shell函数是VB中的内部函数，它负责执行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的进程ID，若不成功，则会返回0。(这个函数也可以在VBA中使用。)
    Shell的语法是：Shell(PathName[，WindowStyle])。
    PathName：为必需参数。类型为String，它指出了要执行的程序名，以及任何需要的参数或命令行变量，也可以包括路径名。
    WindowStyle：为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyle有以下这些值。
    常量值 描述
    VbHide  0  窗口被隐藏，且焦点会移到隐式窗口。
    VbNormalFocus  1  窗口具有焦点，且会还原到它原来的大小和位置。
    VbMinimizedFocus  2  窗口会以一个具有焦点的图标来显示（缺省值）。
    VbMaximizedFocus  3  窗口是一个具有焦点的最大化窗口。
    VbNormalNoFocus  4  窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
    VbMinimizedNoFocus  6  窗口会以一个图标来显示，而当前活动的窗口仍然保持活动。
再介绍下所需要结合运用的WinRar的用法
    主要介绍以下如何在WinRar中用命令行来压缩和解压缩文件?
　　压缩：WINRAR A [-switches] [Files] [@Filelists]
　　例如你想把try.mdb压缩到C盘下，可以WINRAR A C:\try.rar C:\try.mdb
      解压缩：如果带目录解压缩
　　WINRAR X [-switches] [Files] [@Filelists] [destionationfolder]
　　如果在当前目录解压缩，即解压缩时不写目录名
　　WINRAR E [-switches] [Files] [@Filelists] [destionationfolder]
　　例如你想把try.rar解压缩到C盘下，可以WINRAR X C:\try.rar C:\try.mdb
最后以一个实际例子给大家一个参考
　　在VBA中新建一个模块，在模块中添加两个子程序压缩文件和解压缩文件。

    压缩文件子程序是把文件try.mdb压缩成try.rar。
    Sub 压缩文件()
        Dim Rarexe As String 'WINRAR执行文件的位置
        Dim Source As String '压缩前的原始文件
        Dim Target As String '压缩后的目标文件
        Dim FileString As String 'Shell指令中的字符串
        Dim Result As Long
        Rarexe = "C:\program files\winrar\winrar"
        Source = "C:\try.mdb"
        Target = "C:\try.rar"
        FileString = Rarexe & " a " & Target & " " & Source
        Result = Shell(FileString, vbHide)
    End Sub

　　解压的过程类似，解压缩文件子过程是把try.rar解压生成try.mdb。在执行了上面的压缩过程后，可以删除文件try.mdb，来解压缩重新生成try.mdb。
    Sub 解压缩文件()
        Dim Rarexe As String 'WINRAR执行文件的位置
        Dim Source As String '解压缩前的原始文件
        Dim Target As String '解压缩后的目标文件
        Dim FileString As String 'Shell指令中的字符串
        Dim Result As Long
        Rarexe = "C:\program files\winrar\winrar"
        Source = "C:\try.rar"
        Target = "C:\try.mdb"
        FileString = Rarexe & " X " & Source & " " & Target
        Result = Shell(FileString, vbHide)
    End Sub

wayy

不知道代码要放到哪个工作簿中，自己录个另存为的宏看一下就可以了。

xdwy81129

QUOTE:

以下是引用搁浅2008在2009-11-13 8:09:00的发言：

以下是我搜到的

有些朋友想过用VBA来实现压缩文件，但不知如何弄，其实这个就VBA利用WINRAR的一些命令通过 SHELL这个函数来实现!
先来为大家说说Shell函数：
    Shell函数是VB中的内部函数，它负责执行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的进程ID，若不成功，则会返回0。(这个函数也可以在VBA中使用。)
    Shell的语法是：Shell(PathName[，WindowStyle])。
    PathName：为必需参数。类型为String，它指出了要执行的程序名，以及任何需要的参数或命令行变量，也可以包括路径名。
    WindowStyle：为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyle有以下这些值。
    常量值 描述
    VbHide  0  窗口被隐藏，且焦点会移到隐式窗口。
    VbNormalFocus  1  窗口具有焦点，且会还原到它原来的大小和位置。
    VbMinimizedFocus  2  窗口会以一个具有焦点的图标来显示（缺省值）。
    VbMaximizedFocus  3  窗口是一个具有焦点的最大化窗口。
    VbNormalNoFocus  4  窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
    VbMinimizedNoFocus  6  窗口会以一个图标来显示，而当前活动的窗口仍然保持活动。
再介绍下所需要结合运用的WinRar的用法
    主要介绍以下如何在WinRar中用命令行来压缩和解压缩文件?
　　压缩：WINRAR A [-switches] [Files] [@Filelists]
　　例如你想把try.mdb压缩到C盘下，可以WINRAR A C:\try.rar C:\try.mdb
      解压缩：如果带目录解压缩
　　WINRAR X [-switches] [Files] [@Filelists] [destionationfolder]
　　如果在当前目录解压缩，即解压缩时不写目录名
　　WINRAR E [-switches] [Files] [@Filelists] [destionationfolder]
　　例如你想把try.rar解压缩到C盘下，可以WINRAR X C:\try.rar C:\try.mdb
最后以一个实际例子给大家一个参考
　　在VBA中新建一个模块，在模块中添加两个子程序压缩文件和解压缩文件。

    压缩文件子程序是把文件try.mdb压缩成try.rar。
    Sub 压缩文件()
        Dim Rarexe As String 'WINRAR执行文件的位置
        Dim Source As String '压缩前的原始文件
        Dim Target As String '压缩后的目标文件
        Dim FileString As String 'Shell指令中的字符串
        Dim Result As Long
        Rarexe = "C:\program files\winrar\winrar"
        Source = "C:\try.mdb"
        Target = "C:\try.rar"
        FileString = Rarexe & " a " & Target & " " & Source
        Result = Shell(FileString, vbHide)
    End Sub

　　解压的过程类似，解压缩文件子过程是把try.rar解压生成try.mdb。在执行了上面的压缩过程后，可以删除文件try.mdb，来解压缩重新生成try.mdb。
    Sub 解压缩文件()
        Dim Rarexe As String 'WINRAR执行文件的位置
        Dim Source As String '解压缩前的原始文件
        Dim Target As String '解压缩后的目标文件
        Dim FileString As String 'Shell指令中的字符串
        Dim Result As Long
        Rarexe = "C:\program files\winrar\winrar"
        Source = "C:\try.rar"
        Target = "C:\try.mdb"
        FileString = Rarexe & " X " & Source & " " & Target
        Result = Shell(FileString, vbHide)
    End Sub

晚些试验下，谢谢了。

33168130a

学习一下