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

    [Resolvido]Access para Excel linhas Impares

    avatar
    Pina
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 354
    Registrado : 19/02/2011

    [Resolvido]Access para Excel linhas Impares Empty [Resolvido]Access para Excel linhas Impares

    Mensagem  Pina 23/11/2013, 20:23

    Bom dia
    No ex: do João Paulo

    Private Sub SeuBotão_Click()
    'By JPaulo ® Maximo Access
    Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
    Set xls = CreateObject("Excel.Application")
    strLivro = CurrentProject.Path & "\teste.xls"
    xls.Workbooks.Open (strLivro)
    xls.Visible = True
    xls.Worksheets("Sheet1").Activate
    strSQL = "SELECT * FROM teste;"
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    xls.ActiveSheet.Range("A1").Select
    xls.ActiveCell.CopyFromRecordset rst
    xls.ActiveWorkbook.Save
    xls.Application.Quit
    Set xls = Nothing
    End Sub

    É Possivel passar os dados para o Excel nas linhas Impares?
    Ex: A1, A3; A5; A7 etc.
    Obrigado
    Pina
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Access para Excel linhas Impares Empty Re: [Resolvido]Access para Excel linhas Impares

    Mensagem  criquio 23/11/2013, 21:39

    Talvez adicionando uma variável numérica:

    Código:
    Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object, N As Integer
    E alterando um pouquinho a passagem dos registros:

    Código:
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

    N = 1

    Do While Not rst.EOF
        xls.ActiveSheet.Range("A" & N).Select
        xls.ActiveCell = rst!NomeDoCampo
        N = N + 2
        rst.MoveNext
    Loop

    xls.ActiveWorkbook.Save


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Pina
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 354
    Registrado : 19/02/2011

    [Resolvido]Access para Excel linhas Impares Empty Access para Excel linhas Impares.

    Mensagem  Pina 23/11/2013, 22:17

    Bom dia críquio
    adaptei a sua variável e deu certo
    Obrigado
    Pina
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Access para Excel linhas Impares Empty Re: [Resolvido]Access para Excel linhas Impares

    Mensagem  criquio 23/11/2013, 22:52

    Grato pelo retorno. O fórum agradece.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: 6/10/2022, 09:03