none
Agregar función a Excel 2010 VB.Net RRS feed

  • Pregunta

  • Hola,

     

    Necesito su ayuda!!!!

     

    Lo que estoy tratando de hacer es agregar una nueva función a excel, mas exactamente la posibilidad de convertir un número a letra, esto lo conseguí medinate un macro (desde VB.net) el cual agrego a cada archivo nuevo de excel que se va abriendo y lo hace de manera correcta, el problema es que si abro un archivo de excel existente esta función ya no está disponible.

    Aquí dejo mi código:

    Imports Microsoft.Vbe.Interop
    
    Public Class ThisAddIn
      Dim modulo As Object
      Dim macro As String
    
      Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
        Try
          macro = My.Computer.FileSystem.ReadAllText("C:\Aplicaciones\Macros\macro.txt") ''Abro un archivo .txt y lo guardo en una variable string
          modulo = Application.ActiveWorkbook.VBProject.VBComponents.Add(vbext_ComponentType.vbext_ct_StdModule)
          modulo.codemodule.addfromstring(macro)
        Catch u As Exception
          MsgBox("Error: " & u.Message)
        End Try
      End Sub
    End Class
    
    Muchas Gracias!!!!

     

     

     

     

    Muchas gracias!!!

    miércoles, 9 de marzo de 2011 17:19