MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    [Resolvido]Importando Planilha Excel

    avatar
    rodrigosky
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 83
    Registrado : 17/05/2013

    [Resolvido]Importando Planilha Excel Empty Importando Planilha Excel

    Mensagem  rodrigosky 3/10/2013, 19:33

    Importando Planilha Excel

    Caros colegas, momento estou importando uma planilha com o seguinte comando mencionado abaixo, entendo que este comando busca as informações contidas na primeira guia da planilha no intervalo B:C, agora vai as minhas duvidas, 1º teria a possibilidade dele buscar a ultima guia existente?, 2º teria a possibilidade dele buscar uma guia especifica não mudando o intervalo desejado que seria B:C.


    Comando:

    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "tbl_pagamentos_diarios_excel_403504", strDir, True, "B:C"
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 219
    Registrado : 15/06/2013

    [Resolvido]Importando Planilha Excel Empty Re: [Resolvido]Importando Planilha Excel

    Mensagem  Eloirp 17/10/2013, 15:04

    Olá Rodrigo,
    Veja se ajuda o código abaixo, pois consegue especificar a guia (Plan1) onde irá buscar os dados no Excel. É um código que consegui aqui no fórum e só ajustei para a minha necessidade....
    Existe outro código que localiza o arquivo (caminho e nome) e depois este código pega estes dados do próprio form...

       Dim strPathFile As String, strFile As String, strPath As String
       Dim blnHasFieldNames As Boolean
       Dim intWorksheets As Integer
       Dim strWorksheets(1 To 1) As String
       
       Dim strTables(1 To 1) As String
       
       strWorksheets(1) = "Plan1" 'define a guia onde buscar os dados
       strTables(1) = "tbl_CrossReference_PV_Temp" 'define a tabela onde carregar os dados
       blnHasFieldNames = True
       strPath = "" & Me.OrigemPath & "\" 'define o caminho onde está a pasta Excel
       
       For intWorksheets = 1 To 1
       
       strFile = Dir(strPath & "" & Me.Arquivo & "") 'define o caminho+nomearquivo a importar
       
       Do While Len(strFile) > 0
       strPathFile = strPath & strFile
       DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTables(intWorksheets), strPathFile, blnHasFieldNames, strWorksheets(intWorksheets) & "$"
       strFile = Dir()
       Loop

       Next intWorksheets
    avatar
    rodrigosky
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 83
    Registrado : 17/05/2013

    [Resolvido]Importando Planilha Excel Empty Re: [Resolvido]Importando Planilha Excel

    Mensagem  rodrigosky 17/10/2013, 16:23

    Muito Obrigado Eloirp, como este código creio que sana meus problemas.
    Abraço
    Valeu

      Data/hora atual: 5/12/2022, 19:06