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

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?

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

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()
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

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:

https://www.maximoaccess.com/t29052-importar-do-excel-atraves-de-recordset-informando-a-coluna-e-nao-nome-dos-campos-excel
https://www.maximoaccess.com/t27311-importar-dados-planilha-excel-e-desmembrar-os-dados-em-duas-tabelas-tbpessoa-e-tbendereco
https://www.maximoaccess.com/t26911-importar-planilha-excel-informando-a-tabela-de-destino-a-folha-sheets-de-origem-e-localizando-o-documento-excel

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

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

Boa tarde!

Valeu meu colega!