LÊ UMA PLANILHA EM EXCEL

MOREIRA 04/08/2016 17:38:37
#465501
Olá pessoal, boa tarde,

tenho uma planilha básica no excel.

coluna nome, cpf e valor...

preciso carregar para um grid pode ser o listwiew..

alguém tem um caminha, por favor..
MILTONSILVA94 04/08/2016 21:14:03
#465505
OLÁ MOREIRA,

VEJA ABAIXO SE PODE COLOCAR EM SEU PROJETO ESTA ROTINA:

Private Sub RotinaExcel()
Dim objExcel As New Excel.Application
Dim bkWorkBook As Workbook
Dim shWorkSheet As Worksheet
Dim i As Integer
Dim j As Integer

Set objExcel = New Excel.Application
Set bkWorkBook = objExcel.Workbooks.Add
Set shWorkSheet = bkWorkBook.ActiveSheet

For i = 1 To lvwLista.ColumnHeaders.Count
shWorkSheet.Cells(1, i) = lvwLista.ColumnHeaders(i)
Next

For i = 1 To lvwLista.ListItems.Count
shWorkSheet.Cells(i + 2, [Ô]A[Ô]) = lvwLista.ListItems(i).Text
For j = 2 To lvwLista.ColumnHeaders.Count
shWorkSheet.Cells(i + 2, j) = lvwLista.ListItems(i).SubItems(j - 1)
Next
Next

shWorkSheet.Name = [Ô]Perfis[Ô] [ô]Nome da planilha

shWorkSheet.Rows(1).Font.Name = [Ô]Microsoft Sans Serif[Ô] [ô]Fonte da 1º linha
shWorkSheet.Rows(1).Font.Size = 10 [ô]Tamanho da letra na 1º linha
shWorkSheet.Rows(1).Font.Bold = True [ô]Negrito
shWorkSheet.Rows(1).HorizontalAlignment = Excel.XlVAlign.xlVAlignCenter [ô]Centralizar horizontais
shWorkSheet.Rows(1).VerticalAlignment = Excel.XlVAlign.xlVAlignCenter [ô]Centralizar verticais

shWorkSheet.Range([Ô]A1[Ô]).ColumnWidth = 7 [ô]Início da rotina que define tamanho das células
shWorkSheet.Range([Ô]B1[Ô]).ColumnWidth = 18
shWorkSheet.Range([Ô]C1[Ô]).ColumnWidth = 20
shWorkSheet.Range([Ô]D1[Ô]).ColumnWidth = 20
shWorkSheet.Range([Ô]E1[Ô]).ColumnWidth = 18 [ô]Fim da rotina

shWorkSheet.Range([Ô]a2[Ô], [Ô]z1000[Ô]).Font.Name = [Ô]Arial[Ô] [ô]Fonte das demais linhas
shWorkSheet.Range([Ô]a2[Ô], [Ô]z1000[Ô]).Font.Size = 10 [ô]Tamanho das demais linhas
shWorkSheet.Range([Ô]a2[Ô], [Ô]z1000[Ô]).Font.Bold = False [ô]Não fica em negrito
shWorkSheet.Range([Ô]a2[Ô], [Ô]z1000[Ô]).HorizontalAlignment = Excel.XlVAlign.xlVAlignCenter [ô]Centralizar horizontais
MsgBox ([Ô]DADOS EXPORTADOS COM SUCESSO...[Ô])

objExcel.Visible = True
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar