ubiquitour.com

Cómo hacer un gráfico en Excel con OLE y Perl

El protocolo objeto vinculación e incrustación (OLE) es una tecnología de documento de Microsoft. Con OLE, puede vincular archivos con otros archivos o aplicaciones. Por lo tanto, si desea utilizar Perl con Microsoft Excel, utilice el protocolo OLE. Usando Perl y Microsoft Excel, puede crear fácilmente un gráfico utilizando el OLE. Perl es un lenguaje de programación originalmente desarrollado para equipos basados en Unix, pero también para Microsoft Windows.

Instrucciones

1 Abra el script de Perl en su editor preferido de Perl, o alternativamente en Bloc de notas si no tienes un editor dedicado.

2 Inserte las líneas siguientes en el principio de la secuencia de comandos para iniciar OLE:

Use Win32::OLE;utilizar Win32::OLE qw(in with);uso Win32::OLE::Variant;utilizar Win32::OLE::Const 'Microsoft Excel';

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

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

$Excel -> {'visible'} = 0; se oculta #0, 1 es visible$Excel -> {mensaje} = 0; #0 es ocultar alertas

Abrir el archivo y hoja de cálculo mi $Book = $Excel - > Libros -> abrir

('C:\report\results\check_all.csv'); # open Excel file

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

3 Reemplace "C:\report\results\check_all.csv" con la ruta y el nombre del archivo.

4 Insertar un gráfico utilizando el siguiente método, sustitución de parámetros relevantes con su propio:

mi $Range = $Sheet -> Range('a1:d2');mi $Chart = $Book - > gráficos -> Agregar;$Chart -> ChartWizard ($Range, xl3DPie, 7, xlRows, 1, 0, 2, "Porcentajes de ventas");

5 Insertar un gráfico de barras utilizando el siguiente método, sustitución de parámetros relevantes con su propio:

Bar Graph y gire mi $Range = $Sheet -> Range('a1:a3');mi $Chart = $Excel - > gráficos -> Agregar;$Chart -> {tipo} = xl3DColumn;para (mi $i = 30; $i < = 180; $i += 10){$Chart -> {rotación} = $i;Sleep(1);}