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]Sequencia de Comandos para Importar Excel

    Compartilhe
    avatar
    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
    avatar
    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: Sab 22 Jul 2017, 09:39