VB.NET自动加载宏

浏览数：44 / 时间：2015年06月09日

VB.NET自动加载.xla文件

Public Function Loadxla(ByVal xlaPath As String, ByVal load As Boolean) As Boolean
        Dim loaded As Boolean = False
        Try
            If (File.Exists(xlaPath)) Then
                Dim o As Object
                o = XlApp.AddIns.Add(xlaPath, True)  '定义成object,add by danielinbiti

                o.Installed = load
                loaded = o.Installed
            End If
        Catch
            loaded = False
        End Try
        Loadxla = loaded
    End Function

调用如

Loadxla("E:\selfh.xla", True)

Xlapp为Excel.Application对象







          

            

              
              郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
            

          


          


          

            标签： 
            vb.net
            
            宏
            
            自动加载
            
            addins
            
            vb.net
            
            宏
            
            自动加载
            
            addins
            
            
            
          


          

            

              
相关文章

              
    
                
              

            

            

              
随机文章

              
            

          



          

            

              
您可能还喜欢

              
    
                
              

            


            

              
您可能还喜欢