excel vba 要是取一个c:/1.xls 中的sheet1中a1的值怎么取？

下面代码就是
Sub a()
Dim c, a
Set c = GetObject("c:\1.xls") '打开文件
a = c.Sheets("sheet1").Cells(1, 1).Value '取的a1单元格的值

End Sub