如何把EXCEL文件中每个工作簿的名称装载到下拉列表框COMBO

[loio]

我现在用VB做一个打印票据的程序，
票据的模版是EXCEL文件，
打印不同的票据调用EXCEL文件中不同的工作簿

例如，人事表 调用SHEET1
考勤表 调用SHEET2
工资表 调用SHEET3
。
。
。

我想用一个下拉列表框COMBO，把所有的工作簿名称装载进去，供用户选择

Dim ExcApp As Excel.Application '定义EXCEL对象
Dim ExcWrk As Excel.Workbook '定义EXCEL文件
Dim ExcShp As Excel.Worksheet '定义EXCEL工作单

Set ExcApp = CreateObject("excel.application")
Set ExcWrk = ExcApp.Workbooks.Open(App.Path & "\TEMP.xls")
Set ExcShp = ExcWrk.Worksheets(1)'打开第一个工作簿

ExcWrk.Names.Count 'EXCEL文件中有多少个工作簿
ExcShp.Name '当前工作簿的名称

但是这样每次只能找到一个工作簿,怎样把所有的工作簿装载到COMBO中？

请各位仁兄指教!!

[hgnan]

For Each ExcShp In ExcWrk.sheets
....中间就不多说了。。。
Next