excel den excele veri yazma

[abonem]

1.xls deki userform a girdiğimiz değeri veri.xls kapalı excel dosyasına yazmasını istiyorum ama bir türlü başaramıyorum :S

bilen bir arkadaşımız yardımcı olursa çok sevinirim teşekkürler

 

[abonem]

acaba tahmin ettiğimden zormu

 

[Haluk]

Dosyanız ekte....

(Her iki dosya aynı yerde olacak, veri.xls dosyası kapalı iken, diğer dosyadaki UserForm ile verilerinizi kapalı dosyaya yazabileceksiniz.)


.

 

[abonem]

Sayın Haluk Bey,
ilginiz ve yardımınız için çok teşekkürler.

 

[Halit TÜRK]

Selamlar,

Aynı çalışmayı textboxtan değilde sayfa üzerinden seçili alanı (örn. 5 satır, 2 sütun) aktarmak istersek nasıl bir değişiklik gereklidir... Teşekkürler..

Not: Tek satır aktarmayı yapabildim ama çoklu seçim olmadı.

 

[Haluk]

Aynı çalışmayı textboxtan değilde sayfa üzerinden seçili alanı (örn. 5 satır, 2 sütun) aktarmak istersek nasıl bir değişiklik gereklidir...

Fare ile verileri seçtikten sonra (2 sütun, istediğiniz kadar satır...), aşağıdaki Test isimli makroyu çalıştırın.

Sub Test()
   Dim Conn As Object
   Dim MyArr()
   Set Conn = CreateObject("ADODB.Connection")
   MyArr = Range(Selection.Address)
   Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\veri.xls" & ";Extended Properties=Excel 8.0;"
   For i = 1 To Selection.Rows.Count
     Conn.Execute "Insert into [Sheet1$] (Ad, Soyad)" & " values ('" & MyArr(i, 1) & "','" & MyArr(i, 2) & "')"
   Next
   Conn.Close
End Sub

.

 

[Halit TÜRK]

Cevabınız için teşekkür ederim. Aynı konu ile ilgili; kapalı dosyayı açıp aktarılan kısmı seçip delete ile sildiğinizde son boş satırdan değilde en son aktarılan satırın sonuna aktarıyor, yani dolu görüyor. Sebep nedir acaba?
Not: Satır seçip sil komutu ile yapılınca standart çalışıyor. Teşekkürler...

 

[Haluk]

Veri tabanı olarak bir Excel dosyası kullandığınızda, durum böyle olur.

Sözkonusu satırları yok etmedikten sonra, hücrelerde veriler için ayrılan alanları silemezsiniz.

.

 

[Halit TÜRK]

Anladım, teşekkürler. Silmiyor, maskeliyor gibi galiba...

Şimdi 2006 'daki mesajlarınızı tekrar okudum. Sn. Alpen ile yazışmalarınızı... Teşekkürler..