使用VBA进行编程时,用户将要处理的重要对象很少。下面是一些常见的对象 –

  • 应用程序对象
  • 工作簿对象
  • 工作表对象
  • 范围对象

应用程序对象

应用程序对象由以下部分组成 –

  • 应用程序范围的设置和选项。
  • 返回顶级对象的方法,比如ActiveCellActiveSheet等等。

示例

'Example 1 :
Set xlapp = CreateObject("Excel.Sheet") 
xlapp.Application.Workbooks.Open "C:\test.xls"

'Example 2 :
Application.Windows("test.xls").Activate

'Example 3:
Application.ActiveCell.Font.Bold = True

工作簿对象

Workbook对象是Workbooks集合的成员,并包含当前在Microsoft Excel中打开的所有Workbook对象。

示例

'Ex 1 : To close Workbooks
Workbooks.Close

'Ex 2 : To Add an Empty Work Book
Workbooks.Add

'Ex 3: To Open a Workbook
Workbooks.Open FileName:="Test.xls", ReadOnly:=True

'Ex : 4 - To Activate WorkBooks
Workbooks("Test.xls").Worksheets("Sheet1").Activate

工作表对象

工作表对象是工作表集合的成员,并包含工作簿中的所有工作表对象。

示例

'Ex 1 : To make it Invisible
Worksheets(1).Visible = False

'Ex 2 : To protect an WorkSheet
Worksheets("Sheet1").Protect password:=strPassword, scenarios:=True

范围对象

Range对象表示单元格,行,列或包含一个或多个连续单元格块的单元格的选择。

'Ex 1 : To Put a value in the cell A5
Worksheets("Sheet1").Range("A5").Value = "5235"

'Ex 2 : To put a value in range of Cells
Worksheets("Sheet1").Range("A1:A4").Value = 5

sheet表达

Sheet1.Select
ThisWorkbook.Sheets(2).Select  ’2表示第2个Sheet,下标从1开始

单元格

[A1]
Range("A1").Select
Cells(1, 1)
ThisWorkbook.Sheets(1).Cells(rowNum, colNum)
ThisWorkbook.Sheets(7).Range("A" & rowNum)

Excel所在路径

fn = ThisWorkbook.Path

范围

Arr = [a1].CurrentRegion'选中a1,Ctrl+A

为对象增加超链接

Hyperlinks.Add 方法

向指定的区域或形状添加超链接。

语法

expression.Add (AnchorAddressSubAddressScreenTipTextToDisplay)

expression:一个表示 Hyperlinks 对象的变量。

Parameters

名称必需/可选数据类型说明
Anchor必需Object超链接的定位标记。 可为 Range 或 Shape 对象。
Address必需String超链接的地址。
SubAddress可选Variant超链接的子地址。
ScreenTip可选Variant当鼠标指针停留在超链接上时所显示的屏幕提示。
TextToDisplay可选Variant要为超链接显示的文本。

返回值

一个 Hyperlink 对象,它代表新的超链接。

注解

指定 TextToDisplay 参数时,文本必须是字符串。

示例

此示例向单元格 A5 添加超链接。VB复制

With Worksheets(1) 
 .Hyperlinks.Add Anchor:=.Range("a5"), _ 
 Address:="https://example.microsoft.com", _ 
 ScreenTip:="Microsoft Web Site", _ 
 TextToDisplay:="Microsoft" 
End With

此示例向单元格 A5 添加一个电子邮件超链接。VB复制

With Worksheets(1) 
 .Hyperlinks.Add Anchor:=.Range("a5"), _ 
 Address:="mailto:someone@example.com?subject=hello", _ 
 ScreenTip:="Write us today", _ 
 TextToDisplay:="Support" 
End With 
最后修改日期: 2020-05-18

作者

留言

撰写回覆或留言

发布留言必须填写的电子邮件地址不会公开。

Captcha Code