Haber una pregunta Diario de padawanlinuxero

Haber una pregunta

22/ene/2008::17:47

Yo, Perl

Tengo un archivo en excel al que estoy modificando usando Perl, al decir modificandolo me refiero que le estoy dando forma como un reporte, es decir que los datos esten en una cuadricula, el logo de la empresa, bueno mi bronca es que necesito hacer un VLOOKUP o BUSCARV hacia otra hoja de excel para extraer los datos de el cliente NUMERO Y CLIENTE y ponerlos en una celda de excel. pero el problema es que no he podido encontrar informacion o como hacer que en una celda 'x' me ponga el resultado de la formula.

Si alguien sabe pues digan no sean ganchos

gracias

por cierto si quieren el codigo este es el

=MAS=

use DBI;

use Win32::OLE;

use Win32::OLE::Variant;

use Win32::OLE::Const 'Microsoft Excel';

use Date::WeekOfYear;

my $dir = "C:/proyecto/csv";

chdir ($dir);

my files = glob("*.xls");

for my $file ( files) {

print "Processing $file .....";

print "Done! ";

########################################################################################################

#Termina creacion de los archivios de excel

########################################################################################################

########################################################################################################

########################################################################################################

my $datafilename = "d3";

print ("este es el archivo con el que trabajara : $file ");

my $Excel = Win32::OLE->GetActiveObject('Excel.Application')

|| Win32::OLE->new('Excel.Application', 'Quit');

#------ Abro el archivo CSV y lo dirijo al primera hoja de trabajo -----

my $Book = $Excel->Workbooks->Open("$dir/$file");

my $Sheet = $Book->Worksheets(1);

#----- View file -------------------------------------------

#$Excel->{'Visible'} = 1;

$Sheet->Rows("1:16")->Insert(-4121,0);

$Sheet->Columns('A:M')->Select();

$Sheet->Columns('A:M')->EntireColumn->Autofit();

$Sheet->Range("A16:L16")->{Value} = [[ 'Patente', 'Pedimento', 'Cve. Doc.', 'Fecha Entrada', 'Fecha Salida', 'RFC Imp/Exp', 'CURP', 'Peso Bruto', 'Contribuciones', 'Banco', 'Ped. Orig.', 'Ped. Rectif']];

$Book->ActiveSheet->Pictures->Insert( "C:proyectoaaa.bmp" )->Select;

my $LastRow = $Sheet->UsedRange->Find({What=>"*",

SearchDirection=>xlPrevious,

SearchOrder=>xlByRows})->{Row};

my $LastCol = $Sheet->UsedRange->Find({What=>"*",

SearchDirection=>xlPrevious,

SearchOrder=>xlByColumns})->{Column};

#------ Imprimo en pantalla los valores -------

print " Ultima Columna:";

print "$LastCol ";

print " Ultimo renglon:";

print "$LastRow ";

#------ Ahora busco las celdas de la hoja de excel -----

#en este caso dejo la primera linea sin contar porque es la de los encabezados

my ($Start_col, $Num_Cols,$End_col) = ('A', $LastCol, 'A');

++$End_col while --$Num_Cols;

my ($Start_row, $Num_rows) = (16, $LastRow);

my $End_row = $Start_row + $Num_rows - 1;

my $Range_str = "$Start_col$Start_row:$End_col$End_row";

my $range = $Sheet->Range($Range_str);

$range->AutoFormat(2);

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> {HorizontalAlignment} = xlHAlignCenter;

$Sheet -> Range('H:I') -> {HorizontalAlignment} = xlHAlignRight;

$Sheet -> PageSetup -> {Orientation} = xlLandscape;

$Sheet -> PageSetup -> {Zoom} = 75;

$Sheet -> PageSetup -> {FitToPagesWide} = 1;

$Sheet->Columns('H:H')->{NumberFormat}='0.000';

$Sheet->Columns('I:I')->{NumberFormat}='0';

$Sheet -> Range('A1:M15') -> Borders(xlEdgeBottom) -> {LineStyle} = xlNone;

$Sheet -> Range('A1:M15') -> Borders(xlEdgeLeft) -> {LineStyle} = xlNone;

$Sheet -> Range('A1:M15') -> Borders(xlEdgeTop) -> {LineStyle} = xlNone;

$Sheet -> Range('A1:M15') -> Borders(xlEdgeRight) -> {LineStyle} = xlNone;

$Sheet -> Range('A1:M15') -> Borders(xlEdgeBottom) -> {LineStyle} = xlNone;

$Sheet -> Range('A1:M15') -> Select();

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeBottom) -> {LineStyle} = xlDouble;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeBottom) -> {Weight} = xlThick;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeBottom) -> {ColorIndex} = 1;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeLeft) -> {LineStyle} = xlContinuous;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeLeft) -> {Weight} = xlThin;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeTop) -> {LineStyle} = xlContinuous;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeTop) -> {Weight} = xlThin;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeBottom) -> {LineStyle} = xlContinuous;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeBottom) -> {Weight} = xlThin;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeRight) -> {LineStyle} = xlContinuous;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlEdgeRight) -> {Weight} = xlThin;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlInsideVertical) -> {LineStyle} = xlContinuous;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlInsideVertical) -> {Weight} = xlThin;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlInsideHorizontal) -> {LineStyle} = xlContinuous;

