使用VSTO移植VBA

excelflower · 发表于 2010-12-21 10:47

      VSTO实际上是一系列的Visual Studio.NET工程模板，通过它来引导我们开发创建基于Office的解决方案。这里的项目测试针仅对文档级项目。

      VSTO解决方案的优点很多，如实现代码与数据文件分离、有利于保护代码和方便功能更新、安全方面的增强……

      第一次接触VSTO，是这个VS2010版本。经过几天的学习、摸索，发现移植VBA已经变得非常简单。

      VSTO的书籍很少，而且有点过时。买了一本基于VB2005的《VSTO开发指南》，收获不大，还不如看MSDN。但是MSDN上的示例代码，对于习惯VBA的非程序员用户来讲，对象引用、属性和方法的使用等，还是有些陌生。因此，进行了一些尝试，力争象使用VBA一样的方式，来移植我的VBA。

这个项目测试包括以下两个方面：
      一、用VS2010定制功能区示例。
      二、移植VBA代码到VSTO示例。

运行环境：
      一、运行下面的附件示例文件，需要以下3个系统必备组件，请大家自行下载安装。见4楼地址。
            1、

2、

3、

二、Office版本：2007或2010

示例文件： ExcelFlowerVSTO.rar (207.02 KB, 下载次数: 3091)

2010-12-21 10:47 上传
点击文件名下载附件

完整安装包下载：excelvsto@163.com 密码：123456

[ 本帖最后由 excelflower 于 2010-12-22 17:29 编辑 ]

excelflower · 发表于 2010-12-21 10:59

自定义功能区步骤：

1、文件菜单-新建项目，在窗口中选择“EXCEL 2010 工作簿”。

2、项目命名，选择文件格式。

3、生成新建项目界面，修改工作表名称。

4、项目菜单-添加新项，在窗口选择“功能区（可视化设计器）”。

5、打开“工具箱”，拖放“Tab”到设计功能区的顶部，创建新Tab。并在右下的属性窗口中修改相应的属性，如Lable属性值改为“VSTO操作工作表”。

6、拖放“Group”到新建的Tab区域，在右下的属性窗口中修改相应的属性，如Lable属性值改为“工作表操作”。

7、拖放“Butten”到新建的Tab区域，在右下的属性窗口中修改相应的属性，如Lable属性值改为“遍历工作表”，添加图标、更改ControlSize属性为“RibbonControlSizeLarge”。

8、双击任意“Butten”，便可输入代码。

已成功定制你的“自定义功能区”，开始体验代码吧。

[ 本帖最后由 excelflower 于 2010-12-21 11:11 编辑 ]

excelflower · 发表于 2010-12-21 11:03

1楼附件里的移植VBA完整代码，不包括VSTO模板代码。

