ListViewからItemをエクセルに転記

メソッド構文など

Range = ListItems.Item(番号)

ListViewに表示されているアイテムの文字をExcelにコピーする方法です。

元データ等はこちら　ListItems コレクション


ListView.ListItemsのCountプロパティでリスト内のデータ数を取得し、それぞれのリスト行のデータをItemプロパティでSubItem含めてセルに書き込むような感じです。

サンプルコード

Sub LtE()

 Dim i As Long, C As Long
 'ListView内のアイテム数
 C = ListView1.ListItems.Count

'アイテムの1行目～最終行までセルにコピー
For i = 1 To C

 '1列目→（セルi行目,5列目)
 Cells(i, 5) = ListView1.ListItems.Item(i)
 '2列目→（セルi行目,6列目)
 Cells(i, 6) = ListView1.ListItems.Item(i).SubItems(1)
 '3列目→（セルi行目,7列目)
 Cells(i, 7) = ListView1.ListItems.Item(i).SubItems(2)

Next i

End Sub

関連・類似ページ

ListView　使い方
ListView　プロパティ
Listitems　コレクション