【学习VSTO】——VSTO和VBA的一些区别

wpxxsyzx

学习VSTO，尝试用VSTO制作加载项和任务窗格的过程中，查找资料加自己的实际使用，总结一下，如有不当之处，望指正，也希望各位同道写出自己的心得，众人拾柴火焰高嘛。帖中提到的代码都在一个文档级的项目中，附件为源文件。环境：Vs2010 、.net framework 4.0

Office2010

1、  My对象

如果你对用VBA编写复杂的代码，或使用API实现某些功能感到厌烦，好消息，ＶＳＴＯ引入了Ｍy对象，它将.NET FrameWork类库中的一些常用功能提取出来分类，现在有时你只需一句代码就可以得到你想要的结果。比如：

获取磁盘列表及相关信息

在My后输入”.”，根据智能感知列出的列表选择你所需的对象即可

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim i As Integer

        With My.Computer.FileSystem

            For i = 0 To .Drives.Count - 1

                Me.Cells(i + 1, 3).value =.Drives(i).Name

                Me.Cells(i + 1, 4).value = .Drives(i).DriveFormat

            Next

        End With

End Sub

获取用户名，这个有点特别，需要先根据系统用户名获取，所以加一句

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        My.User.InitializeWithWindowsUser()'初始化系统用户

        MsgBox(My.User.Name)

    End Sub

1、  新运算符

IsNot运算符，

该运算符用于比较两个对象是否相同，如果相同则返回False，否则返回True

VBA里我们这样比较两个对象：

If not rng is nothing

VSTO里还可以这样写：

If rng isnot nothing

两者作用效果一样，VSTO里都可以用，但是后者更易于理解

AndAlso运算符

该运算符用来计算两个表达式，它的作用和And运算符类似，但是仅当第一个表达式为 True时才计算第二个表达式，而And运算符总是依次计算两个表达式。AndAlso运算符

的好处显而易见，下面是分别使用两个运算符的比较

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim timer As New Stopwatch

        timer.Start()

        For i As Int16 = 1 To 1000

            If Range("e1").Value > 10 AndAlso Range("e1").Value < 100 Then

            End If

        Next

        MsgBox(timer.Elapsed.TotalSeconds)

    End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim timer As New Stopwatch

        timer.Start()

        For i As Int16 = 1 To 1000

            If Range("e1").Value > 10 And Range("e1").Value < 100 Then

            End If

        Next

        MsgBox(timer.Elapsed.TotalSeconds)

    End Sub

OrElse运算符

该运算符用来计算两个表达式，它的作用和Or运算符类似，但是仅当第一个表达式为 False时才计算第二个表达式，而Or运算符总是依次计算两个表达式。下面是分别使用两个运算符的比较

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Dim timer As New Stopwatch

        timer.Start()

        For i As Int16 = 1 To 1000

            If Range("g1").Value >100 OrElse Range("g1").Value <10 Then

            End If

        Next

        MsgBox(timer.Elapsed.TotalSeconds)

    End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Dim timer As New Stopwatch

        timer.Start()

        For i As Int16 = 1 To 1000

            If Range("g1").Value >100 Or Range("g1").Value <10 Then

            End If

        Next

        MsgBox(timer.Elapsed.TotalSeconds)

    End Sub

wpxxsyzx

3、  窗体

VSTO里窗体是类，所以显示窗体前必须实例化窗体，有两个方法分别用于显示模态和非模态的窗体

显示模态窗体如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim myform As New Form1

        myform.ShowDialog()

End Sub

显示非模态窗体如下

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim myform1 As New Form1

        myform1.Show()

    End Sub

4、 运行时添加控件

和窗体一样，添加控件之前要先实例化

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim i As Int16

        Dim myCmb As New Microsoft.Office.Tools.Excel.Controls.ComboBox

        Dim selection = Globals.ThisWorkbook.Application.Selection

        If TypeName(selection).ToString = "Range" Then

            If selection.count = 1 Then

                myCmb = Me.Controls.AddComboBox(selection.left, selection.top, selection.width, selection.height, "新增")

                With myCmb.Items

                    For i = 1 To 6

                        .Add(i)

                    Next

                End With

            End If

        End If

    End Sub

5、  方法重载

在VBA中我们通过给过程设置可选参数来让一个过程实现不同的功能，这在VSTO里依然可用，但是我们还可以利用方法重载：定义多个名字相同的过程，每个过程的参数类型或个数不完全相同，调用过程时输入不同的参数就会调用不同的过程，这就是方法重载，例如：

