Excel VBA 了解这点,做任何事

'Workbook 对象:Microsoft Excel 工作簿对象,可以看成当前打开的 Excel 文件
'可以使用 Application 对象的 ActiveWorkbook 属性得到当前工作簿实例。

'Worksheet 对象:工作表对象,是Worksheets 集合的成员
'可以使用 Worksheet 对象的 ActiveSheet 属性得到当前工作表实例。

'那么,试试获取当前工作簿的名称吧,应该会返回“Sheet1”

Sub TestWooksheetName()

Dim myWorkBook As Workbook
Dim mySheet As Worksheet

Set myWorkBook = Application.ActiveWorkbook
Set mySheet = myWorkBook.ActiveSheet

Debug.Print mySheet.Name

End Sub


'Cells 属性:Worksheet 对象的属性,表示工作表所有单元格
'它像一个二维数组,第一维是工作表行位置,第二维是工作表列位置,
'例如,取得工作表第一行第一列单元格表示为 Cells(1,1)

'遍历工作表第一列的所有内容及第一行的所有内容

Sub TestListColumns()

Dim myWorkBook As Workbook
Dim mySheet As Worksheet

Set myWorkBook = Application.ActiveWorkbook
Set mySheet = myWorkBook.ActiveSheet

Dim i As Long

'遍历工作表第一列的所有内容
For i = 1 To mySheet.Cells.Count
    If Len(mySheet.Cells(i, 1)) = 0 Then Exit For   '如果单元格为空则跳出循环
    Debug.Print mySheet.Cells(i, 1)
Next i

'遍历工作表第一行的所有内容
For i = 1 To mySheet.Cells.Count
    If Len(mySheet.Cells(1, i)) = 0 Then Exit For   '如果单元格为空则跳出循环
    Debug.Print mySheet.Cells(1, i)
Next i

End Sub


'上例中用 Cells.Count 取得了工作表所有的单元格,是一个比较大的数值。
'如果你想深入学习 Excel VBA 可能要去了解一下 Worksheet.UsedRange 对象的 Columns 属性和 Rows 属性,
'但仅是知道上面这些,只要你了解 VBscript 我觉得可以做任何事情了。
[本日志由 parno 于 2013-05-01 01:21 AM 更新]
上一篇: 搜搜工具条删除记
下一篇: C# 常用函数、正则表达式
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: Excel VBA VBscript
相关日志:
评论: 0 | 引用: 0 | 查看次数: 7795
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 500 字 | UBB代码 关闭 | [img]标签 关闭