EXPORT LISTVIEW PARA EXCEL MUDANDO DATA

KURTGU 28/06/2016 15:51:29
#464202
Dificil pesquisei e vi outras pessoas na mesma situacao..
KURTGU 02/07/2016 02:37:12
#464420
up....
CHDSSANTOS 06/08/2016 23:45:58
#465586
KURTGU,

Já passei por esse mesmo problema.
Pela imagem que vc postou, gerar um simples arquivo CSV deve resolver a situação, é a mesma coisa que gerar uma extração em TXT, mas vc usa como delimitador ; e muda a extensão. (nota: não esquece as [Ô]aspas[Ô] em cada texto gerado). Arquivos CSV são associados automaticamente ao Excel pelo Windows.

Outra solução, que ao meu ver é valida é substituir / por . (ex: 12/04/2016 = 12.04.2016). Alguns grandes softwares se utilizam desta forma para garantir a integridade dos dados exportados (um exemplo é o SAP).

Outra alternativa é, antes de lançar a informação na celular formata-la como texto
Ex.
p.Cells(x, i).NumberFormat = [Ô]@[Ô]
p.Cells(x, i) = vDado

Agora, como tentativa diria para vc formatar a data como dd-mmm-yyyy antes de lançar a informação na célula.
KURTGU 08/08/2016 09:03:29
#465613
Citação:

:
KURTGU,

Já passei por esse mesmo problema.
Pela imagem que vc postou, gerar um simples arquivo CSV deve resolver a situação, é a mesma coisa que gerar uma extração em TXT, mas vc usa como delimitador ; e muda a extensão. (nota: não esquece as [Ô]aspas[Ô] em cada texto gerado). Arquivos CSV são associados automaticamente ao Excel pelo Windows.

Outra solução, que ao meu ver é valida é substituir / por . (ex: 12/04/2016 = 12.04.2016). Alguns grandes softwares se utilizam desta forma para garantir a integridade dos dados exportados (um exemplo é o SAP).

Outra alternativa é, antes de lançar a informação na celular formata-la como texto
Ex.
p.Cells(x, i).NumberFormat = [Ô]@[Ô]
p.Cells(x, i) = vDado

Agora, como tentativa diria para vc formatar a data como dd-mmm-yyyy antes de lançar a informação na célula.



Minha dificuldade esta em encontrar um forma de formatar esse dado ja tentei de todas as formas...
KERPLUNK 08/08/2016 17:06:59
#465631
Não acho que você tenha tentado de todas as formas. Então vou fazer o que não queria fazer, mostrar o que você está fazendo de errado ao invés de dar dicas para que você mesmo entenda:
Após exportar, verifique a formatação da célula. Se ela estiver formatada como data, verifique o formato de data. Muito possivelmente estará aí o problema.
CHDSSANTOS 12/08/2016 20:06:05
#465783
KURTGU,

Vc tentou mudar essa parte assim?

For i = 0 To ListView1.Items.Count - 1
For j = 0 To ListView1.Items(i).SubItems.Count - 1
[txt-color=#0000f0]sheet.Cells(i + 2, j + 1).NumberFormat = [Ô]@[Ô][/txt-color]
sheet.Cells(i + 2, j + 1) = ListView1.Items(i).SubItems(j).Text
Next
Next
KURTGU 12/08/2016 21:58:33
#465787
Citação:

:
KURTGU,

Vc tentou mudar essa parte assim?

For i = 0 To ListView1.Items.Count - 1
For j = 0 To ListView1.Items(i).SubItems.Count - 1
[txt-color=#0000f0]sheet.Cells(i + 2, j + 1).NumberFormat = [Ô]@[Ô][/txt-color]
sheet.Cells(i + 2, j + 1) = ListView1.Items(i).SubItems(j).Text
Next
Next



Obrigado já tinha tentado isso mais de forma diferente por isso não tinha dado certo da forma que você fez deu certo obrigada mesmo pela ajuda...
Página 3 de 3 [27 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar