File Server Üzerindeki Dökümanlar

Salyangoz

Altın Üye
Katılım
27 Eylül 2007
Mesajlar
107
Excel Vers. ve Dili
Office 2007 English
Office 2010 English
Altın Üyelik Bitiş Tarihi
07-07-2029
Selamlar arkadaşlar,

Kendi bilgisayarımda iki dökümanım var 1 ve 2 olarak,
1. dökümanda veri doğrulama ile 2. dökümandaki bir listeden veri alabiliyorum.
Ancak bu iki dökümanı bir Server altına attığımda, örneğin \\fileserver\documents\... gibi, çalışmıyor. Bu sorunu sağlıklı bir şekilde nasıl çözebiliyoruz ?

Ben açıkçası çalışmalarımı hep kendi bilgisayarımda yaptım, ancak birden fazla kişinin kullanımı için ve daha güvenli olduğunu düşündüğümden server üzerinde bu çalışmayı yapmayı düşünüyorum.
 
Katılım
27 Şubat 2007
Mesajlar
353
Excel Vers. ve Dili
2002 Türkçe
sayın salyangoz guzel bir konuya temas etmişsiniz, arkadaslar yardımcı olursa bu bilgi benim de cok işime yarayacak.

iyi akşamlar
 

Salyangoz

Altın Üye
Katılım
27 Eylül 2007
Mesajlar
107
Excel Vers. ve Dili
Office 2007 English
Office 2010 English
Altın Üyelik Bitiş Tarihi
07-07-2029
Eğer bunu yapamassak mecburen her bir dökümanın içerisine verileri almamız gerekecek, her döküman içerisine verilerin olduğu bir sheet...
 
Son düzenleme:

Salyangoz

Altın Üye
Katılım
27 Eylül 2007
Mesajlar
107
Excel Vers. ve Dili
Office 2007 English
Office 2010 English
Altın Üyelik Bitiş Tarihi
07-07-2029
Server değil başka bir bilgisayar da olsa olur, başka bir bilgisayardaki Excel dökümanından veri çekilebiliyor mu..?
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,356
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
Bunun gibi olabilir. Test edin.
Kod:
Sub Test()
On Error Resume Next
Dim Cn As Object, Rs As Object
 
Set Cn = CreateObject("adodb.connection")
 
Cn.Open _
"Driver={microsoft excel driver (*.xls)};" & _
    "dbq=\\Bilgisyar_Adi\SharedDocs\Test.xls"
 
Set Rs = Cn.Execute( _
"Select * From [Sayfa1$a1:d65536]")
 
ThisWorkbook.ActiveSheet.[a1].CopyFromRecordset Rs
 
Rs.Close
Cn.Close
 
If Err = 0 Then MsgBox "Bağlantı başarılı oldu."

End Sub
 

Salyangoz

Altın Üye
Katılım
27 Eylül 2007
Mesajlar
107
Excel Vers. ve Dili
Office 2007 English
Office 2010 English
Altın Üyelik Bitiş Tarihi
07-07-2029
Bir hareket görmedim bu kodu yazdıktan sonra, ama birden fazla dökümana ulaşmak amacım, yani örneğin 1.xlsx, 2.xlsx, 3.xlsx.... gibi 100 e yakın düşünürsek döküman sayısı fazla, ne önerirsiniz ?
 

Salyangoz

Altın Üye
Katılım
27 Eylül 2007
Mesajlar
107
Excel Vers. ve Dili
Office 2007 English
Office 2010 English
Altın Üyelik Bitiş Tarihi
07-07-2029
1.5 yıl oldu üzerinden geçti, olaya şöyle yaklaşırsak...
Elimde bir döküman var, bu döküman server üzerinde \\10.0.0.3\excel altında
Birde verileri çekeceğim bir döküman var, bu döküman yine aynı path üzerinde
Bu durumda verileri aşağıdaki gibi okutabiliyorum, bir sorun olmuyor
=IF([Veriler.xlsx]Personel!$A2="","",[Veriler.xlsx]Personel!$A2)
Ancak bu dökümanı mail olarak yine \\10.0.0.3\excel altında yetkisi olan birisine gönderiyorum, dolayısı ile serverdan açmamış oluyor ve Veriler altındaki değişiklikleri görmüyor.
Eğer \\10.0.0.3\excel\Veriler.xlsx yazarsamda direkt aynı path üzerinde olduğu için sanırım \\10.0.0.3\excel kısmını yok ediyor.
 
Üst