VBA使用变量选择工作表

Question

我试图编码一个系统，我从一组工作表，其标题是由用户生成的选择数据。然后将创建的工作表的标题存储为字符串。是否有办法打开/参考使用这些字符串的工作表?

我的代码如下

Dim Title As String
Dim Sheet_title As Worksheet
Sheets("Config").Select
Sheets("config").range("C25").Select

Title = ActiveCell.Value
Debug.Print Title
Sheet_title = Title
Sheets("Results").range("B7") = Sheets(title).range("E8")

"表(标题)";失败，以及我试图通过设置Sheet_Title = Title(对象变量未设置-错误91)来修复它。

是否有任何方法来选择使用字符串变量的工作表?

Answer 1

引用对象(Set)

快速修复

• 要引用工作表(任何对象)，需要使用Set关键字:

  Set Sheet_title = Sheets(Title)
  Sheets("Results").Range("B7").Value = Sheet_title.Range("E8").Value
  

推荐

Option Explicit
Sub Test()
Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code

Dim wsCon As Worksheet: Set wsCon = wb.Sheets("Config")
Dim Title As String: Title = wsCon.Range("C25").Value
Debug.Print Title

Dim wsTit As Worksheet: Set wsTit = wb.Sheets(Title)

Dim wsRes As Worksheet: Set wsRes = wb.Sheets("Results")

wsRes.Range("B7").Value = wsTit.Range("E8").Value
End Sub