exportar dados para excel
Eu estou tendo problema de versão na hora de fazer a exportação de dados do meu dataset para o excel.
Eu estou declarando na uses o excel2000 .
Se estiver instalado na máquina um excel 2003 ou 2007, vai ocorrer problema de incompatibilidade?
Eu gostaria, se possível de uma orientação con relação e esse problema.
Desde já obrigado.
Eu estou declarando na uses o excel2000 .
Se estiver instalado na máquina um excel 2003 ou 2007, vai ocorrer problema de incompatibilidade?
Eu gostaria, se possível de uma orientação con relação e esse problema.
Desde já obrigado.
Jrsilveiro
Curtidas 0
Respostas
Jakefrog
19/12/2007
Cria assim ó:
aí vc trabalha com a aplicação excel! independente da versão! ;)
Var ovPlanilha : OleVariant; Begin //Cria o Objeto Excel ovPlanilha := CreateOleObject(´Excel.Application´); ovPlanilha.Visible :=false; ovPlanilha.Workbooks.Add; ... End;
aí vc trabalha com a aplicação excel! independente da versão! ;)
GOSTEI 0
Jrsilveiro
19/12/2007
valeu pela dica.
Mais uma coisa, eu declarei a variável como variant.
O meu problema pode estar aí ?
Mais uma coisa, eu declarei a variável como variant.
O meu problema pode estar aí ?
GOSTEI 0
Jakefrog
19/12/2007
Só não entendi qual a necessidade de vc declarar na uses o excel2000.
O meu eu não declarei nada, estou pegando os dados no meu banco de dados e mandando para uma planilha de excel sem precisar declarar nada. o meu está gerando aqui no execel 2002 sem problemas algum! :wink:
O meu eu não declarei nada, estou pegando os dados no meu banco de dados e mandando para uma planilha de excel sem precisar declarar nada. o meu está gerando aqui no execel 2002 sem problemas algum! :wink:
GOSTEI 0
Jrsilveiro
19/12/2007
Se não declarar na uses o excel2000, ele não reconhece os itens em destaque abaixo:
Excel.ActiveWorkbook.SaveAs(´c:\Relatorios_excel\´ + arquivo, [b:a640cd5d8a]xlNorma[/b:a640cd5d8a]l, ´´, ´´, False, False, ´´, [b:a640cd5d8a]xlUserResolution[/b:a640cd5d8a], False, EmptyParam, EmptyParam);
Excel.ActiveWorkbook.SaveAs(´c:\Relatorios_excel\´ + arquivo, [b:a640cd5d8a]xlNorma[/b:a640cd5d8a]l, ´´, ´´, False, False, ´´, [b:a640cd5d8a]xlUserResolution[/b:a640cd5d8a], False, EmptyParam, EmptyParam);
GOSTEI 0
Jakefrog
19/12/2007
Bem eu não sei se esse comando te server, mas o meu save foi assim
ovPlanilha.WorkBooks[1].SaveAs(´Caminho em STRING.xls´);
e funcionou! :wink:
Só idéia! ^^
ovPlanilha.WorkBooks[1].SaveAs(´Caminho em STRING.xls´);
e funcionou! :wink:
Só idéia! ^^
GOSTEI 0
Jrsilveiro
19/12/2007
Valeu cara, eu vou testar :lol:
GOSTEI 0