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

    Transferir ou colar no Excel

    julimar
    julimar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 05/04/2013

    Transferir ou colar no Excel Empty Transferir ou colar no Excel

    Mensagem  julimar 8/12/2013, 19:05

    Boa tarde a todos.
    O código abaixo exporta os dados da tabela para o Excel. O problema é que no caso de uma tabela que possui alguns campos com origem em uma consulta, ele não faz a transferência do texto. Ela transfere apenas os códigos (ex: tblListaCidade.CodigoCidade, tblListaCidade.NomeCidade). Como devemos fazer para corrigir isso? Se não for possível, existe uma forma de eu adaptar a função do menu do Access "Vinculos do MS-Office - Analisar com Excel" em um botão do formulário, pois esta função transfere os dados de forma como eles deve ser visualizados e impressos.

    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
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Transferir ou colar no Excel Empty Re: Transferir ou colar no Excel

    Mensagem  Dilson 29/1/2014, 01:00

    Pelo tempo já deves ter resolvido isso.

    No entanto, se ainda persiste a situação, acho que poderia construir uma consulta e na grade de campos colocaria os campos diretamente das tabelas relacionadas.


      Data/hora atual: 25/11/2024, 10:13