Dim vtSec As Variant
Dim vtFields As Variant
Dim vtData As Variant
strSecId = Cells(currRow, colSecurityID).Value
vtSec = Array(Cells(currRow, colBBCode).Value & " " & Cells(currRow, colSecType).Value)
vtData = bbObject.BlpGetHistoricalData(vtSec, vtFields, CDate(strBdate), CDate(strEDate))
##

##

use Win32::OLE;

use Win32::OLE::Variant;



$blpData = Win32::OLE->new('Bloomberg.Data.1')  or die "can NOT load the blpData" ;


#print $blpData->Timeout   . "\n";



$aSec  =   Variant(VT_BSTR,  "IBM Equity");

     #@tmpArray  = ("PX_Last"); 

$aFields = Variant(VT_ARRAY|VT_BSTR, 1 );

$aFields->Put(0, "PX_Last");


$sDate =   Variant(VT_DATE,  "2007/07/01");

$eDate =   Variant(VT_DATE,  "2007/07/10");


$bbData = Variant(VT_EMPTY, 1);


$bbData = $blpData->BLPGetHistoricalData($aSec,  $aFields,  $sDate, $eDate);


print "Error: " . Win32::OLE->LastError  . "\n";

  #print "Array Size: " , $bbData->Dim . "\n";

print "Returned: " . $bbData->Get(0)  . "\n";

  #@aDim = @bbData->Dim ;


  #foreach $tmp (@aDim) {

  #   print $tmp

  #   

  #}


print  "end"  ;