Re^4: Copying data sets of varying size into excel using OLE

The example i'm asking about does contains loop structures, and i'm trying to parse out the array element by element into excel, 1 element per cell.

Here's the code formatted correctly:

foreach my $line (@$array) {
  for (my $row = 0; $row < (scalar(@$array)+1); $row++) {
    foreach my $element (@$line) {
      for (my $col = 0; $col < scalar(@$line); $col++) {
        $sheet -> Cells(($row+10),($col+1)) -> {Value} = @$element[$co
+l];
      }
    }
  }
}
[download]

The array to be passed contains 6 lines (arrays) of 3 elements each. I want to loop through the lines, parsing out each array into excel in turn. I *am* a beginner (I looked at Perl for the first time last week) so I apologize if this is a simplistic question, but would appreciate any useful insights into this as i've been unable to make this script work so far.

Thanks, Joe

Comment on Re^4: Copying data sets of varying size into excel using OLE Download Code

Replies are listed 'Best First'.
Re^5: Copying data sets of varying size into excel using OLE by ww (Archbishop) on Sep 08, 2010 at 22:25 UTC
And now that you have the method for formatting properly, you may want to register - join the Monastery -- and read more of the docs suggested above: both those about PM and those that document various functions and modules.	[reply]
Re^6: Copying data sets of varying size into excel using OLE by Anonymous Monk on Sep 09, 2010 at 16:39 UTC
The answer to my question involved me learning how to get Perl to assess the size of the data set to be pasted, making it easy to pass this to the Range() in excel. It's a messy method to my mind, but it works well enough for the project i'm working on. Here it is in case another beginner needs to find it. `# Define data range my $sum = 0; foreach my $line (@$array) { $sum += scalar(@$line); } my $rows = scalar(@$array); my $cols = $sum/scalar(@$array); my $rng1 = "A1"; ### hard-coded starting position my @num = ("A" .. "Z"); my $num2 = $num[$cols-1]; my $rng2 = "$num2"."$rows"; # Copy data to excel range $sheet -> Range("$rng1:$rng2") -> { 'Value' } = $array;` [download] Thank you all for your helpful comments on formatting ;)	[reply] [d/l]