Dosyayı seçip içerisindeki sheetleri aktarma

[zulfuernek]

1) Butona tıklayınca excel dosyası seçmemi isteyecek ve seçtiğim excel dosyasının içerisinde ki sheeti kendi çalışma sayfası içerisine alacak ve sheet ismini de seçtiğim excel dosyasının ismiyle yapacak. (Seçilen excel dosyasında 1 tane sheet vardır.)

2) farklı bir buton daha var o butonada tıklayınca gene excel dosyası seçmemi isteyecek ve gene içerisindeki sheetleri dosyanıniçerisine ekleyecek ( ancak bu defa seçilen excel içerisinde birden fazla sheet var ve hepsini almalı ama sheet isimlerine işlem yapmamalı)

Saygılarımla

Not: bilgisayar sabit değil. İşyeri bilgisayarı olduğu için her bilgisayarın masaüstü farklıdır. Bu nedenle dosya seçmesini ona göre kodlamamkz gerrkli

 

[kulomer46]

Değerli Arkadaşım

İstediğiniz formatta çalışan dosya EK' tedir.
Yalnız aktarma yapılacak dosya ile aktarılacak dosya açık olmalıdır.
Siz hangi dosya hangi dosyaya aktarılacak listbox'tan seçiyorsunuz.
Gerisini program hallediyor.

Selamlar...

 

[zulfuernek]

hocam aşağıdaki satırda hata veriyor?

For i = 1 To Workbooks(kaynak).Sheets.Count

 

[kulomer46]

hocam aşağıdaki satırda hata veriyor?

For i = 1 To Workbooks(kaynak).Sheets.Count

Değerli Arkadaşım

Dosyayı revize ettim. Son hali Ek' tedir.

Programda aktarma yapılacak dosya ile aktarılacak dosya açık olmalıdır.
Siz hangi dosya hangi dosyaya aktarılacak listbox'tan seçiyorsunuz.
Düğmeye basınca aktarma başlıyor.

Selamlar...

 

[zulfuernek]

hocam emeğine sağlık harika ötesi gerçekten. çok teşekkür ederim. bir şey daha sorabilirmiyim kaynak dosyayı seçip aktarma tuşuna bastıktan sonra kaynak excel dosyasını kapatibilir mi?. kaydetmeden otomoaitk olarak kapatsın

 

[kulomer46]

hocam emeğine sağlık harika ötesi gerçekten. çok teşekkür ederim. bir şey daha sorabilirmiyim kaynak dosyayı seçip aktarma tuşuna bastıktan sonra kaynak excel dosyasını kapatibilir mi?. kaydetmeden otomoaitk olarak kapatsın

Değerli Arkadaşım

Dosyayı tekrar revize ettim. Son hali Ek' tedir.

Programda aktarma yapılacak dosya ile aktarılacak dosya açık olmalıdır.
Siz hangi dosya hangi dosyaya aktarılacak listbox'tan seçiyorsunuz.
Düğmeye basınca aktarma başlıyor.

Siz kaynak dosyayı seçip aktarma tuşuna bastıktan sonra kaynak excel dosyası kapanmaktadır.

Selamlar...

 

[zulfuernek]

@kulomer46 hocam emeğine sağlık harika olmuş. ufak bir ek yapmaya çalıştım ama olmadı. açık excel dosyasını kaoptıyor tamam ancak kapattıktan sonra listboxu yenilemiyor. yani kapanan dosya hala listboxta görünüyor. listboxadditem li bi kod yazdım ancak olmadı. kodlama nasıl olabilir acaba?

 

[zulfuernek]

@kulomer46 hocam çözdüm sorun kalmadı


ListBox11.Clear
ListBox12.Clear

For i = 1 To Workbooks.Count

If Trim(Right(Workbooks(i).Name, 4)) <> "XLSB" Then
ListBox11.AddItem Workbooks(i).Name
End If
Next
For i = 1 To Workbooks.Count
If Trim(Right(Workbooks(i).Name, 4)) <> "XLSB" Then
ListBox12.AddItem Workbooks(i).Name
End If

 

[kulomer46]

@kulomer46 hocam çözdüm sorun kalmadı...

Elinize sağlık.. Kolay Gelsin...