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]Importação de Planilha Excel

    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]Importação de Planilha Excel Empty [Resolvido]Importação de Planilha Excel

    Mensagem  ifahidalgo 12/6/2015, 18:01

    quando importo uma planilha em excel para uma tabela, utilizando o codigo abaixo

    Diretorio = "C:\Sistemas\Controle Funcionario\doc\" & txtarquivo
    Pasta = Me!txtpasta & "!"
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tblexcel", Diretorio, True, Pasta
    CurrentDb.Execute ("ALTER TABLE tblexcel ADD COLUMN hora time;")
    CurrentDb.Execute ("ALTER TABLE tblexcel ALTER COLUMN DATA date;")

    e quando converte o campo DATA, para data, ele fica com um @ no formato e o campo fica com uns caracteres estranhos, quando entro na estrutura da tabela e excluo o @, fica normal.

    como alterar o formato do campo na tabela via codigo?
    ao converter, conforme linha acima em vermelho, tem como formatar para dd/mm/aaaa?
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido]Importação de Planilha Excel Empty Importação de Planilha Excel

    Mensagem  daniloreiis 12/6/2015, 18:41

    Olá boa tarde poderia disponibilizar o projeto para melhor ajuda-lo ?


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]Importação de Planilha Excel Empty Re: [Resolvido]Importação de Planilha Excel

    Mensagem  ifahidalgo 12/6/2015, 18:56

    Para melhorar a situação, acho que pensei em algo mais fácil.

    pegar um campo que após importação de arquivo em excel, está como texto, e as informações nesse campo é ness e padrão.

    13/12/2012 13:08
    29/04/2013 08:56
    29/04/2013 11:57
    29/04/2013 12:17
    29/04/2013 18:21
    29/04/2013 18:37
    29/04/2013 20:06
    30/04/2013 08:50
    30/04/2013 11:31

    preciso pegar essas informações e colocar em outro campo da tabela
    13/12/2012
    29/04/2013
    29/04/2013
    29/04/2013
    29/04/2013
    29/04/2013
    29/04/2013
    30/04/2013
    30/04/2013

    alguém pode me dar uma luz.
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]Importação de Planilha Excel Empty Re: [Resolvido]Importação de Planilha Excel

    Mensagem  ifahidalgo 12/6/2015, 19:22

    no site accessdoprogramador

    On Error GoTo TratareiErro

    'Variável para referenciar o banco de dados
    Dim Db As DAO.Database
    'Variável para referenciar o conjunto de registros
    Dim Rs As DAO.Recordset
    'Variável que armazenará o n° total de registros a serem percorridos no loop
    Dim Contador As Long
    'Variável que armazenará a contagem de registros a cada passada do loop
    Dim ContaOProgresso As Long
    'Variável que receberá a letra que será capturada usando a função Left(Rs(Index),1)
    Dim L As String

    'Instancio o objeto banco de dados
    Set Db = OpenDatabase(CurrentProject.Path & "\SysFunc.mdb")
    'Instancio o recordset, ou seja, o conjunto de registros da tabela
    Set Rs = Db.OpenRecordset("tblexcel")

    'Movimento no recordset até o ultimo registro para precisar o número de registros no recordset
    Rs.MoveLast

    'Alimento a variável Contador com o total de registros no conjunto de dados, que é o recordset
    Contador = Rs.RecordCount

    'Movo para o primeiro registro do recordset
    Rs.MoveFirst

    'Utilizo o SysCmd para executar uma barra de progresso para indicar a que pé encontrará o processamento.
    SysCmd acSysCmdInitMeter, "Realizando as alterações, aguarde...", Contador

    'Inicio o loop que irá do primeiro registro ao ultimo
    'Veja que já sabemos a quantidade a ser percorrida na variável Contador
    For ContaOProgresso = 1 To Contador

    'Atualizo as informações da barra de progresso
    'Mostrará a evolução de 1 a cada valor passado do Contador
    SysCmd acSysCmdUpdateMeter, ContaOProgresso

    'Utilizo a função Left para capturar somente a letra no inicio da string e armazenar na variável L
    L = Left(Rs(0), 10)

    'Abro a edição na linha que estou passando
    Rs.Edit
    'Já com a letra capturada a insiro na coluna Letra
    Rs(12) = L
    'Atualizo o registro
    Rs.Update

    'E vou para o próximo
    Rs.MoveNext

    'Aqui acontece o loop, ou seja, retorno lá pra cima novamente
    'apartir do For ContaOProgresso eu faço mesmo procedimento que fiz na linha de registro anterior.
    Next ContaOProgresso


    'Quando o For ContaOProgresso = 1 chegar ao total do Contador, o loop terá chegado ao seu final.
    'Não resta mais nada a não ser fechar o recordset
    Rs.Close
    'E também o banco
    Db.Close

    'Removo a barra de progresso
    SysCmd acSysCmdRemoveMeter

    'E informo uma mensagem dizendo o número de registros percorridos
    MsgBox "OK, Total de: " & Contador & " registros", vbInformation, "Concluído"


    Exit_TratareiErro:
    Exit Sub

    'Se algo impedir o funcionamento do código, emite uma mensagem informando ao usuário qual o erro
    TratareiErro:
    MsgBox "Ocorreu uma falha neste processamento." _
    & vbCrLf & "Trata-se do erro n°: " & Err.Number _
    & vbCrLf & "Descrição: " & Err.Description, vbCritical, "Erro inesperado"

    Exit Sub
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]Importação de Planilha Excel Empty Re: [Resolvido]Importação de Planilha Excel

    Mensagem  ifahidalgo 12/6/2015, 19:23

    Obrigado pela atenção

      Data/hora atual: 27/1/2022, 00:28