Listar una tabla de Excel en un Listview

"Luis Purata" schreef in bericht
news:

Como puedo listar una tabla de datos en excel en un listview sobre un
formulario?

hay alguna forma de hacer cambios en la informacion de cada celda sobre un
formulario?

que me sugieren???

m_iUserForm:
1 x m_iListView
1 x m_iCloseButton
1 x m_iImageList (Microsoft ImageList Control Version 6.0)

m_iListView propiedades:
- FullRowSelect: True
- View: lvwReport
- Column Headers: 1. Nombre, 2. Dirección, 3. Ciudad

m_iImageList
1 x 16x16 icon

Hoja1:
A1: Nombre
B1: Dirección
C1: Ciudad



Private Sub UserForm_Initialize()

'Objetos
Dim wb As Workbook
Dim ws As Worksheet
Dim lvItem As Variant

'líneas & columnas
Dim r, c As Integer

Set wb = ThisWorkbook
Set ws = wb.Sheets("Hoja1")

r = 2: c = 1
ws.Activate
ws.Cells(r, c).Select

'16x16 icons ImageList?
m_iListView.SmallIcons = m_iImageList
m_iListView.Icons = m_iImageList

While ActiveCell.Value <> ""

'ListView Columna 1
Set lvItem = m_iListView.ListItems _
.Add((r - 1), , ws.Cells(r, c), 1, 1)
'ListView Columna 2
lvItem.SubItems(1) = ws.Cells(r, (c + 1)).Value
'ListView Columna 3
lvItem.SubItems(2) = ws.Cells(r, (c + 2)).Value

r = r + 1
ws.Cells(r, c).Select

Wend

Set lvItem = Nothing
Set ws = Nothing
Set wb = Nothing

End Sub