VBA程序也玩自动升级

zxylxw

如何导入类模块（升级FTP）呢？
导入类模块（升级CFTP类）的命名问题.rar (17.62 KB)  导入类模块（升级CFTP类）的命名问题.rar (17.62 KB)
导入类模块（升级CFTP类）的命名问题.rar (17.17 KB, 下载次数: 62)

2010-8-8 13:47 上传

点击文件名下载附件

2010-7-11 18:28
删除原有模块时，按理模块名应释放出来，
但导入类模块的以该名命名时会出现名称冲突!
如何解决呢？请教各路高手
Private Sub CommandButton1_Click()
'勾取信任
            Dim Chgset As Boolean
            Debug.Print ThisWorkbook.VBProject.Protection
            If Err.Number = 1004 Then
                Err.Clear
                Application.SendKeys "%TMS%T%V{ENTER}"
                Chgset = True
                DoEvents
            End If
'删除类模块CFTP
    Dim Vbc As VBComponent
    For Each Vbc In Application.ThisWorkbook.VBProject.VBComponents
        Select Case Vbc.Type
        Case 1, 2, 3
            With Application.VBE.ActiveVBProject.VBComponents
                .Remove .Item(Vbc.Name)
            End With
        Case vbext_ct_ClassModule
            With Application.VBE.ActiveVBProject.VBComponents
                .Remove .Item(Vbc.Name)
            End With
        Case Else
            Vbc.CodeModule.DeleteLines 1, Vbc.CodeModule.CountOfLines
        End Select
    Next
  '导入升级版类模块CFTP
    Dim FileName As String, ClassName As String
    FileName = ThisWorkbook.Path & "\CFTP.cls"
    ClassName = "CFTP"   
Set Vbc = ThisWorkbook.VBProject.VBComponents.Import(FileName)  
    Vbc.Name = ClassName  '会自动命名为CFTP1，以致原用类引用失效出错
END SUB

[ 本帖最后由 zxylxw 于 2010-8-8 13:47 编辑 ]

hoochon

不错，收藏了

tangcong

学习：方法和思路

wangruoxu

好思路,正好用上,太给力了

chuhaiou

收藏了。不错，蛮有意思的

flysky_ng

我终于简单做成功了，自动升级

先 SAVEAS  然后他就变成另外一个文件
kill原有文件
FILECOPY 新文件到原有文件
关闭本文件，即可完成升级，另外多了一个备份文件

guochangjj

好资料顶起
向你学习

panyonglu

收藏，享用

baomaboy

这个方法是不错的。

xtanuihazfh

非常好的思路,感谢分享