VSTO做com加载项

hljzh42224

需求：把VBA代码整理成安装程序。内容：日常整理了一些宏代码，由于工作需要想分发给同事们使用，但烦于一个个的加载设置
问题：我尝试用VSTO,做一个插件，但不会转换回调代码。目前功能区做好了，也做成了一个安装程
          序，测试无误。
希望：老师能把我提供的代码转换成用VB表达的代码，我虽然有些笨，但应该能看懂老师写的回调代码，并且能学会，谢谢！
附件：1、ribbon1.xml:功能区的代码；
          2、ribbon1.vb   : 基本保持了系统自动生成的代码
          3、Thisaddin.vb:基本保持了系统自动生成的代码
          4、My_VBA       : 我需要转换的代码

4、My_VBA  ：
Sub row_1()
'
' 功能：将所有工作簿冻结窗口并筛选
'
' 快捷键: Ctrl+Shift+M
'
Application.ScreenUpdating = False
  'For n = 1 To Sheets.Count
   ' Sheets(n).Select
     ActiveSheet.AutoFilterMode = False
     ActiveWindow.FreezePanes = False
       Rows("3:3").Select
       ActiveWindow.FreezePanes = True
       Range("a2").Select
       Selection.AutoFilter
  'Next
Application.ScreenUpdating = True
End Sub


Sub sstring()
'
'功能：把选中的区域字符串，连起来
'
Dim a As String
  k = Selection.Rows.Count
  For n = 1 To Selection.Count
      a = a & Selection(n).Value & ","
  Next
     b = InputBox("输入单元格地址", "选择输出位置", ActiveCell.Offset(k + 1, 0).Address)
     Range(b) = a
End Sub

bshkl

联系qq24781410