Combobox'a klasor içindeki kitapları yuklemek

[ttrance]

arkadaşlar A klasorunde her gecen gun yenisi eklenen excel kitapları var... bu kitap isimlerini combobox'a nasıl yukleyebilirim ve ismini sectigimde o çalışma kitabını nasıl acabilirim....

 

[Recep İpek]

Ekteki örneği inceleyebilirmisiniz?

Modüldeki XXXX yere kendi klasör yolunuzu yazabilirsiniz.

 

[ttrance]

guzel fikir sagolasın.... işe yaradı

 

[ttrance]

Private Sub CommandButton1_Click()
On Error Resume Next
dosya = Klasör & Me.ComboBox1.Value
If VarType(dosya) = vbBoolean Then
Exit Sub
Else
Workbooks.Open (dosya)
Columns("a:aj").Select
Selection.Copy
[a3].Select
Windows("kod.xls").Activate
ActiveWorkbook.Sheets(1).[a1].Select
Selection.PasteSpecial
ActiveWorkbook.Sheets(1).[a1].Select
Workbooks.Open (dosya)
ActiveWorkbook.Close
End If
Unload Me
End Sub

birkaçduzenleme yaparak daha cok işime yarar hale getirdim tekrar teşekkürler