DUVIDAS GERACAO .XLS NO VB6

SCANDOLEIRO 31/08/2007 11:47:05
#233579
CRIEI UM DOCUMENTO QUE PEGA OS DADOS DO ORACLE E EXPORTA PARA O EXCEL VIA VB6, MINHA DÃÅ¡VIDAS ESTA NAS FORMATAÇÕES DA PLANILHA VIA CÓDIGO

1º COMO FAÇO PARA AJUSTA A ALTURA DE UMA LINHA, NO CASO, A PRIMEIRA LINHA ONDE FICA A DESCRIÇÃO DO REGISTROS DAS CéLULAS

2º GOSTARIA DE ALINHAR O TEXTO CENTRALIZADO

3º EU FORMATO A MOEDA TANTO NO CONSULTA DO ORACLE TO_CHAR(CAMPO,'9,999.00') QUANTO QUANTO NO VB PARA EXPORTAÇÃO DO .XLS NO VB FORMAT(CAMPO,"#,##0.00"), PORéM QUANDO O VALOR é 100, AO INVéS DE FICAR 100.00 FICA SOMENTE 100 AI TENHO QUE AUMENTAR AS CASAS DE MILHARES NA PLANILHA, MINHA DÃÅ¡VIDA é, COMO FORMATAS ESTAS CASAS DECIMAIS DIRETAMENTE NA PLANILHA VIA CÓDIGO


CLAUDEMIR
USUARIO.EXCLUIDOS 31/08/2007 12:20:45
#233588
Dim rsRelatorio As ADODB.Recordset
Dim objExcel As Object

Private Sub Gera_xls1()
Conexao
        Set rsRelatorio = New ADODB.Recordset

        rsRelatorio.Open " Select Solicitacao, Analista, DataEntrega, HoraDistribuicao, DataAprovacao, Aprovador, DataAtraso from Distribuicao " & _
                         " Where DataEntrega BETWEEN " & "#" & DataInicial.Value & "#" & "and" & "#" & DataFinal.Value & "#" & "Order by Solicitacao", conn
                                           
    Set objExcel = CreateObject("Excel.application")

    With objExcel
        .Visible = True
        .Workbooks.Add

        .Cells(2, 1).CopyFromRecordset rsRelatorio
        .Cells(1, 1).Formula = "Solicitação"
        .Cells(1, 2).Formula = "Analista"
        .Cells(1, 3).Formula = "Data de entrega"
        .Cells(1, 4).Formula = "Hora de distribuição"
        .Cells(1, 5).Formula = "Data de aprovação"
        .Cells(1, 6).Formula = "Aprovador"
        .Cells(1, 7).Formula = "Data de atraso"


        .Range("A:G").Borders.Color = RGB(1, 1, 1)
        .Columns("A:AY").EntireColumn.AutoFit
        '.Range("A:A").Select
        .Selection.NumberFormat = "0"
    End With

End Sub


Ve se te ajuda
tenho outro que cria uma planilha com os dados mais nao da pra formata a planilha pelo menos nao consegui se quiser te passo
SCANDOLEIRO 31/08/2007 13:18:18
#233602
Então cara não é isto, quero aumentar a altura da linha e tb centralizar o texto, vc conhece a propriedade q trata isto e quais seu parâmetros?
Tópico encerrado , respostas não são mais permitidas
Voltar