MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Sequencia de Comandos para Importar Excel

    Compartilhe

    Luiz Gustavo M
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    [Resolvido]Sequencia de Comandos para Importar Excel

    Mensagem  Luiz Gustavo M em Qui 16 Jan 2014, 23:49

    Boa noite a todos.

    Utilizo um botão com código para importar dados de uma planilha do Excel.
    Access 2003 / XP

    Importo os "Dados!Area_de_Impressão" de uma subplanilha do Excel.

    O problema é que só consegui abrir a tela de importação: (código: DoCmd.RunCommand acCmdImport)

    Saberiam me informar os códigos para os comandos:
    > para especificar que se trata de importação de Excel;
    > informar o caminho (C:/...), o nome da planilha e a subplanilha.
    > e que os dados a serem importados são os "Dados!Area_de_Impressão"

    Pesquisei no forum e encontrei muito material sobre importação do excel, mas não conseguí adaptá-los, principalmente no que se refere a "Área de Impressão". Embarassed 

    Obrigado a todos


    .................................................................................
    Luiz Gustavo

    Luiz Gustavo M
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 447
    Registrado : 13/09/2011

    Re: [Resolvido]Sequencia de Comandos para Importar Excel

    Mensagem  Luiz Gustavo M em Sex 17 Jan 2014, 19:06

    Senhores.

    Pesquisei um pouco mais e achei a solução.

    Como diria o Mestre JPaulo: "Busque o simples"


    Dim strTabela As String
    strTabela = "TblTeste"
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTabela, "C:\teste.xlsx", True, "NomeAbaExcel" & "!A1:AQ500"




    .................................................................................
    Luiz Gustavo

      Data/hora atual: Dom 11 Dez 2016, 00:18