Fori=1ToMe.ListView1.ListItems.Count-1xl.Range("A"&i+1).Value=Me.ListView1.ListItems(i).Textxl.Range("B"&i+1).Value=Me.ListView1.ListItems(i).SubItems(1)xl.Range("C"&i+1).Value=Me.ListView1.ListItems(i).SubItems(2)xl.Range("D"&i+1).Value=Me.ListView1.ListItems(i).SubItems(3)xl.Range("E"&i+1).Value=Me.ListView1.ListItems(i).SubItems(4)xl.Range("F"&i+1).Value=Me.ListView1.ListItems(i).SubItems(5)xl.Range("G"&i+1).Value=Me.ListView1.ListItems(i).SubItems(6)xl.Range("H"&i+1).Value=FormatStr(Me.ListView1.ListItems(i).SubItems(7))Nextixl.Visible=True