• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Ağdaki kapalı dosyaya veri gönderme

Katılım
29 Kasım 2008
Mesajlar
215
Excel Vers. ve Dili
excel 2003 türkçe
Değerli arkadaşlar; Server'da ağ üzerinde bulunan bir kapalı excel dosyasına , aynı şablonlu masaüstümde bulunan bir excel dosyamdan veri göndermek istiyorum.Bu konuda yardımcı olursanız sevinirim.Saygılar.
 
örnek bir dosya ekleyiniz basit bir makro ile bu mümkün. örnek dosyanıza göre bir makro yazalım. 2 dak. :) zira tam bilgi yok yol neresi olacak vs...
 
Asıl dosyam masaüstünde.KAPAK.xls

Ağ üzerinde \\Motifserver\d\KAPAK TAKİP\KAPAK.xls isminde bir dosyam var. Masaüstümde bulunan dosyam ile ağda bulunan dosyanın şablonu aynı zaten.Yapmak istediğim masaüstümdeki excel dosyamda bulunan veriyi ağda bulunan excel dosyasına aktarmak.
 

Ekli dosyalar

Asıl dosyam masaüstünde.KAPAK.xls

Ağ üzerinde \\Motifserver\d\KAPAK TAKİP\KAPAK.xls isminde bir dosyam var. Masaüstümde bulunan dosyam ile ağda bulunan dosyanın şablonu aynı zaten.Yapmak istediğim masaüstümdeki excel dosyamda bulunan veriyi ağda bulunan excel dosyasına aktarmak.

merhaba makronuzu yazdım...

Ağ üzerinde \\Motifserver\d\KAPAK TAKİP\KAPAK.xls
öncelikle serverdaki dosyanızın adını veya masa üstünüzdeki dosya adını değişim mesala KAPAK1.xls olarak sonra bana tam yolunu yazın mesala
X:\Motifserver\d\KAPAK TAKİP\KAPAK.xls
yani sürücü yolu nedir...ona göre kodu düzenleyeyim...
ayrıca yzdırmasını istediğiniz satırlar a1 ile j57 mi sadece eklenecekmi?
security
 
sorularıma cevap yazarsanız yani bilgi verirseniz dosyanız hakkında dosyanızı düzenleyip ekleyeyim...
 
Sayın Security ;
İlgi ve yardımlarınız için teşekkür ederim.Kusura bakmayın yoğun olduğumdan cevap yazamadım.

Ağda veriyi göndereceğim dosya yolu : Z:\Motifserver\d\KAPAK TAKİP\KAPAK.xls

Bilgisayarımdaki dosya yolu : \\KADIRBEY\Public\KAPAK1.xls


A3 ile J65536 arasındaki hücrelerde bulunan verilerin aktarılması gerekiyor.
bu konuda yardımcı olursanız sevinirim.

Saygılar....
 
Sayın Security ;
İlgi ve yardımlarınız için teşekkür ederim.Kusura bakmayın yoğun olduğumdan cevap yazamadım.

Ağda veriyi göndereceğim dosya yolu : Z:\Motifserver\d\KAPAK TAKİP\KAPAK.xls

Bilgisayarımdaki dosya yolu : \\KADIRBEY\Public\KAPAK1.xls


A3 ile J65536 arasındaki hücrelerde bulunan verilerin aktarılması gerekiyor.
bu konuda yardımcı olursanız sevinirim.

Saygılar....

BUYRUN MAKRONUZ HAZIR. İSTEDİĞİNİZ GİBİ
Z:\Motifserver\d\KAPAK TAKİP\KAPAK.xls
Kod:
Sub security()
  Dim basebook As Workbook
  Dim mybook As Workbook
  Dim sourceRange As Range
  Dim destrange As Range
  Dim i As Long
  Application.ScreenUpdating = False
  With Application.FileSearch
    .NewSearch
    .LookIn = "Z:\Motifserver\d\KAPAK TAKİP"
    .SearchSubFolders = False
    .FileType = msoFileTypeExcelWorkbooks
    If .Execute() > 0 Then
      Set basebook = ThisWorkbook
      For i = 1 To .FoundFiles.Count
        Set mybook = Workbooks.Open(.FoundFiles(i))
        Set sourceRange = basebook.Worksheets(1).Range("A1:J65536")
        Set destrange = mybook.Worksheets(1).Range("a1")
        sourceRange.Copy destrange
        mybook.Close True
      Next i
    End If
  End With
  Application.ScreenUpdating = True
