MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    Definir cada coluna do excel q vai receber Dados

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 546
    Registrado : 30/08/2010

    Definir cada coluna do excel q vai receber Dados Empty Definir cada coluna do excel q vai receber Dados

    Mensagem  NADIRONUNES 24/11/2022, 10:40

    bom dia a Todos


    eu uso esse codigo pra transferir dados de uma tabela pra uma planilha no excel, mas queria definir dados pra cada coluna no excel
    Código:
    Public Function TransMcxls()
    Dim xls As Object
    Parametros_de_CaminhoDR "SysCaminhoDrServidor.par"
    Parametros_de_Periodo "SysData.jas"
    Call CopiaFicheiro
    strXls = Dr_caminhoCartoes & Trim(UCase(RemoveAcento(Format(m_Mes, "mmmm-yyyy")))) & ".xlsx"
    Set xls = CreateObject("Excel.Application")
        Dim filtro
        filtro = Format(M_I, "mm/dd/yyyy") & "' AND '" & Format(M_F, "mm/dd/yyyy")
        xls.Workbooks.Open (strXls)
        Set xlsht = xls.Worksheets(1) ' 1 é a primeira planilha
        xls.Visible = False
       ' xls.Worksheets("Cartoes").Activate
           xls.ActiveSheet.Range("B38") = "RECEBIMENTOS DE CLIENTES "
        Call Conectar
        sql = "SELECT MCartoes.DATA, MCartoes.CIELOCREDITO, MCartoes.CIELODEBITO,TCielo, MCartoes.FORTCARDCREDITO, MCartoes.REDECREDITO, MCartoes.REDEDEBITO,TRede, MCartoes.ALELO, MCartoes.VEGASCARD, MCartoes.PRIMECREDITO" & vbCrLf & _
              "FROM MCartoes " & vbCrLf & _
              "WHERE MCartoes.DATA Between '" & filtro & "'" & vbCrLf & _
              "ORDER BY MCartoes.Data;"
        Set rst = Conexao.Execute(sql, 4)
    xls.ActiveSheet.Range("B3").Value = "DATA"
    xls.ActiveSheet.Range("B3").Font.Bold = True
    xls.ActiveSheet.Range("B4").Select
    xls.ActiveCell.CopyFromRecordset rst
    'Range("B3").Font.color = vbRed
    xls.ActiveWorkbook.Save
        mysql = "SELECT Lanccar.DataLanc,Lanccar.nomeCliente, Lanccar.VlrLC,Lanccar.Descricao, Lanccar.tP" & vbCrLf & _
              "FROM Lanccar " & vbCrLf & _
              "WHERE Lanccar.DataLanc Between '" & filtro & "' And Tp='AV'" & vbCrLf & _
              "ORDER BY Lanccar.DataLanc;"
        Set RS = Conexao.Execute(mysql, 4)
    xls.ActiveSheet.Range("B40").Select
    xls.ActiveCell.CopyFromRecordset RS
    xls.ActiveWorkbook.Save

    xls.Application.Quit
    Set xls = Nothing
    Call Desconectar
    End Function

    xls.ActiveCell.CopyFromRecordset RS esse alinha envia os dados pro excel ne entao queria definir as colunas pra cada dados
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3805
    Registrado : 04/04/2010

    Definir cada coluna do excel q vai receber Dados Empty Re: Definir cada coluna do excel q vai receber Dados

    Mensagem  Avelino Sampaio 30/11/2022, 11:15

    Olá!

    veja se consegue evoluir com este meus dois artigos:

    Copie e cole o enereço no seu navegador:
    usandoaccess.com.br/dicas/criar-planilha-excel-com-access.asp
    usandoaccess.com.br/dicas/manipular-planilha-excel-com-recordset.asp


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 546
    Registrado : 30/08/2010

    Definir cada coluna do excel q vai receber Dados Empty Re: Definir cada coluna do excel q vai receber Dados

    Mensagem  NADIRONUNES 30/11/2022, 11:25

    bom dia avelino

    so que meus dados comeca a ser inserido na coluna B linha 4

    Definir cada coluna do excel q vai receber Dados 2022-110
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3805
    Registrado : 04/04/2010

    Definir cada coluna do excel q vai receber Dados Empty Re: Definir cada coluna do excel q vai receber Dados

    Mensagem  Avelino Sampaio 30/11/2022, 17:41

    "mas queria definir dados pra cada coluna no excel"

    Ofereça um pouco mais de detalhamento.

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 546
    Registrado : 30/08/2010

    Definir cada coluna do excel q vai receber Dados Empty Re: Definir cada coluna do excel q vai receber Dados

    Mensagem  NADIRONUNES 30/11/2022, 18:10

    essa consulta
    sql = "SELECT MCartoes.DATA, MCartoes.CIELOCREDITO, MCartoes.CIELODEBITO,TCielo, MCartoes.FORTCARDCREDITO, MCartoes.REDECREDITO, MCartoes.REDEDEBITO,TRede, MCartoes.ALELO, MCartoes.VEGASCARD, MCartoes.PRIMECREDITO" & vbCrLf & _
    "FROM MCartoes " & vbCrLf & _
    "WHERE MCartoes.DATA Between '" & filtro & "'" & vbCrLf & _
    "ORDER BY MCartoes.Data;"


    que preenche as colunas B a L

      Data/hora atual: 7/12/2022, 12:22