[原创]XLS封装成EXE制作全攻略

worromot16 · 发表于 2008-3-4 16:22

还没看，先顶你个，谢谢!

看完，再顶你个

试完，再来顶一次

谢谢

kuatux · 发表于 2008-3-4 18:55

[em06]

worromot16 · 发表于 2008-3-5 14:23

请问：我对VB不点不通，你要复制的内容也不知从哪到哪，出了错了，也看不懂，请给看一下，谢谢!

进行编译，“文件”-“生成工程1.exe”，此时也可将生成的EXE另外取名，如取名叫abc.exe

出错，

rQ0NZMw4.rar (664 Bytes, 下载次数: 28)

[此贴子已经被作者于2008-3-5 14:32:38编辑过]

碧水hover · 发表于 2008-3-25 17:07

唉我就是不知道下标越界怎么解决 ! 学会的能不能给我说下啊

fjzdq · 发表于 2008-3-25 21:03

封装后原来防拷的代码不起作用了,要怎么改?

Dim fs, d, s, sh As Worksheet
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(Me.Path)))
    s = d.serialnumber
    If s <> -732059213# Then
      MsgBox "对不起，您未得到授权，不能使用本系统！"
      Application.EnableEvents = False
      Me.Close (flase)
      Application.EnableEvents = True
        For Each sh In Me.Worksheets
        sh.Visible = True
      Next sh
      ThisWorkbook.Save
      ThisWorkbook.Close
      End If

fjzdq · 发表于 2008-4-16 22:35

我想把临时文件产生在EXE所在的磁盘,要如何修改?

海洋123 · 发表于 2008-4-29 13:04

学习一下`！~！

chirley · 发表于 2008-4-29 14:52

超有用，在此感谢了！

、

xtec2525 · 发表于 2008-4-29 17:19

谢谢！，非常感谢！

luanyu6688 · 发表于 2008-6-22 22:32

斑竹，你真的太厉害拉！谢谢拉，我的回去慢慢的研究！

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