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

ASP.NET
ASP.NET编程中的十大技巧
ASP.NET常用函数(推荐)
ASP.NET上传图片并生成可带版权信息的缩略图
用javascript打造搜索工具栏
ASP.NET中动态控制RDLC报表
用ASP.NET还原与恢复Sql server
在ASP.NET里得到网站的域名
Asp.net中的mail的发送
用ASP.Net实现文件的在线压缩和解压缩
ASP.NET中文件上传下载方法集合
ASP.NET通过Remoting service上传文件
ASP.NET2.0服务器控件之Render方法
ASP.NET2.0新特性概述
asp.net2.0如何加密数据库联接字符串
用.NET 2.0压缩/解压功能处理大型数据
ASP.NET入门随想之检票的老太太
ASP与ASP.NET互通COOKIES的一点经验
ASP.NET2.0数据库入门之SqlDataSource
ASP.NET2.0数据库入门之SQL Server
ASP.NET 2.0下的条件编译

No. « 31 32 33 34 »

技术文章搜索

关键字

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

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