#!c:\perl\bin\ -w
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);
use strict;
my $configfile = "OleoresinSpreadsheet2.conf";
open (CONFIG,$configfile);
my $HPLC_Collum;
if(<CONFIG>=~/;;HPLCColumn;;([0-9]+);/){                          
    $HPLC_Collum= $1;
    }
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
        || Win32::OLE->new('Excel.Application', 'Quit');
my $excelfile = 'F:\Spreadsheet\lab results\COPY GRID MASTER COPY.xls';
my $Book = $Excel->Workbooks->Open($excelfile);
my $WorkBooknumber = 6;
my $Sheet = $Book->Worksheets($WorkBooknumber);
print($HPLC_Collum);
print($Sheet->Cells(6,$HPLC_Collum)->{'Value'});