kapalı excel dosya adlarını combobox'a yazdırma

[İhsan Tank]

aynı dosyadaki excel adlarını combobox'a yazsın

selam arkadaşlar kapalı excel dosya adlarını combobox'a yazdırıp kapalı dosyalara veri aktarmak istiyorum yardımlarınızı bekliyorum
not : f1 fonksiyon tuşu veri girişini açmaktadır
teşekkür ederim

 

[İhsan Tank]

arkadaşlar bu konuda yardım istesem

 

[İhsan Tank]

arkadaşlar sorumu biraz değiştirdim belki biraz daha anlaşılır olmuştur sadece combobox'a aynı dosyadaki excel dosya adlarını yazsın
ör :
giriş
kitap-
kitap--
kitap---
gibi bunu cari sistemde kullanmayı düşünüyorum umarım olur bir şey istemişimdir.

 

[İhsan Tank]

arkadaşlar bu konu hakkında herhangi bir fikri olan var mı_?

 

[Levent Menteşoğlu]

Userform1'e aşağıdaki kodu yazarak deneyin. Kod içindeki "thisworkbook.path" yazan yere istediğiniz klasörün yolunuda yazabilirsiniz.

Private Sub UserForm_Initialize()
Set nesne = CreateObject("Scripting.FileSystemObject")
For Each dosya In nesne.GetFolder(ThisWorkbook.Path).Files
ComboBox1.AddItem dosya.Name
Next
End Sub

 

[İhsan Tank]

Userform1'e aşağıdaki kodu yazarak deneyin. Kod içindeki "thisworkbook.path" yazan yere istediğiniz klasörün yolunuda yazabilirsiniz.

Private Sub UserForm_Initialize()
Set nesne = CreateObject("Scripting.FileSystemObject")
For Each dosya In nesne.GetFolder(ThisWorkbook.Path).Files
ComboBox1.AddItem dosya.Name
Next
End Sub

hocam yardımlarınız için teşekkür ederim bir sorum daha olacaktı aynı dosyada olan sayfaları nasıl veri aktarabilirim ve aktardığım zaman boşluksuz aktarmasını istiyorum