padawanlinuxero

Haber una pregunta

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 encabezadosmy ($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)

Hay 1121 palabras más en este escrito, para seguir leyendo debe identificarse

Elija una cuenta para acceder al contenido completo

Cuenta de Ymipollo
Hola


Reacciones


Debe estar identificado para ver los comentarios o dejar uno.

Entrar a Ymipollo

¿ping? ¡pong! Ymipollo © ¿ping? ¡pong 1!