COM加载宏封装自定义函数并全自动安装最简实例

baomaboy

高绪山 发表于 2011-11-29 08:30
你好！ 请问：通用扩展EXCEL工具集V2.39现在怎么安装不上了？

既然V2.39你以前能安装而且有那么多人安装成功说明应该是没问题的，可能是你的使用环境有变化。

高绪山

baomaboy 发表于 2011-11-29 09:44
既然V2.39你以前能安装而且有那么多人安装成功说明应该是没问题的，可能是你的使用环境有变化。

将“禁用项目”中EZEK.dll 启用后正常。谢谢！

高绪山

闫总：
你好！请教一下，当工作簿已经打开后，如何设置为只读属性。我的想法是：根据登录用户权限，设置读写权限。例如，只有有查询权限的用户，对工作簿是只读。我用:Thisworkbook。readonly=true ，系统提示是不能设置的。
谢谢!

高绪山

你好！
请问在VBA 如何能捕捉到删除行的动作？我想在删除前，先对有关联数据处理完了再删除。谢谢！

高绪山

你好！
请教一下：
用：   Workbooks(Dir(DingEPath & DingEName)).IsAddin =True。可以隐含打开的工作表。可是，通过：
    For Each Wb In Workbooks
        If UCase(Trim(Wb.Name)) = UCase(DingEName) Then
            bOpenWB = True
            Exit For
        End If
    Next Wb

判定时，bopenwb=FALSE，工作表未打开。
请问：如何既能隐藏工作薄，又能跃过上述判断，并且可以读写。
先谢谢了！

baomaboy

高绪山 发表于 2011-12-10 22:29
你好！
请教一下：
用：   Workbooks(Dir(DingEPath & DingEName)).IsAddin =True。可以隐含打开的工作表 ...

判定时，bopenwb=FALSE，工作表未打开。
上面这句是判断特定的工作簿是否打开而不是工作表，
另外根本不明白“既能隐藏工作薄又能跳过判断还能读写”是什么意思？
可以隐藏特定的工作薄，但是“又能跳过判断“是什么意思？一点没看明白

高绪山

对不起，我没说明白。是这样：
1.我有一个核算材料的程序，都要使用“材料定额库”，例如，材料定额库.xls 。该文件是共享的，大家都用；
2.在我的主程序打开时，要判定“材料定额库.xls” 工作簿是否应经打开。如果，未打开就打开。已经打开直接激活即可；
3.为了不引起操作人员的混乱，我想将“材料定额库.xls” 工作表隐含在后台进行读写。
4.基本情况就是这样。下面的程序。用： If UCase(Trim(WB.Name)) = UCase(DingEName) Then
和set wb1 = Workbooks(DingEPath & DingEName) If wb1 Is Nothing Then 进行判断，都提示“文件已经打开，是否重新打开？”提示。
5.只有在“材料定额库.xls”可见时，用：“If UCase(Trim(WB.Name)) = UCase(DingEName) Then “ 可以判断，直接激活。

部分程序如下：


    If UCase(Sheets("程序专用").Cells(6, "B")) = "当前工作目录" Or Trim(VBA.UCase(Sheets("程序专用").Cells(6, "B"))) = "" Then
          DingEPath = ActiveWorkbook.Path & "\"
    Else
          DingEPath = Trim(Sheets("程序专用").Cells(6, "B"))
    End If
    DingEName = Trim(Sheets("程序专用").Cells(7, "B"))
    bOpenWB = False
    For Each WB In Workbooks
        If UCase(Trim(WB.Name)) = UCase(DingEName) Then
            bOpenWB = True
            Exit For
       End If
    Next WB
    On Error GoTo Error1
    'On Error Resume Next
    'MsgBox DingEPath & DingEName
    'Set wb1 = Workbooks(DingEPath & DingEName)
   ' MsgBox wb1.Name
    'If wb1 Is Nothing Then
     If bOpenWB = False Then
    ' If Not (Workbooks(Dir(DingEPath & DingEName)).IsAddin) = True Then
          ' myApp.Visible = False
           'myApp.Visible = True
         ' myApp.Workbooks.Open DingEPath & DingEName, 0, bOpenReadOnly
         Workbooks.Open DingEPath & DingEName, 0, bOpenReadOnly
         
         Workbooks(DingEName).Sheets("程序").Cells(1, 1) = User_Grade
         Workbooks(DingEName).Sheets("程序").Cells(2, 1) = G_TJ_Name
         Workbooks(DingEName).Sheets("程序").Cells(3, 1) = False
         Workbooks(DingEName).Sheets("程序").Cells(4, 1) = DingEName
         'Call DEB_open(DingEName)


    Else
        Workbooks(DingEName).Activate
    End If
    G_ZCK_Name = ActiveWorkbook.Name

      Workbooks(Dir(DingEPath & DingEName)).IsAddin = True
   
    Workbooks(G_TJ_Name).Activate

daheng131

这个很有用

zhou1234

我运行的时候很慢，不知为什么？

Colonel2002

　　经过分析研究，对自己在DLL文件调用方式方法方面有了清醒的认识，效果明显。严重感谢！
　　总体来说，调用DLL前的准备工作还是只有两个主流方向，一是在宿主EXCEL文件中注册，二是用可执行文件完成DLL文件的注册，或者将DLL文件复制到系统工作目录下。所有的自动安装、自动注册都是通过这两个途径实现的，这些都算不上严格意义的自动注册。只有在宿主EXCEL中注册调用DLL文件，才算是有点自动完成的意义。至于“无须注册和引用”，似乎不是那么回事。执行的两个批处理命令，同样是完成DLL文件在系统目录下的注册和清除注册内容作用，无非是用COPY命令代替了注册命令而已。
　　仅仅就目前这两种方式而言，还是受到很多因素制约着。例如：下载了可能会受到杀软及安全防护软件直接宰杀，执行过程中多数会受到杀软和防卫软件的阻拦，执行前需要具有系统管理权限，执行后还要清除注册痕迹等等。
　　既然DLL调用问题一时难以达到一种理想的境地，我们就有必要在参考其他编程语言实现方法的基础上进一步归纳总结出一套更系统一点的理论和方法。这就要仰仗各位前辈和专家了。