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 o que está no formulário para células definidas no Excel

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4636
    Registrado : 20/04/2011

    [Resolvido]Exportar o que está no formulário para células definidas no Excel Empty [Resolvido]Exportar o que está no formulário para células definidas no Excel

    Mensagem  Silvio em 8/6/2018, 19:54

    Prezados, estou a desenvolver e a estudar uma exportação para o Excel.

    Estou partindo dos campos que estão no formulário principal e no sub formulário para uma planilha no Excel ( já formatada com os campos definidos).

    Ou seja, tudo que está no formulário principal ( caixas de textos, combos ) e no sub formulário ( caixas de textos e combos), irão para essa planilha

    Exemplo:

    O que está no formulário principal na Txtbox1 vai para a A43...Txtbox2 vai para A45 ...Txt3 vai para C34 e assim por diante. O mesmo vai acontecer para o sub formulário.

    Por acaso algum dos colegas, já viveu ...já passou por isso ?

    No aguardo !!

    Agradeço !!


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4636
    Registrado : 20/04/2011

    [Resolvido]Exportar o que está no formulário para células definidas no Excel Empty Re: [Resolvido]Exportar o que está no formulário para células definidas no Excel

    Mensagem  Silvio em 9/6/2018, 16:14

    Up !!


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4636
    Registrado : 20/04/2011

    [Resolvido]Exportar o que está no formulário para células definidas no Excel Empty Re: [Resolvido]Exportar o que está no formulário para células definidas no Excel

    Mensagem  Silvio em 11/6/2018, 11:33

    UP>>>>>>>>>>>>


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Exportar o que está no formulário para células definidas no Excel Empty Re: [Resolvido]Exportar o que está no formulário para células definidas no Excel

    Mensagem  Avelino Sampaio em 11/6/2018, 11:54

    Silvio

    veja se ajuda:

    usandoaccess.com.br/dicas/manipular-planilha-excel-com-recordset.asp


    usandoaccess.com.br/dicas/atualizar-planilha-excel-com-access.asp?id=1&idlista=241


    Sucesso!
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4636
    Registrado : 20/04/2011

    [Resolvido]Exportar o que está no formulário para células definidas no Excel Empty Re: [Resolvido]Exportar o que está no formulário para células definidas no Excel

    Mensagem  Silvio em 11/6/2018, 12:38

    Bom dia Avelino...

    Quase...quase !

    Veja, tenho uma txt e preciso exportar o que está dentro dela para uma planilha, na celula C45.

    Cito apenas uma caixa, mas serão várias.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4636
    Registrado : 20/04/2011

    [Resolvido]Exportar o que está no formulário para células definidas no Excel Empty Re: [Resolvido]Exportar o que está no formulário para células definidas no Excel

    Mensagem  Silvio em 19/7/2018, 21:20

    Resolvido, mas sem solução. Apenas para fechar o tópico !!!


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4636
    Registrado : 20/04/2011

    [Resolvido]Exportar o que está no formulário para células definidas no Excel Empty Re: [Resolvido]Exportar o que está no formulário para células definidas no Excel

    Mensagem  Silvio em 20/1/2020, 12:00

    Resolvido


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3209
    Registrado : 21/04/2011

    [Resolvido]Exportar o que está no formulário para células definidas no Excel Empty Re: [Resolvido]Exportar o que está no formulário para células definidas no Excel

    Mensagem  Marcelo David em 20/1/2020, 12:11

    Bom dia Silvio,
    esqueceste o [Resolvido].
    Vou por para você Smile


    .................................................................................
    Marcelo David | [Resolvido]Exportar o que está no formulário para células definidas no Excel LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 22/11/2016

    [Resolvido]Exportar o que está no formulário para células definidas no Excel Empty Re: [Resolvido]Exportar o que está no formulário para células definidas no Excel

    Mensagem  DamascenoJr. em 21/1/2020, 00:16

    Há um tempo atrás eu tive essa necessidade para uma planilha que não podia ser aberta como recordset.

    Eu sei que o tópico está dado como resolvido sem solução. Mas aqui está ela.

    Código:
    On Error GoTo trataerro

        Dim xls As Object
       
        Set xls = CreateObject("Excel.Application")
        xls.Workbooks.Open ("CaminhoCompletoArquivo.xls")
        xls.Visible = False
        xls.WorkSheets("Planilha1").Activate
       
        xls.Range("A1").Value = "Nunca"
        xls.Range("B2").Value = "Desista"
        xls.Range("C3").Value = "Do"
        xls.Range("D4").Value = "Access"

        xls.ActiveWorkbook.Save
        xls.Application.Quit
        Set xls = Nothing
       
    sair:
        Exit Sub
       
    trataerro:
        MsgBox Err.Description, vbCritical, "Erro " & Err.Number
        Resume sair:


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4636
    Registrado : 20/04/2011

    [Resolvido]Exportar o que está no formulário para células definidas no Excel Empty Re: [Resolvido]Exportar o que está no formulário para células definidas no Excel

    Mensagem  Silvio em 1/2/2020, 17:52

    a solução...que eu encontrei.

    Private Sub bt_exportarZaroo_Click()

    'Rotina para exportar para Excel com celulas referenciadas. 01/09/2018
    If Me.Forneoculta <> "ZAROO" Then
    MsgBox "Exportação somente para ZAROO", vbCritical, "AVISO..."
    Else
    Dim RstFrm As DAO.Recordset, RstSubFrm As DAO.Recordset, l As Integer
    Dim MeuExcel As Object
    Set MeuExcel = CreateObject("Excel.Application")
    MeuExcel.Visible = True
    MeuExcel.Workbooks.Open FileName:=CurrentProject.Path & "\ZAROO.xls" 'ZAROO é o nome da planilha e tem que estar no mesmo folder do sistema

    Set RstFrm = Me.RecordsetClone
    RstFrm.Bookmark = Me.Bookmark
    MeuExcel.Range("C7") = RstFrm("cliente") '
    MeuExcel.Range("S7") = RstFrm("NomeFantasia") '
    MeuExcel.Range("C13") = RstFrm("CNPJ") '
    MeuExcel.Range("C14") = RstFrm("InscrEstadual") '
    MeuExcel.Range("C8") = RstFrm("endereco") & " ," & RstFrm("Numero") '
    MeuExcel.Range("C9") = RstFrm("Bairro") '
    MeuExcel.Range("C10") = RstFrm("Cidade") '
    MeuExcel.Range("C11") = RstFrm("Estado") '
    MeuExcel.Range("C12") = RstFrm("CEP") '
    MeuExcel.Range("H11") = RstFrm("Fone") & " / " & RstFrm("Celular") '
    MeuExcel.Range("C16") = RstFrm("EmailNF") '
    MeuExcel.Range("H13") = RstFrm("Prazoculta") '
    MeuExcel.Range("S6") = RstFrm("ContatoCliente") '
    MeuExcel.Range("S4") = RstFrm("DataPed")
    MeuExcel.Range("S3") = RstFrm("VendedorOculta") '
    MeuExcel.Range("B23") = RstFrm("Observacao") '
    MeuExcel.Range("V2") = RstFrm("NossoPedido") '

    Set RstSubFrm = Me!SFrmDpedido.Form.RecordsetClone
    RstSubFrm.MoveFirst
    l = 24 ' Uma celula(celula onde está o texto)antes da inserção.
    Do While Not RstSubFrm.EOF
    l = l + 1
    MeuExcel.Range("B" & l) = RstSubFrm("CodProdutoOculta") '
    MeuExcel.Range("C" & l) = RstSubFrm("Artigo")
    MeuExcel.Range("E" & l) = RstSubFrm("QTD")
    MeuExcel.Range("F" & l) = RstSubFrm("PUN") ' tamanho P
    MeuExcel.Range("G" & l) = RstSubFrm("MR") ' tamanho M
    MeuExcel.Range("H" & l) = RstSubFrm("GPP") ' tamanho G
    MeuExcel.Range("I" & l) = RstSubFrm("GGP") ' tamanho GG
    'MeuExcel.Range("J" & l) = RstSubFrm("18") ' tamanho XG não tem no sistema
    MeuExcel.Range("K" & l) = RstSubFrm("34M") ' tamanho 34
    MeuExcel.Range("L" & l) = RstSubFrm("36G") ' tamanho 36
    MeuExcel.Range("M" & l) = RstSubFrm("38GG") ' tamanho 38
    MeuExcel.Range("N" & l) = RstSubFrm("401") ' tamanho 40
    MeuExcel.Range("O" & l) = RstSubFrm("422") ' tamanho 42
    MeuExcel.Range("P" & l) = RstSubFrm("443") ' tamanho 44
    MeuExcel.Range("Q" & l) = RstSubFrm("464") ' tamanho 46
    MeuExcel.Range("R" & l) = RstSubFrm("486") ' tamanho 48
    MeuExcel.Range("S" & l) = RstSubFrm("508") ' tamanho 50
    MeuExcel.Range("T" & l) = RstSubFrm("5210") ' tamanho 52
    MeuExcel.Range("V" & l) = RstSubFrm("PrecoVenda") ' Preço de venda
    MeuExcel.Range("W" & l) = RstSubFrm("TotalOculta") ' Preço total dos itens ( qtd * preço de venda )
    RstSubFrm.MoveNext
    Loop

    'Fecha o arquivo Excel
    MeuExcel.ActiveWorkbook.Close SaveChanges:=True
    MeuExcel.Visible = True: MeuExcel.Quit: Set MeuExcel = Nothing
    Set RstFrm = Nothing
    Set RstSubFrm = Nothing
    MsgBox "A planilha foi atualizada...", vbInformation, "Aviso"
    End If
    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 22/11/2016

    [Resolvido]Exportar o que está no formulário para células definidas no Excel Empty Re: [Resolvido]Exportar o que está no formulário para células definidas no Excel

    Mensagem  DamascenoJr. em 1/2/2020, 17:55

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 2/12/2020, 13:42