- Katılım
- 11 Mart 2005
- Mesajlar
- 3,121
- 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.
Yardımlarınız için şimdiden teşekkürler
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