源代码：temp =  " ' " & App.Path & "\[源数据表.xls]sheet1'!r1c1"
，如何将sheet1工作表修改为第二张工作表引用的代码（工作表名不固定）

temp =  " ' " & App.Path & "\[源数据表.xls]" &  EXCEL对象.workbooks(1).Sheets(2).name &  "'!r1c1"

这个 源数据表.xls 工作簿需要使用一个 EXCEL对象打开。临时使用可以用上面的，
也可以先把工作表的名字读出来，然后关闭文件 ，然后只使用读到的数据。

workbooks(1)  表示打开的第一个工作簿。也可以使用 ActiveWorkbook 来引用活动工作簿
Sheets(2)     表示第二个工作表
name          取工作表的名字，得到的结果如上面的 sheet1