Jump to content


ieshua

Member Since 26/11/2004
Offline Last Active 20/08/2012, 19:51
-----

Topics I've Started

Urgente: Gerar Excel De Um Txt Em Php

26/11/2004, 04:53

Olá!
Estou com a seguinte dificuldade:
Tenho um arquivo .txt com delimitadores que preciso converter em .xls, e isto dentro de meu programa php. Montei o seguinte script:

<?
$excel_app = new COM("Excel.application") or Die ("Did not connect");

print "Application name: {$excel_app->Application->value}\n" ;
print "Loaded version: {$excel_app->Application->version}\n";

$excel_app->Visible = false;

$Workbook = $excel_app->Workbooks->add() or Die("Did not open $Workbook");

$Worksheet = $Workbook->Worksheets(1);

$i = 2;

$arq = file("banco.txt");
foreach($arq as $line)
{ list($Codigo,$Nome,$Telefone) = explode ("|",$line);

$celula = "A".$i;
$excel_cell = $Worksheet->Range($celula);
$excel_cell->value = $Codigo;

$celula = "B".$i;
$excel_cell = $Worksheet->Range($celula);
$excel_cell->value = $Nome;

$celula = "C".$i;
$excel_cell = $Worksheet->Range($celula);
$excel_cell->value = $Telefone;

$i++;
}

$Workbook->SaveAs("banco.xls");
$excel_app->quit();
?>

Porém ao executá-lo dá a seguinte mensagem:
Application name: Microsoft Excel Loaded version: 11.0
Warning: (null)(): Invoke() failed: Exceção. Source: Microsoft Office Excel Description: Não é possível acessar 'banco.xls'. in D:\CI Soluções\tmp\teste.php on line 34

Já tentei de tudo, mas não tô encontrando o problema.

Alguém pode me ajudar, please???

IPB Skin By Virteq