How to link the output of teradata sql query to an excel sheet?

Dim fromDate As String
Dim toDate As String

fromDate = Format(Range("a1").Value, "dd/mm/yyyy")
toDate = Format(Range("a2").Value, "dd/mm/yyyy")


Workbooks.Open Filename:= _
"http://Serverlink/ReportServer?%2fFinance%2fReportname&rs:Command=Render&FromDate=" & fromDate & "&ToDate=" & toDate & "&rs:Format=Excel"

foreach my $ln (@$sth1) {
  my($col1, $col2) = @$ln;
  print "$col1 $col2\n";
}

$worksheet->write( "A1", "$col1" );
$worksheet->write( "A2", "$col2" );

my ($col1, $col2);
foreach my $ln (@$sth1) {
  ($col1, $col2) = @$ln;
  print "$col1 $col2\n";
}