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

ASP.NET
ASP.Net分页控件源码
Community Server专题一:概述Community Server
Community Server专题三:HttpModule
relaxlife.net发布一个自己开发的中文分词程序
RLCSS分词系统更新下载
asp.net获取SQL所有数据库名、所有表名、所有字段名
asp.net下获取Excel所有的工作表名称
Asp.Net常用函数
asp.net下用url重写URLReWriter实现任意二级域名的方法
在.NET中利用XMLHTTP下载文件的代码
在ASP.NET 中实现单点登录
c# .net 生成图片验证码的代码
asp.net中MD5 16位和32位加密函数
自己常用到的自定义公共类(已测试通过)
ASP.NET 2.0下随机读取Access记录的实现方法
.NET(C#)连接各类数据库代码-集锦
nunit使用指南之—NUnit Quick Start
ASP.NET中读取XML文件信息的4种方法与示例代码
asp.net中获取远程网页的内容之一(downmoon原创)
asp.net下获取远程网页的内容之二(downmoon原创)

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


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