Imports Microsoft.Office.Tools.Ribbon
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Ribbon1
Public ProtectOffOn&
Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button1.Click
Call ListSheets()
End Sub
Sub 单元格写入值()
Dim i&
With Globals.ThisWorkbook.Worksheets("工作表一")
.select()
.RANGE("A1:B1") = {"名称", "数量"}
For i = 2 To 10
.range("A" & i).VALUE2 = "数据-" & i
.range("B" & i).VALUE2 = i * (100 - i * 10)
Next i
End With
End Sub
Sub ListSheets() '遍历工作表并生成目录
Dim i&, j&, k&
MsgBox("请确认工作表未保护！" & Chr(10) & "这是一个综合示例，包括：" & Chr(10) & "1、遍历工作表;" & Chr(10) & "2、获取特定名称工作表的位置:" & Chr(10) & "3、使用数组;" & Chr(10) & "4、把数组中的值写入工作表;" & Chr(10) & "5、选择工作表。")
With Globals.ThisWorkbook
.Worksheets("工作表目录").select()
j = .Worksheets("汇总表").index '确定开始提取工作表名称的位置，还是确定数组大小的参数
k = .Worksheets.Count - j '确定单元格区域大小
Dim Rng As Excel.Range = .Worksheets("工作表目录").Range("B3").Resize(k, 1)
Dim Arr(0 To k - 1, 0 To 0) As String '数组从0开始
For i = j + 1 To .Worksheets.Count
Arr(i - j - 1, 0) = .Worksheets(i).Name
Next i
Rng.Value2 = Arr
End With
End Sub
Sub Button2_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button2.Click
With Globals.ThisWorkbook
.Worksheets("工作表目录").select()
If ProtectOffOn = 0 Then
.Worksheets("工作表目录").protect(password:="123456")
ProtectOffOn = 1
MsgBox("工作表已保护！再次点击此按钮会解除保护。")
ElseIf ProtectOffOn = 1 Then
.Worksheets("工作表目录").unprotect(password:="123456")
ProtectOffOn = 0
MsgBox("已撤消工作表保护！再次点击此按钮会重新保护。")
End If
End With
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button4.Click
MsgBox("此示例更改最后一个工作表的名称为《更名工作表》。")
With Globals.ThisWorkbook
.Worksheets(.Worksheets.Count).name = "更名工作表"
End With
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button3.Click
MsgBox("此示例删除最后一个工作表。")
With Globals.ThisWorkbook
.Worksheets(.Worksheets.Count).delete()
End With
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button5.Click
MsgBox("此示例在最后增加一个工作表。")
With Globals.ThisWorkbook
.Worksheets.Add(After:=.Worksheets(.Worksheets.Count))
End With
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button6.Click
Call 单元格写入值()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button7.Click
Call 单元格写入值()
MsgBox("下面开始排序。")
With Globals.ThisWorkbook.Worksheets("工作表一")
.range("A:B").sort(key1:=.range("B1"), Header:=Excel.XlYesNoGuess.xlYes)
End With
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button8.Click
Dim i&
Call 单元格写入值()
MsgBox("下面设置边框")
With Globals.ThisWorkbook.Worksheets("工作表一")
i = .range("a" & .Rows.count).end(3).row
.range("A1:B" & i).Borders.LineStyle = 1
MsgBox("下面设置单元格颜色")
.range("A1:A" & i).Interior.ColorIndex = 6
MsgBox("下面设置字体颜色")
.range("B1:B" & i).Font.ColorIndex = 3
End With
End Sub
End Class

复制代码

excelflower · 发表于 2010-12-21 14:38

本帖最后由 ExcelHome 于 2012-10-6 15:55 编辑

3个系统必备组件下载地址：

1、Microsoft .NET Framework 4【http://www.microsoft.com/downloa ... 7&displaylang=zh-cn】

2、Microsoft Visual Studio 2010 Tools for Office Runtime 【http://www.microsoft.com/downloa ... 3a54d609a0#filelist】

3、Windows Installer 3.1【http://www.microsoft.com/downloa ... C&displaylang=zh-cn】

[ 本帖最后由 excelflower 于 2010-12-21 14:43 编辑 ]

AVEL · 发表于 2010-12-21 16:29

怪不得那么多天不见花MM了，原来研究更加高深的资料去了。

AVEL · 发表于 2010-12-21 16:33

网上查找了下，发现Microsoft Visual Studio 2010 Ultimate RTM安装包好大，决定还是下载Visual Studio 2010 Express Edition。应该问题不大吧。花MM

[ 本帖最后由 AVEL 于 2010-12-21 16:39 编辑 ]

excelflower · 发表于 2010-12-21 16:34

原帖由 AVEL 于 2010-12-21 16:29 发表
怪不得那么多天不见花MM了，原来研究更加高深的资料去了。

哈哈，老师来了。
是啊！开始挺迷茫的，书上的代码不好用，MSDN上的代码太晦涩，就按VBA的思路结合MSND的示例去试，有点收获了

AVEL · 发表于 2010-12-21 16:45

我也要学习不懂的地方还要向花MM请教呢。

excelflower · 发表于 2010-12-21 17:16

原帖由 AVEL 于 2010-12-21 16:33 发表
网上查找了下，发现Microsoft Visual Studio 2010 Ultimate RTM安装包好大，决定还是下载Visual Studio 2010 Express Edition。应该问题不大吧。花MM

2G多，下吧。我们还年轻，有时间

liuguansky · 发表于 2010-12-21 17:18

我们还年轻，有时间

		自动登录	找回密码
密码			免费注册

使用VSTO移植VBA

评分

回复 7楼 excelflower 的帖子