如何取得列表框的列标题？

todaynew

如果存在列标题，则0行即为标题行。各种数据源类型，均可采用以下方式得到列标题：

Function ListTitle(ByVal lst As ListBox) As String
    Dim str As String
    Dim i As Integer
    str = ""

    If lst.ColumnHeads = True Then
        For i = 0 To lst.ColumnCount - 1
            str = str & lst.Column(i, 0) & ";"
        Next
        str = Left(str, Len(str) - 1)
    End If

    ListTitle = str
End Function