LARGURA DA COLUNA NA HORA DE EXPORTAR PARA O EXCEL

CAIOHSZA 01/10/2012 09:49:09
#410913
Para quem entende minha dúvida é bem simples...
Gostaria de saber como aumentar a largura das colunas na hora de exportar para o excel.
Abaixo segue o meu código.
Desde já muito obrigado galera =]

[txt-color=#0000f0]Private Sub cmdimp_Click()[/txt-color]
Dim fApp As Excel.Application
Dim fBook As Excel.Workbook
Dim fSheet As Excel.Worksheet

[ô]Carregar o Excel:
Set fApp = CreateObject([Ô]Excel.Application[Ô])
[ô]Crie um WorkBook:
Set fBook = fApp.Workbooks.Add

[ô]Defina Uma nova Planilha
Set fSheet = fApp.ActiveWorkbook.Sheets.Add

fSheet.Name = [Ô]Planilha Orçamentária[Ô]

fApp.Visible = True
fSheet.Visible = True

[ô]Definir o conteúdo das células:
With fSheet
.Cells(3, 2).Value = txtforndiv.Text
.Cells(3, 1).Value = [Ô]Fornec. Divs.[Ô]
.Cells(4, 2).Value = txtforncana.Text
.Cells(4, 1).Value = [Ô]Fornec. Cana[Ô]
.Cells(5, 2).Value = txtcop.Text
.Cells(5, 1).Value = [Ô]Copersucar[Ô]
.Cells(6, 2).Value = txtfinames.Text
.Cells(6, 1).Value = [Ô]Finames[Ô]
.Cells(7, 2).Value = txtfinanci.Text
.Cells(7, 1).Value = [Ô]Financiamentos[Ô]
.Cells(8, 2).Value = txtucerradao.Text
.Cells(8, 1).Value = [Ô]U. Cerradão[Ô]
.Cells(9, 2).Value = txtpessoal.Text
.Cells(9, 1).Value = [Ô]Pessoal[Ô]
.Cells(10, 2).Value = txtprovd.Text
.Cells(10, 1).Value = [Ô]Previdenciárias[Ô]
.Cells(11, 2).Value = txttrib.Text
.Cells(11, 1).Value = [Ô]Tributárias[Ô]
.Cells(12, 2).Value = txtjbajpa.Text
.Cells(12, 1).Value = [Ô]JBA e JPA[Ô]
.Cells(14, 2).Value = txttotal.Text
.Cells(14, 1).Value = [Ô]Total[Ô]
.Cells(1, 1).Value = [Ô]Despesas[Ô]
.Cells(1, 2).Value = Format(frmplanilha.DTPicker1.Value, [Ô]mmm/yy[Ô])
.Range([Ô]A1[Ô], [Ô]A1[Ô]).Font.Bold = True
.Range([Ô]A1[Ô], [Ô]B2[Ô]).Font.Bold = True
.Range([Ô]A1[Ô], [Ô]A1[Ô]).AutoFormat xlRangeAutoFormat3DEffects2

End With

[ô]Limpe as variáveis de Objeto:
Set fSheet = Nothing
Set fBook = Nothing
Set fApp = Nothing

[txt-color=#0000f0]End Sub[/txt-color]
JONATHANSTECKER 01/10/2012 10:15:44
#410916 Resposta escolhida
Se não me engano dá para efetuar um AutoFit dessa forma...
fSheet.Columns([Ô]A:AZ[Ô]).AutoFit()
CAIOHSZA 01/10/2012 10:53:55
#410921
Exatamente o que eu precisava...

Vlw amigo
MAURICIO 01/10/2012 10:55:42
#410922
oExcel.Columns([Ô]A:AZ[Ô]).AutoFit - Auto Formata o campo - Colunas
oExcel.Rows([Ô]1:65536[Ô]).AutoFit - Auto Formata o campo - Linhas
oExcel.Columns([Ô]A:B[Ô]).Hidden = True - Esconde as celulas
oExcel.Columns([Ô]C:C[Ô]).HorizontalAlignment = xlCenter - Centraliza as Celulas
Tópico encerrado , respostas não são mais permitidas
Voltar