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]Os dados contidos na área de transferência estão danificados.

    Compartilhe

    mfendesa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 06/03/2013

    [Resolvido]Os dados contidos na área de transferência estão danificados.

    Mensagem  mfendesa em Qua 18 Abr 2018, 16:08

    Olá, Sou Marcos Fábio!

    Galera estou com um problema de transferência, quando tento transferir dados de uma planilha do excel para o access apenas 98% dos dados, quando tento copiar e colar manualmente aparece a seguinte mensagem: "Os dados contidos na área de transferência estão danificados, Portanto, o Microsoft Office Access não pode colá-los". E só consigo colando especial valores.
    Alguém pode me ajudar?


    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Os dados contidos na área de transferência estão danificados.

    Mensagem  Noobezinho em Qua 18 Abr 2018, 18:32

    Marcos

    Por que isso se faz utilizando código VBA para fazer a transferência e não copie e cola.

    veja aqui no fórum tem vários tópicos tratando disso, é só clicar no botão Buscar no menu ali

    de cima e digitar: importar planilha

    [ ]'s

    mfendesa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 06/03/2013

    Re: [Resolvido]Os dados contidos na área de transferência estão danificados.

    Mensagem  mfendesa em Qua 18 Abr 2018, 19:10

    Meu nobre Noobezinho,

    Estou utilizando sim código, porém percebi que com o código não são transferidas todas as linha, e quando tento copiar e colar manualmente dá a mensagem:  "Os dados contidos na área de transferência estão danificados, Portanto, o Microsoft Office Access não pode colá-los".
    Segue código abaixo que estou utilizando. Ao analisar o arquivo de excel percebi que no campo observação contém espaços excedente no inicio e fim da frase.

    Public Sub CRE(nomeArquivo As String)
    separador = Chr(9)  '''No código ASC Chr(9) corresponde a separadores de tabulação "TAB"
    Set rs = DBEngine(0)(0).OpenRecordset("tbexefilha", dbOpenDynaset)
    Set FS = CreateObject("Scripting.FileSystemObject")
    Set F = FS.OpenTextFile(nomeArquivo)
    DoCmd.Hourglass True
    myContador = 0

    While F.AtEndOfStream <> True
    myContador = myContador + 1
    myString = F.readline
    Wend
    Set FS = CreateObject("Scripting.FileSystemObject")
    Set F = FS.OpenTextFile(nomeArquivo)

    LinhaInicial = 1

    Linha = F.readline


    While F.AtEndOfStream <> True 'Laço até o final do arquivo
    myString = F.readline
    myArr = Split(myString, separador)
    myCounter = UBound(myArr)

    If myCounter > 1 Then

    rs.AddNew
    rs("Nome") = Trim(myArr(0))
    rs("BAREMO") = Trim(myArr(1))
    rs("RASTREIO") = Trim(myArr(2))
    rs("QUANTIDADE DE ATIVIDADES") = Trim(myArr(3))
    rs("DATA INICIO") = Format(Trim(myArr(4)), "dd/mm/yyyy")
    rs("DATA FIM") = Format(Trim(myArr(5)), "dd/mm/yyyy")
    rs("TIPO") = Trim(myArr(6))
    rs("ID") = Trim(myArr(7))
    rs("ESTADO") = Trim(myArr(Cool)
    rs("OBSERVAÇÕES") = retexe  'Trim(myArr(9)
    rs("Tempo (min)") = Trim(myArr(10))
    rs("No Operações") = Trim(myArr(11))
    rs("Data Creación Tarea") = Trim(myArr(12))
    rs("Data modificación") = Trim(myArr(13))
    rs("Última data de Gestion") = Trim(myArr(14))
    rs("Data Ultimo Cambio Estado") = Trim(myArr(15))
    rs("Usuário última alteração de estado") = Trim(myArr(16))
    rs("PT_Nombre y apellidos usuario último cambio de estado") = Trim(myArr(17))
    rs("Usuário última alteração de estado(Alias)") = Trim(myArr(18))
    rs("Usuário última gestão") = Trim(myArr(19))
    rs("Usuário última gestão(Alias)") = Trim(myArr(20))
    rs("PT_Nombre y apellidos usuario última gestión") = Trim(myArr(21))
    rs("Usuário criação tarefa") = Trim(myArr(22))
    rs("Usuário criação gestão(Alias)") = Trim(myArr(23))
    rs("PT_Nombre y apellidos usuario creación tarea") = Trim(myArr(24))
    rs("DT1") = Trim(myArr(25))
    rs("DT2") = Trim(myArr(26))


    rs.Update
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Os dados contidos na área de transferência estão danificados.

    Mensagem  FabioPaes em Qui 19 Abr 2018, 18:16

    Olá, amigo, o Excel lhe proporciona uma game de possibilidades de importação dos dados!

    Porém esse método como Texto eu nunca tentei fazer!

    Recomendarei alguns exemplos, faça um teste com esse códigos e veja se algum deles funciona 100% no seu caso.

    Se não der certo nenhum deles, Monte um Exemplo e anexe junto com a planilha a ser Importada!


    Exemplos:

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Se nenhum desse Funcionar, posta o Exemplo pra encontrarmos uma solução!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Os dados contidos na área de transferência estão danificados.

    Mensagem  FabioPaes em Seg 30 Abr 2018, 18:15

    Olá, como ficou sua situação amigo?


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    mfendesa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 06/03/2013

    Re: [Resolvido]Os dados contidos na área de transferência estão danificados.

    Mensagem  mfendesa em Sex 18 Maio 2018, 20:54

    Boa tarde!

    Valeu meu colega!


      Data/hora atual: Qua 20 Jun 2018, 12:40