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

我使用这段代码来复制和粘贴一个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")谢谢！