下面的三个过程名字相同但参数不同

Private Sub sum(ByVal a As Int16, ByVal b As Int16, ByVal c As Int16)

        Me.Range("a1").Value = a + b + c

    End Sub

    Private Sub sum(ByVal a As Int16, ByVal b As Int16)

        Me.Range("a1").Value = a + b

    End Sub

    Private Sub sum(ByVal a As Int16)

        Me.Range("a1").Value = a

    End Sub

下面三个按钮调用sum过程但输入不同的参数，得到不同的结果

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call sum(1, 2, 3)

    End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Call sum(1, 2)

    End Sub

Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Call sum(1)

End Sub

6、  控件数组

VB中有控件数组可以只写一段代码，让一组控件实现相同的功能。VBA没有控件数组，要实现上述功能只能写类模块，VSTO也没有控件数组，但我们可以使用如下的方法。

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click, Button5.Click, Button6.Click

        RadioButton1.Enabled = False

    End Sub

注意Handles子句，上段代码可以实现单击Button4, Button5, Button6都可以实现RadioButton1按钮不可用，就是说在Handles子句后跟上要实现相同功能的过程名就可以实现控件数组的功能，不需为每个按钮写相同的代码

wpxxsyzx

7、  枚举常量

VSTO中Excel枚举常量存储在不同的命名空间里，要使用枚举常量要明确三件事：一要指定所需常量在那个命名空间里，二要知道所需的枚举常量名（这一点在vba中我们不用关心，只需输入”.”就可以选取常量值了），三要全限定枚举常量，比如：

我们需要的常量名是XlInsertShiftDirection，这个常量在Excel命名空间，全限定输入后就可以选取所需的常量值了。Excel是Microsoft.Office.Interop.Excel命名空间的别名

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Rows("1:1").insert(Excel.XlInsertShiftDirection.xlShiftDown)

        With Range("a1").Borders(Excel.XlBordersIndex.xlEdgeBottom)

            .LineStyle = Excel.XlLineStyle.xlContinuous

            .ColorIndex = Excel.XlColorIndex.xlColorIndexAutomatic

            .Weight = Excel.XlBorderWeight.xlMedium

        End With

    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

With Application.FileDialog(Microsoft.Office.Core.MsoFileDialogType.msoFileDialogFilePicker)

            .Show()

            .AllowMultiSelect = False

            If .SelectedItems.Count = 1 Then

                MsgBox(.SelectedItems(0))

            Else

                MsgBox("没?有&reg;D选?择?文?件t")

            End If

        End With

    End Sub

8、  字符串

VSTO中字符串变身为对象，拥有很多方法、属性，利用这些方法我们可以完成对字符串的分割、截取、替换等操作，这些操作在VBA中我们使用各种函数来实现，例子

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Me.Range("c4").Value = Me.Range("b4").Value.ToString.Split(",")(0)

        Me.Range("d4").Value = Me.Range("b4").Value.ToString.Split(",")(1)

        Me.Range("e4").Value = Me.Range("b4").Value.ToString.Split(",")(2)

        Me.Range("c2").Value = Me.Range("b2").Value.ToString.Length

        Me.Range("d2").Value = Me.Range("b2").Value.ToString.ToUpper

        Me.Range("e2").Value = Me.Range("b2").Value.ToString.Replace("s", "q")

        Me.Range("f2").Value = Me.Range("b2").Value.ToString.Substring(1, 3)

    End Sub

VSTO中很多数据类型都可以使用.ToString将自身转换为字符串，它的作用和CStr函数相同

顺便说下，

1、VSTO中不能再使用定长字符串，

2、数组都是0基的，你不能这样定义数组

Dim a(1 to 10) as string

sscylh

也来占个位..

wqfzqgk

这是vb.net的语法，不是VSTO的{:soso_e102:}

wpxxsyzx

wqfzqgk 发表于 2012-11-19 09:27
这是vb.net的语法，不是VSTO的

vb.net语法是学习vsto的基础，要不就开vs子版块了，你说呢

lipton

熟悉了操作 .Net x.x类库，是在 office对象之外操作office,视野和功能都大不一样了。

HHAAMM

拜读拜读！！

3dcapture

写但太好了，希望版主继续分享好文，受益匪浅，谢谢了。

gjxk999

拜读了，谢谢楼主。