excelden excele veri aktarma

[Blacklion27]

excelden bir başka excel e 9000 satır 9000 satır bilgi yollamak istiyorum ne yapılabilir?

 

[hamitcan]

Dosya kopyalama ile işinizi görmüyor mu ?

 

[Blacklion27]

görüyor da kardeşim sütundaki bilgileri kopyalıcam 1 milyon satır var kullanılan sütunda bunu 9000 9000 bin farklı excellere kopyalamak istiyorum var mıdır kısa yolu

 

[hamitcan]

Bu örnekten faydalanabilirsiniz.

Sub KapaliDosyadanVeriAl()
    Yol = ActiveWorkbook.Path & "\"
    KapaliDosya = "D2.xlsx"
    Adres = "'" & Yol & "[" & KapaliDosya & "]" & "Sayfa1'!R1C1:r9000c1"
    [a1:a9000] = ExecuteExcel4Macro(Adres)
End Sub

 

[Fatih İMAMOĞLU]

Peki 2 excel da sharepointte ise nasıl yapabiliriz ?

 

[hamitcan]

Yapılan işlem; kapalı bir dosyadan veri alma. Buna göre sorunuzu tekrar değerlendirir misiniz ?

 

[Fatih İMAMOĞLU]

ÇÖZDÜM
Veri->Sorgular ve bağlantılar kısmında bağlantı oluşturarak kaynak dosyadan verileri otomatik çekiyorum excel her açılışta alıyor.
Excel dosyamın bir sekmesini veritabanı gibi kullanıyorum çektiğim verileri burada depoluyorum. Diğer sekmede normal makro işlemlerini yapıyorum.

Cevabınız için teşekkürler yine de

 

[hamitcan]

4 nolu mesajdaki konu değiştirdim. Çünkü doğru çalışmıyor. Aşağıdaki şekilde bir çözüm ile çalışıyor.

Sub KapaliDosyadanVeriAl()
    Yol = ActiveWorkbook.Path & "\"
    KapaliDosya = "Kitap2.xlsx"
    For i = 1 To 5
    Adres = "'" & Yol & "[" & KapaliDosya & "]" & "Sayfa1'!R" & i & "C1"
    Cells(i, 1) = ExecuteExcel4Macro(Adres)
    Next
End Sub

 

[ibrahim858]

merhaba bu kodla kitap1 den sayfa 1 e tüm yaptıklarımı çekebilirmiyim birde işlem yaptıktan sonra aynı dosyaya butonla gönderebilirmiyim. siz sadece veri al kodu veri gönder kodu verebilirmisiniz teşekkürler

 

[Korhan Ayhan]

Bu yöntemle sadece kapalı dosyadan veri alabilirsiniz. Kapalı dosyaya veri göndermek için ADO kullanılıyor. Fakat çok sağlıklı sonuç alamayabilirsiniz.

Benim önerim kapalı dosyayı açarak veri göndermeniz yönünde olacaktır. Bununla ilgili forumda örnekler var. Arama yaparsanız ulaşabilirsiniz.