使Excel/VBA根据单元格值生成文件名

我使用此代码将值从一个excel文件复制并粘贴到另一个excel文件，效果非常好：

Sub TransferValues()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet



Set wb1 = Workbooks("ABC.xls") 
Set ws1 = wb1.Sheets("SHEET1") 

Set wb2 = Workbooks("CBA") 
Set ws2 = wb2.Sheets("SHEET2") 


'This line puts the value from wb1.ws1 in wb2.ws2, cells specified:
ws2.Range("O3:O33").Value = ws1.Range("I82:I112").Value
ws2.Range("O35:O65").Value = ws1.Range("J82:J112").Value


End Sub

但是，现在我必须手动告诉VBA它必须抓取“

ABC

”文件。 有没有办法让Excel读取包含工作簿名称的单元格。 例如，工作簿

CBA

在

A1

ABC

我的想法是：

Set wb1=Workbooks（“（A1.xls”）

---

谢谢大家!

Set wb1=工作簿（wb2.Sheets（“Sheet1”）.Range（“A1”）.value）

我得到一个

运行时错误'91'

Set wb1=工作簿（wb2.Sheets（“Sheet1”）.Range（“A1”）.value）

我得到一个

运行时错误'91'