​VB.net-VSTO如何创建第一个项目

VB.net-VSTO如何创建第一个项目

在这一个项目中，我们要完成事项

1.一个菜单，

2.一个功能区按钮，

3.按钮能响应事件，

4.对Excel的内容显示区进行操作：读取、写入

1.创建项目

2. 添加XML项目

完成后我们的项目中有三个文件，ThisAddin,vb, Ribbon1.xml, Ribbon.cs

3.按提示要求修改相应的代码

（3.1）在Ribbon.cs文档中复制代码，到ThisAddin.vb文件中，去除注释

（3.2）在Ribbon1.xml文件中添加代码，用的我们要显示在Excel中的功能区的按钮

4.测试运行，此时我们已完成了菜单、功能区按钮的创建。看到效果如图

5.下面我们来添加按钮事件

（5.1）在。XmL文件中添加

<button id="dd01" label="测试button" onAction="AboutMe"/>

onAction="AboutMe"表示如果点击按钮就会触动事件AboutMe

 （5.2）在cs文档中添加响应事件的函数

Public Sub AboutMe(control As Office.IRibbonControl)

        MsgBox(Prompt:="作者：哆哆" + vbCrLf + "公众号：哆哆Excel" + vbCrLf + "开发软件：Visual Studio 2019", Title:="哆哆提示")

 End Sub

（5.3）运行测试，成功

6. 按下来我们要对Excel文档进行读写操作

（6.1）XML文档中添加代码

  <group id="MyGroup02" label="读写操作">
  <button id="dd02" label="测试读取Excel中内容" onAction="TestExcel"/>
  <button id="dd03" label="测试写入Excel的内容" onAction="TestExcel"/>
  </group>

（6.2）在CS文档中添加响应代码

    Public Sub TestExcel(control As Office.IRibbonControl)
        'MsgBox(control.Id)
        Dim xlapp As Excel.Application = Globals.ThisAddIn.Application
        Dim actcell As Excel.Range = xlapp.ActiveCell
        Select Case control.Id
            Case "dd02"
                MsgBox(actcell.Value.ToString())
            Case "dd03"
                actcell.Value = "测试写入了数据"
            Case Else
        End Select
    End Sub

效果图如下

完成效果。

读取数据

写入数据，成功

到此，我们可以出Excel进行写入读取，以后要做什么事，就看大家的思维能力啦

如果对你有帮助，

请转发给大家学习，

持续更新中。。。