Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: How to convert the VBA code to Perl code?

by mickeyn (Priest)
on Jan 22, 2008 at 03:26 UTC ( #663500=note: print w/ replies, xml ) Need Help??


in reply to How to convert the VBA code to Perl code?

Hi,

I have some experience working with Win32::OLE.
What Excel module are you using?
Can you post example of the code you want to convert?

Mickey


Comment on Re: How to convert the VBA code to Perl code?
Re^2: How to convert the VBA code to Perl code?
by morfecourier (Initiate) on Jan 22, 2008 at 17:08 UTC
    Hi, Mickey: It seems there is no tool for automatically coversion from VBA to Perl. So I begin translating from VBA to Perl step by step. Here is the problem code. $Range = $Sheet->Range('c4:f64'); $Chart = $Excel->Charts->Add; $Chart->{ChartType}=xlStockOHLC; $Chart->SetSourceData ({Source => $Range, PlotBy => xlColumns}); $Chart->SeriesCollection(1)->{XValues} = "=Sheet1!R4C2:R64C2"; $Chart->SeriesCollection(1)->{Name} = "open"; $Chart->SeriesCollection(2)->{XValues} = "=Sheet1!R4C2:R64C2"; $Chart->SeriesCollection(2)->{Name} = "high"; $Chart->SeriesCollection(3)->{XValues} = "=Sheet1!R4C2:R64C2"; $Chart->SeriesCollection(3)->{Name} = "low"; $Chart->SeriesCollection(4)->{XValues} = "=Sheet1!R4C2:R64C2"; $Chart->SeriesCollection(4)->{Name} = "close"; $Chart->Location ({Where => xlLocationAsNewSheet}); $Chart->{HasLegend} = True; $Chart->Legend->{Position} = xlTop; $Chart->Location ({Where => xlLocationAsObject, Name => "Sheet1"}); Actually, it works well when compiling. But when execution, it bursts out a problem and gives me the following information: Win32::OLE(0.1707) error 0x80020009: "" in propertyput "ChargeType" at test2.pl line16. (Here, it is the 3rd row.) When I change the type of "xlStockOHLC" to "xlLine" or "xl3DColumn", it works perfectly. But I need to create a stock graph. So do you know what should I do to avert the problem and generate the "xlStockOHLC" graph? Thanks for help!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://663500]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (13)
As of 2015-07-03 11:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (51 votes), past polls