Exibir planilha completa no form

[Adonias]

Alguém sabe qual o comando para exibir em um listbox dentro de um form, a planilha do jeito que é no excel?
somente para ser visualizada sem edição?

[Tov Elen Shau]

Private Sub UserForm_Initialize()
Dim arrayItems()
With Planilha1
ReDim arrayItems(1 To .UsedRange.Rows.Count, 1 To .UsedRange.Columns.Count)
Me.ListBox1.ColumnCount = .UsedRange.Columns.Count
For linha = 1 To .UsedRange.Rows.Count
Me.ListBox1.AddItem
For coluna = 1 To .UsedRange.Columns.Count
arrayItems(linha, coluna) = .Cells(linha, coluna).Value
Next coluna
Next linha

Me.ListBox1.List = arrayItems()
End With
End Sub

[Tov Elen Shau]

Créditos aqui mesmo do site;
https://www.tomasvasquez.com.br/blog/tag/array

[Adonias]

Tov Elen Shau, obrigado, mas não é isso que eu quero. Esse código me mostra os dados da planilha.

Eu queria um que dentro de um list ou outro objeto qualquer, mostrasse a planilha do mesmo jeito que é no excel. Com células, linha colunas. Entende? como que o usuário estivesse direto no excel visualizando a planilha. é um caso especial que tem de ser assim. o meu código já trás os dados para o form e apresenta, mas eu queria visualizar a plan sem ter que fechar o form.

[Tov Elen Shau]

Poxa colega, sinto muito, mas essa questão eu não sei resolver, vou continuar pesquisando, se eu encontrar te falo.

Atenciosamente

Tov Elen Shau

[Mikel Silveira Fraga]

Adonias e Tov, boa noite.

Olha, realmente não sei qual a real necessidade de se fazer isso, mas talvez a biblioteca Microsoft Office Web Component possa lhe ajudar.

Através dessa biblioteca, é possível inserir uma espécie de planilha dentro do Userform.

Detalhe: como se trata de uma biblioteca 32 bits, ela vai funcionar apenas com versões 32 bits do Office.

Vou deixar a mesma para Download aqui e a processo de registro pode ser visto no link abaixo:
- Office 2003 Add-in: Office Web Components

Object SpreadSheet inserido em um Userform.

SpreadSheet.jpg (124.27 KiB) Exibido 6777 vezes

Dúvidas, estamos a disposição.

[Tov Elen Shau]

Mikel

Bom dia

Valeu mano, muito boa, essa eu não conhecia.

Grato

Tov Elen Shau

[Adonias]

Obrigado Mikel, era exatamente isso que queria. Infelizmente o meu excel é 0 2010 e a Microsoft não disponibilizou esse recurso na versão 2010. Maesmo assim valeu

[Mikel Silveira Fraga]

Adonias, boa noite.

Essa imagem foi printada de uma versão 2016. Se for no link que passei, você pode baixar no site da Microsoft, instalar e usar normalmente.

Lembrando que isso funciona apenas nas versões 32 bits do aplicativo.