nao sei se é isso que vc quer , mas eu uso assim , essa formula pega dados e um listview e joga nas celulas do excel....espero ter ajudado

 

  'Para usar este exemplo voce precisa adicionar em referencias
  'o microsoft excel no meu caso uso a versao 2003 por isso antes de rodar
  'este exemplo voce deve declarar a referencia de acordo com seu excel
  
   Dim X As Integer
   Dim ExcelS As New Excel.Application
   Dim MyExcel As Excel.Application
  
   On Error Resume Next
  
   'chama excel
   Set ExcelS = New Excel.Application
   'coloca excel visivel na tela
   ExcelS.Visible = True
  
   'adiciona uma planilha
   ExcelS.Workbooks.Add
  
   'seta excel em modo de inserção
   With ExcelS.ActiveSheet
       
    X = 1
   
    'coloca o titulo das colunas do excel de acordo com as do listview
    .Cells(X, "A") = LV1.ColumnHeaders.item(1).Text
    .Cells(X, "B") = LV1.ColumnHeaders.item(2).Text
    .Cells(X, "C") = LV1.ColumnHeaders.item(3).Text
    .Cells(X, "D") = LV1.ColumnHeaders.item(4).Text

    'faz um loop por todos os registros do listview e passa pro excel
    For X = 1 To LV1.ListItems.Count
      
    DoEvents
    .Cells(X + 1, "A") = LV1.ListItems.item(X).Text
       .Cells(X + 1, "B") = LV1.ListItems.item(X).SubItems(1)
       .Cells(X + 1, "C") = LV1.ListItems.item(X).SubItems(2)
       .Cells(X + 1, "D") = LV1.ListItems.item(X).SubItems(3)

    Next
   
   End With
  
  'remove o excel da memoria
  Set ExcelS = Nothing
   
   
  MsgBox "Relatório Gerado com Sucesso", vbInformation, "Aviso"