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]Mudar nome de folha de excel via Access

    Compartilhe

    serbarbosaportugal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 25/06/2014

    [Resolvido]Mudar nome de folha de excel via Access

    Mensagem  serbarbosaportugal em Dom 24 Abr 2016, 21:14

    Boa noite

    Estou a usar, num projeto, o seguinte código do Mestre JP para importar de uma pasta vários documentos em excel:

    Código que importa de uma só vez, todas as folhas de excel que estiverem em c:\ para a tabela

    Private Sub SeuBotao_Click()
    Dim strPathFile As String, strFile As String, strPath As String
    Dim strTable As String
    Dim blnHasFieldNames As Boolean
    blnHasFieldNames = True
    strPath = "C:\" ' drive onde se situa o seu documento excel
    strTable = "tblExemplo" 'nome da tabela no seu banco
    strFile = Dir(strPath & "temp.xls") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel _
    que estiverem em C:\ para a tabela do banco.
    Do While Len(strFile) > 0
    strPathFile = strPath & strFile
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
    strTable, strPathFile, blnHasFieldNames
    strFile = Dir()
    Loop
    End Sub

    A minha dificuldade é a seguinte: eu apenas pretendo ir buscar os dados à primeira folha dos documentos, cujo nome pode ser diferente de uma para outras.
    Como posso definir através do código acima, qual o nome a dar a folha ativa do excel para ir buscar apenas os dados desta???

    Mil obrigados!!

    serbarbosaportugal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 25/06/2014

    Re: [Resolvido]Mudar nome de folha de excel via Access

    Mensagem  serbarbosaportugal em Qui 28 Abr 2016, 23:06

    Boas noites....

    Parece que ninguém consegue me ajudar. como faço para, selecionar o intervalo de dados a ser importado, apenas da 1.ª folha do excel, independente do respetivo nome??

    Obrigado

    serbarbosaportugal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 47
    Registrado : 25/06/2014

    Re: [Resolvido]Mudar nome de folha de excel via Access

    Mensagem  serbarbosaportugal em Sab 07 Maio 2016, 00:02

    Bem,,,,

    Não existe solução para a minha questão. Por isso, fecho o post!!

      Data/hora atual: Sab 10 Dez 2016, 04:57