Kapalı excele veri aktarma

[zırzır]

Arkadaşlar masaüstündeki "VERİLER" isimli excel sayfamı açtığımda buradaki tüm veri ,"D:\"
sürücüsündeki kapalı olan "KAYIT" isimli excel sayfasına aktarabilirmiyim.Emeklerinize şimdiden
teşekkürler.

 

[zırzır]

Arkadaşlar bu konuda bilgisi olan yokmu

 

[mesuttasar]

Arkadaşlar bu konuda bilgisi olan yokmu

Aşağıdaki linkleri bi incelermisiniz? Belki işinize yarayabilir.

http://www.excel.web.tr/f48/kitaplar-aras-veri-aktarma-t65415.html
http://www.excel.web.tr/f117/kapal-bir-excel-dosyas-na-yazma-okuma-isleri-t11613.html
http://www.excel.web.tr/f48/kapal-excel-dosyalar-ndan-veri-cekme-t66006.html

Ayrıca ADO-DAO Kapalı Dosya Uygulamaları Bölümünede bakabilirsiniz.
http://www.excel.web.tr/f117/

 

[zırzır]

Sayın mesuttasar ,sitede araştırma yaparken sayın Haluk'a ait aşağıdaki kodu buldum,burada kapalı olan "A.xls" dosyasındaki "A1:F20" aralığına 12345 rakamlarını yazıyor.Bu kodlar masaüstünde VERİ isimli excel sayfasındaki modülde,aşağıdaki koddaki "Range("A1:F20") = 12345"
satırını değiştirip tüm sayfayı "A.xls"dosyasına yollayamazmıyız


Sub AKTAR()
MyWB = "C:\A.xls"
Set NewXL = New Excel.Application
NewXL.Workbooks.Open MyWB
NewXL.Workbooks(Dir(MyWB)).Sheets(1).Range("A1:F20") = 12345
NewXL.Workbooks(Dir(MyWB)).Close SaveChanges:=True
NewXL.Quit
Set NewXL = Nothing
End Sub

 

[halit3]

bu kodu denermisiniz

Sub aktar()
dosyaadi = ThisWorkbook.Path & "\kayit.xls"
Open dosyaadi For Append As #1
For i = 1 To WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A1:A65000"))
Print #1, Cells(i, 1) & Chr$(9) & Cells(i, 2) & Chr$(9) & Cells(i, 3)
Next
MsgBox "aktarma işi tamamlandı"
Close #1
End Sub

 

[zırzır]

Sayın halit3,ben bu kodu çalıştıramadım,size dosyamı yollayayım.

 

[halit3]

dosyanız ektedir kayıt dosyasını siliniz zira kendisi oluşturacaktır

 

[zırzır]

Sayın halit3,benim zaten D:\ sürücüsünde "A" isimli ve bütün verilerin toplandığı bir excel
dosyası var,sizin düzenlediğiniz "VERİ" dosyasındaki kod , verileri zaten var olan "A" dosyasına
göndermeli.

 

[halit3]

tamam bu dosyayı "A" dosyasının yanına koy makroyu çalıştır

 

[HD1975]

Merhaba

dosyanız ektedir kayıt dosyasını siliniz zira kendisi oluşturacaktır

Sayın halit3 göndermiş olduğunuz makroda aynı sayfanın içinde sürekli alt alta
oluşturuyor.Üzerine yazarak kodda bir düzenleme olamazmı acaba.

Saygılar

 

[halit3]

Open dosyaadi For Append As #1

yukarıdaki kodu aşağıdakiyle değiştir


Open dosyaadi For Output As #1