EXPORT LISTVIEW PARA EXCEL MUDANDO DATA

KURTGU 24/05/2016 11:40:45
#462490
Alguem saberia me dizer o porque quando exporto ele muda a data?



Public Sub saveExcelFile1(ByVal FileName As String)

Try
Me.Enabled = False
Dim xls As New Excel.Application
Dim sheet As Excel.Worksheet
Dim i As Integer
xls.Workbooks.Add()
sheet = xls.ActiveWorkbook.ActiveSheet
Dim row As Integer = 1
Dim col As Integer = 1

For i = 0 To ListView1.Columns.Count - 1
sheet.Cells(1, i + 1) = ListView1.Columns(i).Text
Next

For i = 0 To ListView1.Items.Count - 1
For j = 0 To ListView1.Items(i).SubItems.Count - 1
sheet.Cells(i + 2, j + 1) = ListView1.Items(i).SubItems(j).Text
Next
Next

[ô] for the header
sheet.Rows(1).Font.Name = [Ô]Microsoft Sans Serif[Ô]
sheet.Rows(1).Font.size = 9
sheet.Rows(1).Font.Bold = True
sheet.Rows(1).HorizontalAlignment = Excel.XlVAlign.xlVAlignCenter

[ô] for all the sheet without header
sheet.Range([Ô]a2[Ô], [Ô]z1000[Ô]).Font.Name = [Ô]Arial[Ô]
sheet.Range([Ô]a2[Ô], [Ô]z1000[Ô]).Font.Size = 9
sheet.Range([Ô]a2[Ô], [Ô]z1000[Ô]).HorizontalAlignment = Excel.XlVAlign.xlVAlignCenter

sheet.Range([Ô]A1:X1[Ô]).EntireColumn.AutoFit()
sheet.Range([Ô]A1:X1[Ô]).EntireRow.AutoFit()

xls.ActiveWorkbook.SaveAs(FileName)
xls.Workbooks.Close()
xls.Quit()
MsgBox([Ô]DADOS EXPORTADOS COM SUCESSO...[Ô])
Me.Enabled = True
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub

#End Region
KURTGU 24/05/2016 12:01:07
#462491
Uma coisa que pensei que fosse o formato americano mais sei la por que so nessas linhas?
KERPLUNK 24/05/2016 13:22:35
#462496
Citação:

:
Uma coisa que pensei que fosse o formato americano mais sei la por que so nessas linhas?


Quantos meses existem em um ano?
KURTGU 24/05/2016 13:26:45
#462498
Citação:

:
:
Uma coisa que pensei que fosse o formato americano mais sei la por que so nessas linhas?

Quantos meses existem em um ano?




12 kkkkkkk
CHDSSANTOS 24/05/2016 14:00:35
#462499 Resposta escolhida
KURTGU, boa tarde!

Pensei na seguintes soluções:

1ª - Em vez de gerar um arquivo de Excel você poderia gerar um arquivo CSV. Este arquivo é associado ao Excel por padrão.
2ª - Quando for data troque barra por ponto (ex: 12/04/2016 = 12.04.2016), a edição do campo fica a cargo do usuário no Excel.
3ª - Entes de lançar a informação na célula do Excel formate a célula como Texto, a edição do campo fica a cargo do usuário no Excel
DAMASCENO.CESAR 24/05/2016 14:20:03
#462503
KURTGU comigo já aconteceu isso também kkkk, formate a saída da data ([Ô]dd/MM/yyyy[Ô] ou [Ô]MM/dd/yyyy[Ô]), pois comigo resolveu
KURTGU 24/05/2016 16:13:36
#462508
Citação:

:
KURTGU comigo já aconteceu isso também kkkk, formate a saída da data ([Ô]dd/MM/yyyy[Ô] ou [Ô]MM/dd/yyyy[Ô]), pois comigo resolveu



Assim que chegar em casa vou testar e posto o resultado
KURTGU 23/06/2016 10:21:37
#463951
Alguem tem mais alguma ideia isso somente aconte do dia 1 ao dia 12 ja pesquisei e muito sobre isso...
KURTGU 23/06/2016 10:23:07
#463953
Na listview esta correto mais ao exportar acontece isso... Funcao que estou usando para efetuar o export


Public Sub saveExcelFile1(ByVal FileName As String)

Try
Me.Enabled = False
Dim xls As New Excel.Application
Dim sheet As Excel.Worksheet
Dim i As Integer
xls.Workbooks.Add()
sheet = xls.ActiveWorkbook.ActiveSheet
Dim row As Integer = 1
Dim col As Integer = 1
For i = 0 To ListView1.Columns.Count - 1
sheet.Cells(1, i + 1) = ListView1.Columns(i).Text
Next
For i = 0 To ListView1.Items.Count - 1
For j = 0 To ListView1.Items(i).SubItems.Count - 1
sheet.Cells(i + 2, j + 1) = ListView1.Items(i).SubItems(j).Text
Next
Next


[ô] for the header
sheet.Rows(1).Font.Name = [Ô]Microsoft Sans Serif[Ô]
sheet.Rows(1).Font.size = 9
sheet.Rows(1).Font.Bold = True
sheet.Rows(1).HorizontalAlignment = Excel.XlVAlign.xlVAlignCenter

[ô] for all the sheet without header
sheet.Range([Ô]a2[Ô], [Ô]z1000[Ô]).Font.Name = [Ô]Arial[Ô]
sheet.Range([Ô]a2[Ô], [Ô]z1000[Ô]).Font.Size = 9
sheet.Range([Ô]a2[Ô], [Ô]z1000[Ô]).HorizontalAlignment = Excel.XlVAlign.xlVAlignCenter

sheet.Range([Ô]A1:X1[Ô]).EntireColumn.AutoFit()
sheet.Range([Ô]A1:X1[Ô]).EntireRow.AutoFit()

xls.ActiveWorkbook.SaveAs(FileName)
xls.Workbooks.Close()
xls.Quit()
MsgBox([Ô]DADOS EXPORTADOS COM SUCESSO...[Ô])
Me.Enabled = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
KERPLUNK 23/06/2016 11:59:33
#463958
Citação:

:
Alguem tem mais alguma ideia isso somente aconte do dia 1 ao dia 12 ja pesquisei e muito sobre isso...


Vou perguntar de novo pra ver se dessa vez você saca: Quantos meses tem em um ano?
KURTGU 23/06/2016 14:12:41
#463964
Citação:

:
:
Alguem tem mais alguma ideia isso somente aconte do dia 1 ao dia 12 ja pesquisei e muito sobre isso...
Vou perguntar de novo pra ver se dessa vez você saca: Quantos meses tem em um ano?



Então kerpluck até entendi que está acontecendo por causa de 1 a 12 dos meses do ano agora sinceramente já li e reli tudo e não entendi o que possa está ocasionando isso
Página 1 de 3 [27 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar