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

ASP.NET
不同映射模式下的直线输出的效果问题
ASP.NET开发下的MVC设计模式的实现
ASP.NET编写应用程序的十大技巧
ASP.NET中使用AJAX的简单方法
ASP.NET MVC实现自己的视图引擎
认识asp.net会话状态
ASP.NET实现页面传值的几种方法
.NET中容易混淆的几组重要概念
详解.NET中的动态编译技术
如何使用ASP.Net加密Cookie
ASP.NET 2.0跨网页提交的三种方法
ASP.NET 2.0创建母版页引来的麻烦
.Net整合其他平台的一些探讨
ASP.NET编程经验技巧10则
最佳实践 ADO.NET实用经验无保留曝光
在.NET上执行多线程操作要考虑的两大因素
.Net开发 细说Visual Basic.Net
ASP.NET网络编程中经常用到的27个函数集
ASP.NET防止用户多次登录的方法
对ASP.NET MVC项目中的视图做单元测试

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 162 ::
收藏到网摘: 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