fixar a largura da coluna - excel
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
Curtidas 0
Respostas
Valdemar_d
31/08/2004
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;
GOSTEI 0
Valdemar_d
31/08/2004
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´;
GOSTEI 0