MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Alterar documento Excel via Access

    Compartilhe

    joaomarcos84712722
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 17/03/2017

    [Resolvido]Alterar documento Excel via Access

    Mensagem  joaomarcos84712722 em 6/10/2017, 20:47

    Olá, Como faço para editar (inserir dados em uma planilha Excel) pelo Access, estando com o Excel fechado?


    Última edição por joaomarcos84712722 em 10/10/2017, 00:07, editado 1 vez(es)
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 754
    Registrado : 09/11/2012

    Re: [Resolvido]Alterar documento Excel via Access

    Mensagem  =>Nois em 9/10/2017, 20:36

    de uma maneira simples vincule o excel ao access igual uma tabela, fazendo referencia a guia onde sera o banco de dados.

    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

    joaomarcos84712722
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 17/03/2017

    Re: [Resolvido]Alterar documento Excel via Access

    Mensagem  joaomarcos84712722 em 10/10/2017, 00:05

    Não é bem isso, queria algo que eu pudesse simplesmente formatar e editar planilhas atraves do vba
    mas achei um codigo que precisava
    Código:

    Dim VarArquivo As String
    Dim rpt As Report
    Dim xlsApp As Excel.Application
    Dim xlsBook As Excel.Workbook
    Dim xls As Excel.Worksheet


    VarArquivo = "C:\Users\joaom\Desktop\Teste.xls"

    Set xlsBook = Workbooks.Open(VarArquivo, , , , , , , , , True)
    Set xlsApp = xlsBook.Parent
    Set xls = xlsApp.Sheets("Plan1")

    xlsApp.Visible = False
    xlsBook.Application.Cells(2, 3).Value = "Aqui"






      Data/hora atual: 18/10/2018, 15:19