在使用VBA编程时，可以使用Worksheets对象的Item属性来按名称访问工作表。以下是一个示例代码，演示如何按名称访问工作簿中的工作表：

Sub AccessWorksheetByName()
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' 设置工作簿对象
    Set wb = ThisWorkbook
    
    ' 按名称访问工作表
    Set ws = wb.Worksheets("Sheet1") ' 将"Sheet1"替换为所需的工作表名称
    
    ' 对工作表进行操作
    ws.Range("A1").Value = "Hello, World!"
    
    ' 释放对象变量
    Set ws = Nothing
    Set wb = Nothing
End Sub

在上述代码中，首先使用ThisWorkbook关键字来设置工作簿对象，以确保代码在当前工作簿中执行。然后，使用Worksheets对象的Item属性并传递工作表名称作为参数，将工作表对象分配给变量ws。接下来，可以使用ws变量来访问和操作所需的工作表。在示例中，代码将在工作表的A1单元格中写入"Hello, World!"。最后，记得释放对象变量以释放内存。