Uzak Masa üstüne bağlantı

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
1,594
Excel Vers. ve Dili
Office 2013 İngilizce
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.

Kod:
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
 
Üst