GetObject 函数问题 急急急!坐等！

Sub fuzhi()
Dim m As Long, wb As String, n As workbook
With Sheet1.Range("a1").CurrentRegion
wb = ThisWorkbook.Path & "D:\工具箱\自学vba\提取数据.xlsx"
Set n = GetObject(wb)
m = n.Sheets("Sheet2").Range("a1").CurrentRegion.Rows.Count
n.Sheets("Sheet2").Cells(m + 1, 1).Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
End Sub

想把当前workbook上的内容赋值到d盘下：提取数据.xlsx，sheet2中

并且在不打开：提取数据.xlsx这个workbook的前提下

但调试的时候， 提示说：Set n = GetObject(wb)出错

GetObject 参数设置不对吧。