FORMATAR COLUNA NO EXCEL DENTRO DO VB6
Boa Noite Amigos
Eu crio uma planilha em Excel a partir do VB6 e ja faço isso a muito tempo.
Agora eu preciso criar uma nova coluna para abrigar um certo texto, o que a principio nao seria um problema.O problema e que o texto vira de um campo de livre digitacao e que as vezes sera muito grande.
Eu gostaria de saber como faço para formatar a coluna,pois o quando monto o arquivo em excel, a partir do VB6, nao havera uma formatacao da coluna e ela podera ficar muito grande, fazendo com que a linha a qual ela pertence fique imensa.
Gostaria de saber como resolver esse problema, para que todo o texto fique em uma mesma linha, por maior que ele seja e eu preciso fazer isso dentro do VB6.
Obrigado e um Abraço
Eu crio uma planilha em Excel a partir do VB6 e ja faço isso a muito tempo.
Agora eu preciso criar uma nova coluna para abrigar um certo texto, o que a principio nao seria um problema.O problema e que o texto vira de um campo de livre digitacao e que as vezes sera muito grande.
Eu gostaria de saber como faço para formatar a coluna,pois o quando monto o arquivo em excel, a partir do VB6, nao havera uma formatacao da coluna e ela podera ficar muito grande, fazendo com que a linha a qual ela pertence fique imensa.
Gostaria de saber como resolver esse problema, para que todo o texto fique em uma mesma linha, por maior que ele seja e eu preciso fazer isso dentro do VB6.
Obrigado e um Abraço
E isso o que acontece.
Ola amigos
Ainda nao consegui resolver esse problema.
Alguem teria alguma sugestao para me dar.?
Muito Obrigado
Sidnei
Ainda nao consegui resolver esse problema.
Alguem teria alguma sugestao para me dar.?
Muito Obrigado
Sidnei
Execute uma macro e mande gravar os comandos pra formatar uma coluna manualmente, ele gravará na macro todos os comandos em VBA, aà é só implementa no sistema
_____________________________________________
[txt-color=#0000f0]Precisando de um Sistema de Gestão Educacional?[/txt-color]
Desenvolvido em VB.NET + SQL Server + Crystal Reports
Conheça nossa Solução: www.cjsystem.com.br
_____________________________________________
[txt-color=#0000f0]Precisando de um Sistema de Gestão Educacional?[/txt-color]
Desenvolvido em VB.NET + SQL Server + Crystal Reports
Conheça nossa Solução: www.cjsystem.com.br
Ok, obrigado meu amigo.
Vou experimentar.
Um Abraço
Vou experimentar.
Um Abraço
Uso assim a formatação das células dentro do código do VB6:
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
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
MUito obrigado Milton
Vou experimentar no serviço e a noite digo se funcionou ou nao.
Um Abraço
Sidnei
Vou experimentar no serviço e a noite digo se funcionou ou nao.
Um Abraço
Sidnei
Tópico encerrado , respostas não são mais permitidas