Dim Columns(10) Set obj = Window("Window").Window("Window").WinListView("xxxxxx") Col= Obj.ColumnCount() '获取列表标题栏的信息 For i = 0 To Col - 1 Col(i) = Obj.GetColumnHeader(i) print "Col("& i & ")" & Col(i) Next '获取列表中的所有信息 n = Obj.GetItemsCount For i = 0 To n - 1 print "i = " & i str =i+1 & vbCr For j =0 To Col - 1 str = str & Obj.GetSubItem(i ,Col(j)) & vbCr print str Next Next Set obj = nothing