求助大神在局域网里复制某台电脑Excel文件里的内容的代码

bet00738

在网上找了一下代码：
Sub test()
    Application.ScreenUpdating = False
    On Error Resume Next
    f = "\\192.168.1.114\迅雷下载\数据库.xlsx"
        If Dir(f) <> "" Then
            With GetObject(f)
                arr = .Sheets("sheet" & i).UsedRange
                .Close False
            End With
            With ActiveSheet
                .UsedRange.ClearContents
                .[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
            End With
        End If
        Application.ScreenUpdating = True
End Sub

但是文件如果在本机的话就可以复制指定内容，但是文件在局域网的其他电脑里就不行。如果电脑有用户名和密码应该怎么改代码？