1. 打开工作簿和引用工作表：
打开工作簿：
Sub OpenWorkbook()
' 打开现有的工作簿
Dim workbook As Workbook
Set workbook = Workbooks.Open("C:\Path\To\Your\Workbook.xlsx")
End Sub
引用工作表：
Sub ReferenceWorksheet()
' 引用活动工作表
Dim worksheet As Worksheet
Set worksheet = ActiveSheet
' 或者引用特定的工作表（按名称）
Set worksheet = Worksheets("Sheet1")
' 或者引用特定的工作表（按索引）
Set worksheet = Worksheets(1)
End Sub
2. 创建新工作簿和工作表：
创建新工作簿：
Sub CreateNewWorkbook()
' 创建新的工作簿
Dim newWorkbook As Workbook
Set newWorkbook = Workbooks.Add
End Sub
创建新工作表：
Sub CreateNewWorksheet()
' 引用活动工作簿
Dim activeWorkbook As Workbook
Set activeWorkbook = ActiveWorkbook
' 在活动工作簿中创建新的工作表
Dim newWorksheet As Worksheet
Set newWorksheet = activeWorkbook.Worksheets.Add
' 或者在特定的工作簿中创建新的工作表
Set newWorksheet = Workbooks("YourWorkbook.xlsx").Worksheets.Add
End Sub
3. 复制、移动和删除工作表：
复制工作表：
Sub CopyWorksheet()
' 引用源工作表
Dim sourceWorksheet As Worksheet
Set sourceWorksheet = Worksheets("SourceSheet")
' 复制工作表到同一工作簿中
sourceWorksheet.Copy Before:=Worksheets("Sheet2")
' 或者复制工作表到另一个工作簿中
sourceWorksheet.Copy Before:=Workbooks("DestinationWorkbook.xlsx").Worksheets("Sheet1")
End Sub
移动工作表：
Sub MoveWorksheet()
' 引用要移动的工作表
Dim worksheetToMove As Worksheet
Set worksheetToMove = Worksheets("Sheet1")
' 将工作表移动到同一工作簿中的位置
worksheetToMove.Move Before:=Worksheets("Sheet2")
' 或者将工作表移动到另一个工作簿中的位置
worksheetToMove.Move Before:=Workbooks("DestinationWorkbook.xlsx").Worksheets("Sheet1")
End Sub
删除工作表：
Sub DeleteWorksheet()
' 引用要删除的工作表
Dim worksheetToDelete As Worksheet
Set worksheetToDelete = Worksheets("Sheet1")
' 删除工作表
Application.DisplayAlerts = False ' 禁止显示警告对话框
worksheetToDelete.Delete
Application.DisplayAlerts = True
End Sub
这些示例演示了如何在VBA中执行工作簿和工作表的基本操作，包括打开、引用、创建、复制、移动和删除。您可以根据具体需求，结合这些方法来进行更复杂的工作表和工作簿操作。
转载请注明出处：http://www.zyzy.cn/article/detail/313/VBA