I have an excel vba code that finds a particular cell in a sheet. It uses the Find
method form the excel libraries. Here is the code
objRange.Fi
I addressed this by creating overload methods that calls the core method with the value I want. e.g. I want the user to be able to specify the number of processed records or call the "Increment" method and then just call "WriteProgress" with no argument:
class UserFeedback {
[string]$Name
[int]$ThingCount
[datetime]$ProcessStartDateTime
[int]$ProcessedCount
UserFeedback ([string] $Name,[int]$ThingCount){
$this.ProcessStartDateTime = Get-Date
$this.Name = $Name
$this.ThingCount = $ThingCount
$this.ProcessedCount = 0
}
WriteProgress([int] $intProcessed){
$this.ProcessStartDateTime
$SecondsElapsed = ((Get-Date) - $this.ProcessStartDateTime).TotalSeconds
$SecondsRemaining = ($SecondsElapsed / ($intProcessed / $this.ThingCount)) - $SecondsElapsed
Write-Progress -Activity $this.Name -PercentComplete (($intProcessed/$($this.ThingCount)) * 100) -CurrentOperation "$("{0:N2}" -f ((($intProcessed/$($this.ThingCount)) * 100),2))% Complete" -SecondsRemaining $SecondsRemaining
}
WriteProgress(){
$this.WriteProgress($this.ProcessedCount)
}
Increment(){
$this.ProcessedCount ++
}
}
$null
doesn't work, but according to this answer you can use [Type]::Missing
:
$default = [Type]::Missing
$xl.Cells.Find("*", $default, $default, $default, $xlByRows, $xlPrevious,
$default, $default, $default)