vb 读取excel的列名

我想在ComboBox的下拉框里出现excel第一行的字段名，怎么写？

下面的代码可以实现你的要求:

Dim a, b, i
Set a = CreateObject("Excel.Application")
Set b = a.Workbooks.Open("d:\q1.xls") '这里改为你的EXCEL文件的路径及文件全名
'假定了你的数据在第一个工作表,如果不是第一个你可以把下面的Sheets("sheet1")改为相应的表。Combo1是你的ComboBox的控件名，根据情况修改
For i = 1 To b.sheets("sheet1").[iv1].End(-4159).Column
Combo1.AddItem b.sheets("sheet1").cells(1, i)
Next i
b.Close
Set b = Nothing
Set a = Nothing

用commondialog可以解决选定打开.xls文件问题然后就是读取进去哈哈保存代码如下 '添加command控件一个msflexgrid控件一个 privatesubcommand1_click() onerrorresumenext dimfileaddasstring commondialog1.showopen commondialog1.filter="xls文件(*.xls)|*.xls"'选择你要的文件 fileadd=commondialog1.filename mshflexgrid1.redraw=false'关闭表格重画，加快运行速度 setxlapp=createobject("excel.application")'创建excel对象 setxlbook=xlapp.workbooks.open(fileadd)'打开已经存在的excel工件簿文件 xlapp.visible=true'设置excel对象可见（或不可见） setxlsheet=xlbook.worksheets("sheet1")'设置活动工作表 forr=0tomshflexgrid1.rows-1'行循环 forc=0tomshflexgrid1.cols-1'列循环 mshflexgrid1.row=r mshflexgrid1.col=c xlbook.worksheets("sheet1").cells(r+1,c+1)=mshflexgrid1.text'保存到excel nextc nextr mshflexgrid1.redraw=true xlapp.displayalerts=false'不进行安全提示 'setxlsheet=nothing 'setxlbook=nothing 'xlapp.quit 'setxlapp=nothing endsub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息