fixar a largura da coluna - excel
31/08/2004
0
olá pessoal
preciso fixar a largura da coluna quando faço a exportação para o excel
//campo em negrito.
Excel.WorkBooks[1].Sheets[1].Cells[Linha,1].Font.FontStyle := ´Negrito´;
//string no campo.
Excel.WorkBooks[1].Sheets[1].Cells[Linha, 1] :=´Data´;
//largura da coluna o que tem de errado que não funciona?
Excel.WorkBooks[1].Sheets[1].Cells[Linha, 1].WidthColumns := 15;
preciso fixar a largura da coluna quando faço a exportação para o excel
//campo em negrito.
Excel.WorkBooks[1].Sheets[1].Cells[Linha,1].Font.FontStyle := ´Negrito´;
//string no campo.
Excel.WorkBooks[1].Sheets[1].Cells[Linha, 1] :=´Data´;
//largura da coluna o que tem de errado que não funciona?
Excel.WorkBooks[1].Sheets[1].Cells[Linha, 1].WidthColumns := 15;
Valdemar_d
Curtir tópico
+ 0
Responder
Posts
01/09/2004
Valdemar_d
consegui
//campo em negrito.
Excel.WorkBooks[1].Sheets[1].Cells[Linha,1].Font.FontStyle := ´Negrito´;
//string no campo.
Excel.WorkBooks[1].Sheets[1].Cells[Linha,1] :=´Data´;
//largura da coluna
Excel.WorkBooks[1].Sheets[1].Cells[Linha,1].columns.AutoFit;
//campo em negrito.
Excel.WorkBooks[1].Sheets[1].Cells[Linha,1].Font.FontStyle := ´Negrito´;
//string no campo.
Excel.WorkBooks[1].Sheets[1].Cells[Linha,1] :=´Data´;
//largura da coluna
Excel.WorkBooks[1].Sheets[1].Cells[Linha,1].columns.AutoFit;
Responder
01/09/2004
Valdemar_d
para aqueles que não conseguiram e pretendem usar
//campo em negrito.
Excel.WorkBooks[1].Sheets[1].Cells[Linha,1].Font.FontStyle := ´Negrito´;
//string no campo.
Excel.WorkBooks[1].Sheets[1].Cells[Linha,1] :=´Data´;
//largura da coluna
Excel.WorkBooks[1].Sheets[1].Cells[Linha,1].columns.AutoFit;
//campo em negrito.
Excel.WorkBooks[1].Sheets[1].Cells[Linha,1].Font.FontStyle := ´Negrito´;
//string no campo.
Excel.WorkBooks[1].Sheets[1].Cells[Linha,1] :=´Data´;
//largura da coluna
Excel.WorkBooks[1].Sheets[1].Cells[Linha,1].columns.AutoFit;
//formato para numeros exemplos 1236,349 => 1.236,35
Excel.WorkBooks[1].Sheets[1].Cells[Linha,1].NumberFormat := ´#.0,00´;
Responder