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

ASP.NET
实现HtmlButton客户端控制网页提交
开发手记(三)
开发手记(二)
开发手记(一)
.net中PictureBox中图片的拖动
使用ADO.NET轻松操纵数据库
vb.net 中实现画图
C#中使用DirectX编程
LZW算法的 C#实现
在.NET上如何根据字符串动态创建控件
asp.net生成HTML
ASP.NET 2.0页面框架的几处变化
解读C#中的规则表达式
使DATAGRID中的日期按长日期格式显示
application和cache实现缓存的差异
.Net 下区别使用 ByRef/ByVal 的重要性
拷贝整个目录下所有子目录及文件的方法
Asp.net 页面导航的几种方法与比较
VB6 中 善用 ByRef 提升速度
如何使用.net操作ddeml?

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


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