End Sub
A1:J65536 ARASINI ALDIM YANİ MASA ÜSTÜNÜZDEKİ DOSYANIZIN TAM KOPYASINI KAPALI DOSYANIZA GÖNDERİR...
GÜZEL BİR KODLAMA OLDU :)
 
Sayın Security;
Yazmış olduğunuz kodu aynen dosyama uyguladım.Modül açıp yapıştırdım.Ama makroyu çalıştırdığımda malesef aktarım yapmadı..Bir kaç kere denedim ama Ağ üzerindeki dosyama hiç bir veri aktarılmamış..
 
agdaki dosyanız Z:\Motifserver\d\KAPAK TAKİP içinde KAPAK.xls
masa üstünüzdeki dosyanın adıda KAPAK1.xls DEĞİLMİ? DENEDİM ÇALIŞIYOR SORUNSUZ...
 
Tamam şu an düzeldi.Sanırım kopyalarken bir hata yaptım yada elim klavyeye falan değdi ondan oldu.

Teşekkür ederim Sayın Security.İlgi ve yardımlarınız sayesinde sorun çözüldü.

Saygılar...
 
Tamam şu an düzeldi.Sanırım kopyalarken bir hata yaptım yada elim klavyeye falan değdi ondan oldu.

Teşekkür ederim Sayın Security.İlgi ve yardımlarınız sayesinde sorun çözüldü.

Saygılar...

Rica Ederim kolay Gelsin... Benim İçinde Güzel Bir Çalışma oldu Baya İlginçti... Bilgisayarda bulunan Kapalı Dosyaya Veri Aktarımı Kolay Ama Agda Bulunan Dosyaya Aktarma Değişik Bir Çalışma Oldu Benim İçinde... Kolay Gelsin...
 
Birde şöyle bir sorum olacaktı size.Örneğin ağdaki excel dosyamda bir sayfa daha açtım diyelim.ve o sayfayada bilgisayarımdaki başka bir dosyadan veri göndermek istiyorum.Bunun için kodda nasıl bir değişiklik yapmak gerekir.Yani ben kodda sayfa adını tam olrak göremediğim için bu durumda ne yapmam gerekir.

Saygılar...
 
Birde şöyle bir sorum olacaktı size.Örneğin ağdaki excel dosyamda bir sayfa daha açtım diyelim.ve o sayfayada bilgisayarımdaki başka bir dosyadan veri göndermek istiyorum.Bunun için kodda nasıl bir değişiklik yapmak gerekir.Yani ben kodda sayfa adını tam olrak göremediğim için bu durumda ne yapmam gerekir.
Saygılar...

Basit :)

Kod:
Sub Coder_By_Security()
  Dim basebook As Workbook
  Dim mybook As Workbook
  Dim sourceRange As Range
  Dim destrange As Range
  Dim i As Long
  Application.ScreenUpdating = False
  With Application.FileSearch
    .NewSearch
    .LookIn = "Z:\Motifserver\d\KAPAK TAKİP"
    .SearchSubFolders = False
    .FileType = msoFileTypeExcelWorkbooks
    If .Execute() > 0 Then
      Set basebook = ThisWorkbook
      For i = 1 To .FoundFiles.Count
        Set mybook = Workbooks.Open(.FoundFiles(i))
        Set sourceRange = basebook.Worksheets(1).Range("a1:j65536")
        Set destrange = mybook.Worksheets(2).Range("a1")
        sourceRange.Copy destrange
        mybook.Close True
      Next i
    End If
  End With
  Application.ScreenUpdating = True
'Coder By Security :)
End Sub
bu kodu Masa Üstünüzdeki Yeni Excel Dosyanızın makrosuna Kayıt Edin Ve Bir butona ekleyin.
NOT: Tarafımdan Test Edildi Sorunsuz Şekilde Aktarım Yapıyor...
Kolay Gelsin :)
 
Son düzenleme:
Geri
Üst