请大神指教：如何用vba打开指定的excel抓数

yeahan

每周我们会收到顾客的周销售数据，周销售数据名如WK11,WK12,WK13，由于工作需要，我们需要每周将顾客数据更新到内部报告（每周会有一份），我想通过改内部报告名来更新数据， 譬如将本周内部报告改成reportWK13, 然后 mid抓出WK13,再用抓出来的WK13去打开 D:\data 里面WK13 excel 再update数据进来reportWK13，我现在写的代码如下,总是说在workbooks open出错，请各位大神帮忙看看，
Sub name()
Dim a$, b$, c$, d$
a = ActiveWorkbook.name
b = Mid(a, 7, 4)
c = "D:\data"
Workbooks.Open (c & "\" & b)
End Sub