cls;
$ExportRemainning="D:\ExportRemaining.xlsx"
$ExportRemainning_Hash=@{};
$ExcelConnection= New-Object -com "ADODB.Connection"
$ExcelFile=$ExportRemainning
$ExcelConnection.Open("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=$ExcelFile;Extended Properties=Excel 12.0;")
$strQuery="Select * from [SPart Total Qty.$] where [Margin Qty#] >0"
$ExcelRecordSet=$ExcelConnection.Execute($strQuery)
do {
Write-Host "EXEC sp_InsertVendors '" $ExcelRecordSet.Fields.Item("Contract NO#").Value "'"
$Cont_PartNum=$ExcelRecordSet.Fields.Item("Contract NO#").Value +"#" + $ExcelRecordSet.Fields.Item("Part Number").Value;
if ($ExportRemainning_Hash.Contains($Cont_PartNum))
{
$ExportRemainning_Hash.$Cont_PartNum =[int]$ExportRemainning_Hash.$Cont_PartNum + [int]$ExcelRecordSet.Fields.Item("Margin Qty#").Value;
}
else
{
$ExportRemainning_Hash.add($Cont_PartNum,$ExcelRecordSet.Fields.Item("Margin Qty#").Value)
}
$ExcelRecordSet.MoveNext()
}
Until ($ExcelRecordSet.EOF)
$ExcelConnection.Close()
$end = Get-Date
Write-Host -ForegroundColor Red ('Runtime: ' + ($end - $start).TotalSeconds)
[System.GC]::Collect()