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

ASP.NET
asp.net neatUpload 支持大文件上传组件
ASP.net 动态加载控件时一些问题的总结
web用户控件调用.aspx页面里的方法
asp.net 继承自Page实现统一页面验证与错误处理
asp.net 文件下载实现代码
asp.net ToString()格式设置大全
.NET 水晶报表使用代码
c# NameValueCollection类读取配置信息
asp.net 不用组件的URL重写(适用于较大型项目)
.aspx中的命名空间设置实现代码
asp.net access web.config denied
JAVA正则表达式 Pattern和Matcher
asp.net 每天定点执行任务
asp.net fileupload 实现上传
asp.net slickupload 使用方法(文件上传)
asp.net 从客户端中检测到有潜在危险的 Request.Form 值错误解
关于asp.net button按钮的OnClick和OnClientClick事件
asp.net 权限管理分析
c# table 控件用法
asp.net repeater手写分页实例代码

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


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