Uzak Masa üstüne bağlantı

[tamer42]

Merhaba,

uzak masaüstü' de "C" klasörü içinde bulunan Excel dosyasını açmak ve içinden bilgi almak istiyorum.

Server' in ip ini girerek kendi masa üstü' mden bu dosyayı açarak Sayfa1 , Range("A1") değerini almak.

Sub openWBook()

Const sFile  = "VeriTabanı.xlsx"
Dim Separator As Variant

Separator = Application.PathSeparator

On Error GoTo 20

    Dim stFile As String

        stPath =..........................\............................
           
        stFile = stPath & Separator & sFile

        Set wb2 = Workbooks.Open(stFile)
    
       x = wb2.Sheets("Sayfa1").Range ("A1")
    
20:
End Sub

Yardımlarınız için şimdiden teşekkürler