MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Exportar dados do Access para uma celula especifica do excel

    Toris
    Toris
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 20
    Registrado : 05/11/2009

    [Resolvido]Exportar dados do Access para uma celula especifica do excel Empty Exportar dados do Access para uma celula especifica do excel

    Mensagem  Toris em 11/10/2011, 13:20

    Olá,
    gostaria de obter ajuda acerca de como se faz a transferencia de uma dado de uma tabela para uma celula especifica do excel.
    Obrigado
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Exportar dados do Access para uma celula especifica do excel Empty Re: [Resolvido]Exportar dados do Access para uma celula especifica do excel

    Mensagem  criquio em 16/10/2011, 04:08

    Temos aqui no forum alguns tópico resolvidos sobre exportação e importação para e do Excel. Dê uma pesquisada por Excel exportar.


    .................................................................................
    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.

    Toris
    Toris
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 20
    Registrado : 05/11/2009

    [Resolvido]Exportar dados do Access para uma celula especifica do excel Empty Re: [Resolvido]Exportar dados do Access para uma celula especifica do excel

    Mensagem  Toris em 17/10/2011, 09:00

    sim, mas o que pretendia era exportar um dado campo de uma tabela/consulta do access para uma celula especifica do excel.
    Exemplo:
    - o nome do funcionário é exportado para a célula d7, da folha 'impressocliente' do ficheiro do excel.

    isto é, os dados são controlados no access e o impressos são trabalhados no excel, com formulários personalizados.

    Obrigado.
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Exportar dados do Access para uma celula especifica do excel Empty Re: [Resolvido]Exportar dados do Access para uma celula especifica do excel

    Mensagem  vieirasoft em 14/11/2011, 11:59

    Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.
    Toris
    Toris
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 20
    Registrado : 05/11/2009

    [Resolvido]Exportar dados do Access para uma celula especifica do excel Empty Re: [Resolvido]Exportar dados do Access para uma celula especifica do excel

    Mensagem  Toris em 22/11/2011, 13:30

    Resolvido? Nem por isso!
    Mas obrigado pelo esforço.
    José
    José
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 118
    Registrado : 14/03/2010

    [Resolvido]Exportar dados do Access para uma celula especifica do excel Empty Re: [Resolvido]Exportar dados do Access para uma celula especifica do excel

    Mensagem  José em 22/11/2011, 13:36

    Veja este código. Está nesta página: http://www.macoratti.net/excel_vb.htm. Talvez te ajude a desenvolver o que está pretendendo.

    Dim xl As New Excel.Application
    Dim xlw As Excel.Workbook

    'Abrir o arquivo do Excel
    Set xlw = xl.Workbooks.Open("c:\teste\teste.xls")

    ' definir qual a planilha de trabalho
    xlw.Sheets("Plan1").Select

    'Exibe o conteúdo da célula na posição 2,3

    ' variavel = xlw.Application.Cells(2, 3).Value
    MsgBox xlw.Application.Cells(2, 3).Value



    ' Fechar a planilha sem salvar alterações
    ' Para salvar mude False para True

    xlw.Close False

    ' Liberamos a memória

    Set xlw = Nothing
    Set xl = Nothing

    Grande abraço.
    José
    José
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 118
    Registrado : 14/03/2010

    [Resolvido]Exportar dados do Access para uma celula especifica do excel Empty Re: [Resolvido]Exportar dados do Access para uma celula especifica do excel

    Mensagem  José em 22/11/2011, 13:48

    Veja este outro exemplo encontrado na net:


    Set objExcel = CreateObject("Excel.application")

    objExcel.Visible = True

    With objExcel
    .workbooks.Open (strPlanilha)
    .selection.currentregion.select
    '.selection.autofilter
    .range("A1").select
    'alterando o nome do campo da coluna
    .range("A1") = "Dt agendada"
    .range("B1") = "Controle Visitas"
    .range("C1") = "Nº do chamado"
    .range("D1") = "Agencia"
    .range("E1") = "Username"
    .range("F1") = "Empresa/Cliente"
    .range("G1") = "Endereço"
    .range("H1") = "Bairro"
    .range("I1") = "Contato"
    .range("J1") = "Telefone"
    .range("K1") = "Produto"
    .range("L1") = "Periodo"
    .range("M1") = "Tipo Emp"
    .range("N1") = "Nome do Operador"
    .range("O1") = "polo"
    .range("P1") = "cidade"
    .range("Q1") = "estado"
    .range("R1") = "cnpj"
    .workbooks(1).Close savechanges:=True
    .Quit
    End With
    Set objExcel = Nothing


    .Columns("A").NumberFormat = "dd/mm/yyyy"

    Autor: MTeles - Access 2k & WinXP, IIS 5
    Toris
    Toris
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 20
    Registrado : 05/11/2009

    [Resolvido]Exportar dados do Access para uma celula especifica do excel Empty Re: [Resolvido]Exportar dados do Access para uma celula especifica do excel

    Mensagem  Toris em 22/11/2011, 18:10

    obrigado. vou experimentar!
    Toris
    Toris
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 20
    Registrado : 05/11/2009

    [Resolvido]Exportar dados do Access para uma celula especifica do excel Empty Re: [Resolvido]Exportar dados do Access para uma celula especifica do excel

    Mensagem  Toris em 3/9/2013, 22:37

    A funcionar em pleno.
    Obrigado ao forum!

      Data/hora atual: 9/8/2020, 13:03