[原创]XLS捆绑成动态EXE一例

zxq98168

期待版主的源码

7433518

你的部份代码(窗体)如下：
Option Explicit


Private Sub cmdOk_Click()
    Unload Me
End Sub

Private Sub lblMyEmailC_Click()
    ShellExecute 0, "Open", "mailto:ldhyob@163.com", "", "", SW_SHOWNORMAL
End Sub

Private Sub lblMyEmailC_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.lblMyHomeC.ForeColor = &H80000008
    Me.lblMyEmailC.ForeColor = &HFF0000

End Sub


Private Sub lblMyHomeC_Click()
        ShellExecute 0, "Open", "http://ldhyob.top263.net", "", "", SW_SHOWNORMAL
End Sub

Private Sub lblMyHomeC_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.lblMyHomeC.ForeColor = &HFF0000
    Me.lblMyEmailC.ForeColor = &H80000008
End Sub

Private Sub UserForm_Initialize()
    Me.Caption = "关于 " & Me.lblApp.Caption
    Beep
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.lblMyHomeC.ForeColor = &H80000008
    Me.lblMyEmailC.ForeColor = &H80000008

End Sub

7433518

你这个也能破解的，userform2 的代码如下：
Option Explicit


Private Sub cmdOk_Click()
    Unload Me
End Sub

Private Sub lblMyEmailC_Click()
    ShellExecute 0, "Open", "mailto:ldhyob@163.com", "", "", SW_SHOWNORMAL
End Sub

Private Sub lblMyEmailC_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.lblMyHomeC.ForeColor = &H80000008
    Me.lblMyEmailC.ForeColor = &HFF0000

End Sub


Private Sub lblMyHomeC_Click()
        ShellExecute 0, "Open", "http://ldhyob.top263.net", "", "", SW_SHOWNORMAL
End Sub

Private Sub lblMyHomeC_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.lblMyHomeC.ForeColor = &HFF0000
    Me.lblMyEmailC.ForeColor = &H80000008
End Sub

Private Sub UserForm_Initialize()
    Me.Caption = "关于 " & Me.lblApp.Caption
    Beep
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.lblMyHomeC.ForeColor = &H80000008
    Me.lblMyEmailC.ForeColor = &H80000008

End Sub

7433518

这样也有一个问题，那就是：当你对系统进行垃圾文件处理时，会将tmp后缀的文件清除掉，那么你所保存的资料也会被清理掉，从而导致数据丢失，不知我的理解正确与否，我的这种想法想来也有一定的道理

sunnyseeny2008

谢谢楼主赐教！

jsuny

楼主能具体讲解下

pst168

学习一下.刚刚接触Excel VBA.

wb861217

貌似好难啊！

wls_198210100

多谢楼主！
只是封装程序太凌乱了，能不能有人给整理下啊？