当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 列出所有的sheet,然后点击其中的一个,自动跳过去

ASP.NET
灵活正确的实现.NET插件机制
在Asp.net中为图像加入版权信息
重构Session确实让代码简洁干净了不少
JSP与ASP.Net之间的Session值共享
如何获取当前程序文件的路径 Current Path
在.NET框架应用程序中发送电子邮件
asp.net开发wap程序必备:识别来访手机品牌型号
ASP.NET 2.0中使用自定义provider
asp.net开发wap必备:更好的匹配手机设备
用ashx动态生成文件
ASP.NET中17种正则表达式
提高ASP.Net应用程序性能的十大方法
一个通过web.Mail发送邮件的类
在DataGrid里面根据日期的不同显示new图标
Asp.Net细节性问题精萃
自定义控件中使用枚举类型的属性(原创)
.NET开发 正则表达式中的 Bug
.Net学习:IronPython分析Lambda表达式
ASP.NET中的Response对象的方法
在ASP.NET 2.0中数据绑定的实现方法

ASP.NET 中的 列出所有的sheet,然后点击其中的一个,自动跳过去


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 110 ::
收藏到网摘: n/a

很高兴啊,刚才实现了一个功能,excel的vba编程,终于可以列出所有的sheet,然后点击其中的一个,自动跳过去!代码很简单,如下:Private Sub ListBox1_Click()

Workbooks.Application.Sheets(ListBox1.ListIndex + 1).Select

End Sub


Private Sub UserForm_Click()

ListBox1.Clear

Dim i As Integer

For i = 1 To Workbooks.Application.Sheets.Count

Set WsheetA = Workbooks.Application.Sheets(i)

Me.ListBox1.AddItem WsheetA.Name

Next i

End Sub