VBA怎样文件路径用变量表示

Dim Wb As Workbook
    Set Wb = GetObject("D:\税金.xls")
    Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To 20
   ActiveSheet.Cells(i, 1).Formula = Wb.Sheet(1).Range("A" & i) '这里的路径用怎样用变量表示
   ActiveSheet.Cells(i, 2).Formula = Wb.Sheet(1).Range("b" & i)
Next i
   ActiveSheet.Range("a1").CurrentRegion.Copy
   ActiveSheet.Range("a1").PasteSpecial xlPasteValues
   ActiveSheet.Range("a1").PasteSpecial xlPasteValues
   Application.CutCopyMode = False
   Application.ScreenUpdating = True
   
    Wb.Close False