Het Object Linking and Embedding ( OLE ) -protocol is een document technologie van Microsoft . Met OLE kunt u bestanden koppelen met andere bestanden of toepassingen . Daarom, als u wilt Perl gebruiken met Microsoft Excel , u het OLE -protocol te gebruiken . Door het gebruik van zowel Perl en Microsoft Excel , kunt u eenvoudig een diagram maken door gebruik te maken van de OLE . Perl is een programmeertaal die oorspronkelijk ontwikkeld voor Unix -computers , maar ook voor Microsoft Windows . Instructies
1 Open uw Perl-script in uw favoriete editor Perl , of als alternatief in Kladblok als u niet beschikt over een speciale editor . Kopen van 2 Plaats de volgende regels in de het begin van je script te OLE initiëren : gebruik Win32 :: OLE
; gebruik Win32 :: OLE qw ( met ) ; gebruik Win32 :: OLE :: Variant ; gebruik Win32 :: OLE :: Const ' Microsoft excel ' ;
$ Excel = Win32 :: OLE - > GetActiveObject ( ' Excel.Application ' ) | | Win32 :: OLE - > new ( ' Excel.Application ' ) ; $ Excel - > { 'Zichtbaar ' } = 0 ; # 0 verborgen is , 1 is zichtbaar $ Excel - > { DisplayAlerts } = 0 ; # 0 is hide waarschuwingen
# Open File en Worksheetmy $ boek = $ Excel - > , werkmappen - > Open ( ' C : \\ verslag \\ resultaten \\ check_all.csv ' ) ; # geopend Excel -bestand $ Sheet = $ Book - > Werkbladen ( 1 ) ;
3 Vervang " C : \\ verslag \\ resultaten \\ check_all.csv " met het pad en de bestandsnaam van het bestand
4 Plaats een cirkeldiagram met behulp van de volgende methode , ter vervanging van relevante parameters met uw eigen . :
mijn $ Range = $ Sheet - > Range ( " a1 : d2 ' ) ; mijn $ Grafiek = $ boek - > Grafieken - > toevoegen ; $ Grafiek - > ChartWizard ( $ Range , xl3DPie , 7 , xlRows , 1,0,2 , ' Sales Percentages " ) ;
5 Plaats een staafdiagram met behulp van de volgende methode , ter vervanging van relevante parameters met uw eigen :
# Bar Graph en Rotatemy $ Range = $ Sheet - > Range ( " a1 : a3 ' ) ; mijn $ Grafiek = $ Excel - > Grafieken - > toevoegen ; $ Grafiek - > { type} = xl3DColumn , want ( my $ i = 30 ; $ i < = 180 ; $ i + = 10 ) { $ Grafiek - > { rotatie } = $ i ; slaap ( 1 ) ; }
|
