VB确定Excel表格中表头的位置

来源：百度知道 编辑：UC知道 时间：2024/09/27 11:53:22
如上，要求用VB代码实现精确读取Excel中表格表头的位置。在此问题中表格是由用户自定义完成的模板文件，只有表头，但表头内容与位置是不确定的。表头一定是位于表格第一行的。
用VB查询到第一行中某一个单元格是表头之后，用循环语句继续往下查询，一直到发现空白单元格为止结束。
希望高手给出实现代码，并且最好是附上关键语句说明。
分数在回答满意后继续追加。在线等答案。谢谢了。
补充一点，这里不需用弹出消息框的模式显示表头在哪个位置，只需程序自身能够获取位置信息就可以了。然后再程序结束。

TO: showwei2004 谢谢你的回答。你的建议很好，想要真正学到东西确实得要自己去琢磨。只是我以前从没有接触过VB，而现在急需这个功能的实现，实在是没有功夫去自己搞定了。
TO：ntcyj 谢谢你的代码。只是你可不可以还帮我把这段代码的关键语句说明一下，真的万分感激!

我路过，你已经知道了算法，接下来肯定不能再靠别人提供代码了，这样不一定能得到自己想要的结果，而且给了你可能也看不懂，建议你用半个小时参阅一下网上关于VB和EXCEL互相读写的文章。
1.部件--引用--microsoft excel 11.0 libary
2.添加一个按钮command1，写下代码：
Private Sub Command1_Click()
Dim xlExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim AppExcel As Object
Dim i As Integer
Dim Title As String
Set xlExcel = CreateObject("Excel.Application")
xlExcel.Workbooks.Open "C:\test.xls" '文件路径
Set xlBook = xlExcel.Workbooks("test.xls")
Set xlSheet = xlBook.Worksheets(1)
Title = ""
For i = 1 To 100 '因为不知道你的表格的表头规律，我假设能到100列
If xlSheet.Cells(1, i).Value <> "" Then
Title = Title & xlSheet.Cells(1, i).Value
End If
Next i
Text1 = Title
Application.DisplayAlerts = False
xlExcel.Quit '退出excel
End Sub<