VSTO如何调用application对象的成员

civl

<VSTO开发者指南.pdf>中抄来的代码，IDE是Visual Studio 2015企业版Update 1

1. <div>Try
   
2.           Dim SelectedRange As Excel.Range
   
3.           SelectedRange = Application.InputBox("请选择范围", "随机数", CType(Application.Selection, Excel.Range).Address)
   
4.           SelectedRange.Value = "=Rand()"
   
5.           SelectedRange.BorderAround2(Excel.XlLineStyle.xlDashDotDot, Excel.XlBorderWeight.xlMedium, Excel.XlColorIndex.xlColorIndexAutomatic)</div><div>Catch ex As Exception
   
6. 
   
7. End Try</div>

复制代码

初学VSTO，HelpViewer 2.2帮助文件中不知道怎么搜到想要的信息。
看来这本书不适合VS 2015。某宝搜VSTO都是这本过期的书。精华帖那些英文版够我翻译一阵子了。今天就放弃VSTO吧，有机会再来试。

yyltt

看你的截图，你的按钮9是放在什么位置上不清楚，在ribbon上，还是工作单上，还是task pane上，在不同的地方调用application，前面有限定的，这应该是对象范围的事。另外这本书有点跳跃性，不是那种一步一步的教程，你应该看看别的教程，vsto for dummies还是可以的，而且比较新。

civl

yyltt 发表于 2016-2-10 22:35
看你的截图，你的按钮9是放在什么位置上不清楚，在ribbon上，还是工作单上，还是task pane上，在不同的地方 ...

谢谢，我用Globals.ThisWorkbook.Application后就能调用对象了
ExcelWorkbook2010.rar (707.96 KB, 下载次数: 26)

2016-2-12 09:33 上传

点击文件名下载附件

1.     Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs) Handles Button1.Click
   
2.         Try
   
3.             Dim SelectedRange As Excel.Range
   
4.             SelectedRange = Globals.ThisWorkbook.Application.InputBox("请选择范围", "随机数", CType(Globals.ThisWorkbook.Application.Selection, Excel.Range).Address, Type:=8)
   
5.             SelectedRange.Formula = "=Rand()"
   
6.             SelectedRange.BorderAround2(Excel.XlLineStyle.xlDashDotDot, Excel.XlBorderWeight.xlMedium, Excel.XlColorIndex.xlColorIndexAutomatic)
   
7.         Catch ex As Exception
   
8. 
   
9.         End Try
   
10.     End Sub

复制代码