Kapalı Kitaptan ExecuteExcel4Macro ile veri alma

[DeliBalta58]

Userform aktif olduğunda Combobox20 'ye personel_bilgi.xls kitabının 3. sayfası B Sütununda veri olan tüm satırların combobox'a alınması gerekmekte.

Ben tek tek yazmaya çalışyorum ama bunu döngü ile yapabilirmiyiz acaba?
Kullandığım kodlar:

ComboBox20.AddItem ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa3'!R2C2")
ComboBox20.AddItem ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa3'!R3C2")
ComboBox20.AddItem ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa3'!R4C2")
ComboBox20.AddItem ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa3'!R5C2")
ComboBox20.AddItem ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa3'!R6C2")

 

[DeliBalta58]

Arkadaşlar Evren hocam daha önceden benzer bir sorumu cevaplamıştı. Kodları kopyalarken ben eksik kopyalama yapmışım. İki saat sonra ancak bulabildim.
Belki başka birinin işine yarar diye hem linki hem kodları tekrar yazayım.

Kusura bakmayın arkadaşlar özür dilerim. Sizleri boş yere meşgul ettim.
Linki
http://www.excel.web.tr/f48/kapal-dosya-combobox-yard-m-t44843/sayfa2.html

Kodlar

Dim MyArg As String
Dim i As Long, sat As Long
sat = ExecuteExcel4Macro("COUNTA('" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa3'!C2)")
For i = 1 To sat
MyArg = "'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa3'!R" & i
ComboBox20.AddItem ExecuteExcel4Macro(MyArg & "C2")
Next