Come fare un grafico in Excel Con OLE & Perl

April 19

La Object Linking and Embedding protocollo (OLE) è una tecnologia di documento da Microsoft. Con OLE, è possibile collegare i file con altri file o applicazioni. Pertanto, se si vuole usare Perl con Microsoft Excel, si utilizza il protocollo OLE. Utilizzando sia Perl e Microsoft Excel, è possibile creare facilmente un grafico utilizzando il OLE. Perl è un linguaggio di programmazione originariamente sviluppato per i computer basati su Unix, ma anche per Microsoft Windows.

istruzione

1 Apri il tuo script Perl nel vostro editor preferito Perl, o in alternativa in Blocco note, se non si dispone di un editor dedicato.

2 Inserire le seguenti righe nel l'inizio dello script per avviare OLE:

utilizzare Win32 :: OLE;
utilizzare Win32 :: OLE QW (con);
utilizzare Win32 :: OLE :: variante;
utilizzare Win32 :: OLE :: Const 'Microsoft Excel';

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

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

$ Excel -> { 'Visibile'} = 0; # 0 è nascosto, 1 è visibile
$ Excel -> {DisplayAlerts} = 0; # 0 è nascondere gli avvisi

Apri file e del foglio di lavoro

il mio libro $ = $ Excel-> Workbooks-> Apri

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

$ Sheet = $ libro-> Fogli di lavoro (1);

3 Sostituire "C: \ \ rapporto risultati \ check_all.csv" con il percorso e il nome del file del file.

4 Inserire un grafico a torta con il metodo seguente, sostituendo i parametri rilevanti con la propria:

il mio $ intervallo = $ a foglio> Range ( 'A1: D2');
il mio $ Grafico = $ Libretto> Grafici-> Aggiungi;
$ Cartografico> creazione guidata grafico ($ Range, xl3DPie, 7, xlRows, 1,0,2, "Le percentuali di vendita");

5 Inserire un grafico a barre con il metodo seguente, sostituendo i parametri rilevanti con la propria:

Grafico a barre e Ruota

il mio $ intervallo = $ a foglio> Range ( 'A1: A3');
il mio $ Grafico = $ Excel-> Grafici-> Aggiungi;
$ Grafico -> {Type} = xl3DColumn;
per (il mio $ i = 30; $ i <= 180; $ i + = 10)
{
$ Grafico -> {} Rotazione = $ i;
sleep (1);
}