用宏可以解决
Function ReadData()
Dim tmp_str As String
tmp_str = "'c:\[book]" & Sheets("sheet1").Cells(1, 1).Value & "'!A1"
Sheets("sheet1").Cells(2, 1).Value = ExecuteExcel4Macro(tmp_str)
End Function
tmp_str格式:'路径[工作簿名]工作表名'!单元格
(“'”在字符串中要保留)
联系客服