VBScript Excel.Range 对象
最后修改于 2025 年 4 月 9 日
VBScript 中的 Excel.Range 对象代表 Excel 工作表中的一个单元格、一行、一列或一个单元格选区。它是与工作表数据交互的主要对象。Range 对象提供了用于以编程方式读取、写入和操作 Excel 单元格的属性和方法。
使用 Range 对象，您可以访问单元格值、应用格式、执行计算等。本教程通过实际示例涵盖了 Range 对象，以演示其在 VBScript Excel 自动化中的用法。
Excel.Range 对象概述
Excel.Range 对象是 VBScript 访问的 Excel 对象模型的一部分。它可以引用单个单元格（如“A1”）或多个单元格（如“A1:B10”）。该对象提供了许多用于单元格操作的属性和方法。
关键属性包括用于单元格内容的 Value、用于公式的 Formula 和用于文本格式的 Font。方法包括 Copy、Clear 和 Select。理解此对象对于 VBScript Excel 自动化至关重要。
访问单个单元格
本示例演示如何使用 Range 对象访问和修改单个单元格的值。它展示了 VBScript 的基本 Excel 自动化。该脚本创建一个 Excel 实例，访问工作表，并修改单元格 A1。
Set excel = CreateObject("Excel.Application")
excel.Visible = True
Set workbook = excel.Workbooks.Add()
Set worksheet = workbook.Worksheets(1)
' Access and modify cell A1
Set rng = worksheet.Range("A1")
rng.Value = "Hello, Excel!"
' Clean up
Set rng = Nothing
Set worksheet = Nothing
Set workbook = Nothing
Set excel = Nothing
脚本启动 Excel，创建一个新的工作簿，并获取第一个工作表。然后，它使用 Range 对象访问单元格 A1 并设置其值。最后，它通过释放所有对象引用来清理。Excel 保持可见。
使用多个单元格
本示例展示了如何处理多个单元格的范围。它演示了为单元格块设置值并将它们读回。Range 对象可以使用“A1:B2”表示法引用矩形单元格区域。
Set excel = CreateObject("Excel.Application")
excel.Visible = True
Set workbook = excel.Workbooks.Add()
Set worksheet = workbook.Worksheets(1)
' Set values for range A1:B2
Set rng = worksheet.Range("A1:B2")
rng.Value = Array(Array(1, 2), Array(3, 4))
' Read and display values
For Each cell In rng
WScript.Echo "Cell " & cell.Address & " = " & cell.Value
Next
' Clean up
Set rng = Nothing
Set worksheet = Nothing
Set workbook = Nothing
Set excel = Nothing
脚本创建一个 2x2 的值数组并将其分配给范围 A1:B2。然后，它遍历范围内的每个单元格并显示其地址和值。Array 函数为范围分配创建了一个二维数组。
格式化单元格
本示例演示如何使用 Range 对象进行单元格格式设置。它展示了如何更改字体属性、单元格颜色和数字格式。格式设置增强了自动化 Excel 报表中的数据呈现。
Set excel = CreateObject("Excel.Application")
excel.Visible = True
Set workbook = excel.Workbooks.Add()
Set worksheet = workbook.Worksheets(1)
' Set cell value and apply formatting
Set rng = worksheet.Range("A1")
rng.Value = 1234.56
rng.Font.Bold = True
rng.Font.Color = RGB(255, 0, 0) ' Red
rng.NumberFormat = "$#,##0.00"
' Format a range of cells
Set rng2 = worksheet.Range("B1:D3")
rng2.Interior.Color = RGB(200, 200, 255) ' Light blue
rng2.Font.Name = "Arial"
rng2.Font.Size = 12
' Clean up
Set rng2 = Nothing
Set rng = Nothing
Set worksheet = Nothing
Set workbook = Nothing
Set excel = Nothing
脚本使用粗体红色字体和货币格式格式化单元格 A1。然后，它使用浅蓝色背景、Arial 字体和 12 磅大小格式化范围 B1:D3。RGB 函数使用红色、绿色和蓝色分量指定颜色。
使用 Cells 属性
本示例展示了如何使用 Cells 属性通过行号和列号访问范围。Cells 属性提供了 A1 表示法的替代方案。在循环中进行编程单元格访问时非常有用。
Set excel = CreateObject("Excel.Application")
excel.Visible = True
Set workbook = excel.Workbooks.Add()
Set worksheet = workbook.Worksheets(1)
' Fill 5x5 grid using Cells property
For row = 1 To 5
For col = 1 To 5
Set cell = worksheet.Cells(row, col)
cell.Value = row * col
Next
Next
' Access a range using Cells
Set rng = worksheet.Range(worksheet.Cells(1,1), worksheet.Cells(5,5))
rng.Font.Bold = True
' Clean up
Set rng = Nothing
Set worksheet = Nothing
Set workbook = Nothing
Set excel = Nothing
脚本使用嵌套循环将乘法表的值填充到 5x5 网格中。然后，它使用 Cells 属性访问整个范围，并将所有文本设为粗体。Cells 属性以行号和列号作为参数。
使用公式
本示例演示如何使用 Range 对象处理 Excel 公式。它展示了如何设置公式、读取计算值以及使用相对引用。公式是自动化计算的强大工具。
Set excel = CreateObject("Excel.Application")
excel.Visible = True
Set workbook = excel.Workbooks.Add()
Set worksheet = workbook.Worksheets(1)
' Set values and formulas
worksheet.Range("A1").Value = 10
worksheet.Range("A2").Value = 20
worksheet.Range("A3").Formula = "=A1+A2"
worksheet.Range("A4").Formula = "=SUM(A1:A3)"
' Display formula and value
Set rng = worksheet.Range("A3")
WScript.Echo "Formula: " & rng.Formula & ", Value: " & rng.Value
' Clean up
Set rng = Nothing
Set worksheet = Nothing
Set workbook = Nothing
Set excel = Nothing
脚本在 A1 和 A2 中设置值，然后在 A3 和 A4 中添加公式。A3 公式将 A1 和 A2 相加，而 A4 对范围 A1:A3 求和。然后，它显示 A3 的公式和计算值。Excel 会自动计算公式结果。
来源
在本文中，我们探讨了 VBScript 中的 Excel.Range 对象，涵盖了其用法和实际应用。从基本的单元格访问到高级格式设置和公式，这些示例展示了 Excel 的自动化功能。通过这些知识，您可以使用 VBScript 创建强大的 Excel 自动化脚本。