$Sheet -> Range("$Start_col$Start_row:$End_col$End_row") -> Borders(xlInsideHorizontal) -> {Weight} = xlThin;

#---- Conectarse a la base de datos para extraer la tabla de semanas

#my $datafilename = "d3";

my $dbh_semana1 = DBI->connect("DBI:mysql:database=$datafilename;host=localhost",

"root","xyz123",

{'RaiseError'=>1});

if ( ! defined($dbh_semana1) ) {

print STDERR " Could not open a connection to the database. ";

exit();

}

my $sqlsemana1="SELECT SEMANA FROM semanas WHERE semana = (SELECT WEEK (CURRENT_TIMESTAMP,1))";

my $sthsemana1 = $dbh_semana1->prepare($sqlsemana1);

$sthsemana1->execute();

while (my $semana_row1 = $sthsemana1->fetch) {

print " RELACION DE OPERACION CORRESPONDIENTES A LA SEMANA No. @$semana_row1 ";

$Sheet->Cells(13,5)->{Value} = "Relacion de Operacion correspondiente a la semanan No. @$semana_row1";

}

my $dbh_semana2 = DBI->connect("DBI:mysql:database=$datafilename;host=localhost",

"root","xyz123",

{'RaiseError'=>1});

if ( ! defined($dbh_semana2) ) {

print STDERR " Could not open a connection to the database. ";

exit();

}

my $sqlsemana2="SELECT FEC_FINAL FROM semanas WHERE semana = (SELECT WEEK (CURRENT_TIMESTAMP,1))";

my $sthsemana2 = $dbh_semana2->prepare($sqlsemana2);

$sthsemana2->execute();

while (my $semana_row2 = $sthsemana2->fetch) {

$Sheet->Cells(11,7)->{Value} = "al @$semana_row2 ";

}

#---- FECHA INICIAL -----

my $dbh_semana = DBI->connect("DBI:mysql:database=$datafilename;host=localhost",

"root","xyz123",

{'RaiseError'=>1});

if ( ! defined($dbh_semana) ) {

print STDERR " Could not open a connection to the database. ";

exit();

}

my $sqlsemana="SELECT FEC_INICIA FROM semanas WHERE semana = (SELECT WEEK (CURRENT_TIMESTAMP,1))";

my $sthsemana = $dbh_semana->prepare($sqlsemana);

$sthsemana->execute();

while (my $semana_row = $sthsemana->fetch) {

$Sheet->Cells(11,5)->{Value} = "Comprendida del @$semana_row ";

}

$Sheet->Range("C12")->{Value} = [[ '=LOOKUP(R[1]C[-2],PATENTES.xls!R2C1:R82C2,2,FALSE)']];

$Excel -> {DisplayAlerts} = 0; # This turns off the "This file already exists" message.

my $file2 = "M.$file";

print "este es el archivo : $file2 ";

$Book -> SaveAs("$file2");

$Book->Close();

[ Enlace |

4 comentarios ]

del.icio.us Estrella este post

Han escrito 4 comentarios de «Haber una pregunta»

aespitia Martes 22 de enero, 2008 17:53.

neta que me senti mareada!
jejeje

dereck Martes 22 de enero, 2008 18:08.

el =MAS= va en minusculas para que funcione.

brujita Martes 22 de enero, 2008 18:46.

yo nomás te puedo mandar saludos, de lo demás pues sorry porque ni idea!

spawn05 Martes 22 de enero, 2008 19:47.

PORQUE NO USAS LA BASE DE DATOS DE OFFICE (ACCES) TE SERA DE GRAN AYUDA ASI VINCULAS INFORMACION VARIADA EN HOJAS DE EXCEL

SALUDOS

Si usted tiene una cuenta en ymipollo.com, identifíquese:
Usuario: Password: (recordar identificación en este blog)

De lo contrario, escriba sus datos (todos los campos son obligatorios.):
Nombre: Correo E.:
Blog/Web: recordar datos.
[ si eres visitante puedes obtener tus comentarios con foto suscribiendote a gravatar. Tenga en cuenta que como usuario anónimo, su dirección IP será almacenada y mostrada al dueño de la entrada en cada comentario. ]

Escriba su comentario:
Por favor escriba respecto al post, procure revisar su ortografía. Si su comentario no es respecto al tema, por favor no lo haga.

Usted escribirá este mensaje como:

Es posible que su comentario no aparezca de forma inmediata (o que nunca aparezca) eso depende de la decisión del autor de este blog.

suscribirse a este post.

ARMANDO GOMEZ GUAJARDO (padawanlin

Esta entrada fue escrita el martes 22 de ene de 2008 a las 17:31, almacenada en Yo, Perl. El permiso para esta entrada es PUBLICO (4 comentario/s).

Puedes seguir esta entrada mediante RSS 2.0 o bien dejar algún comentario.

181

Blog | Comentarios

Diario de padawanlinuxero

Bienvenido(a) a mi blog

Haber una pregunta

Han escrito 4 comentarios de «Haber una pregunta»