access 中外链表excel 诺要外链表移动位置 改如何更改

Function 链接表()
   Dim db As Object
    Set db = CurrentDb
    Dim tbl As TableDef
    For Each tbl In db.TableDefs
    If Len(tbl.Connect) > 0 Then
       Debug.Print tbl.Connect         
'        tbl.RefreshLink
    End If
    Next
    MsgBox "链接表刷新成功"

End Function

把 tbl.Connect       里面的路径改下     D:\Users\peifeng.huang\Desktop\     改成  D：\    后面的文件夹名都不变

改法   用mid left  instr replace 啊 之类的都行