1. 创建和引用工作簿、工作表对象：
Sub CreateWorkbookAndWorksheet()
' 创建新的Excel应用程序
Dim excelApp As Excel.Application
Set excelApp = New Excel.Application
' 创建新的工作簿
Dim workbook As Excel.Workbook
Set workbook = excelApp.Workbooks.Add
' 引用工作表
Dim worksheet As Excel.Worksheet
Set worksheet = workbook.Worksheets(1)
' 在A1单元格写入数据
worksheet.Range("A1").Value = "Hello, VBA!"
' 保存工作簿
workbook.SaveAs "C:\Path\To\Your\Workbook.xlsx"
' 关闭Excel应用程序
excelApp.Quit
Set excelApp = Nothing
End Sub
2. 获取单元格的值和设置单元格的值：
Sub ReadWriteCellValue()
' 引用已打开的工作簿
Dim workbook As Excel.Workbook
Set workbook = Workbooks("YourWorkbook.xlsx")
' 引用工作表
Dim worksheet As Excel.Worksheet
Set worksheet = workbook.Worksheets("Sheet1")
' 读取A1单元格的值
Dim cellValue As Variant
cellValue = worksheet.Range("A1").Value
' 在B1单元格设置新的值
worksheet.Range("B1").Value = "New Value"
End Sub
3. 循环操作单元格：
Sub LoopThroughCells()
' 引用已打开的工作簿
Dim workbook As Excel.Workbook
Set workbook = Workbooks("YourWorkbook.xlsx")
' 引用工作表
Dim worksheet As Excel.Worksheet
Set worksheet = workbook.Worksheets("Sheet1")
' 循环遍历A列中的所有单元格
Dim cell As Excel.Range
For Each cell In worksheet.Range("A:A")
' 在这里执行您的操作，例如输出每个单元格的值
Debug.Print cell.Value
Next cell
End Sub
4. 使用地址、行和列的方式引用单元格：
Sub CellReferenceMethods()
' 引用已打开的工作簿
Dim workbook As Excel.Workbook
Set workbook = Workbooks("YourWorkbook.xlsx")
' 引用工作表
Dim worksheet As Excel.Worksheet
Set worksheet = workbook.Worksheets("Sheet1")
' 使用地址引用单元格
Dim cellByAddress As Excel.Range
Set cellByAddress = worksheet.Range("B2")
' 使用行和列的方式引用单元格
Dim cellByRowColumn As Excel.Range
Set cellByRowColumn = worksheet.Cells(2, 2)
' 在这里执行您的操作
End Sub
这些示例演示了如何创建工作簿、工作表对象，以及如何读取、写入和循环操作单元格。根据您的需求，可以通过VBA在Excel中执行各种单元格操作。
转载请注明出处：http://www.zyzy.cn/article/detail/316/VBA