excel - 名称与 _FilterDatabase 冲突

Question

在我尝试在同一个文件上第二次运行我的 Powershell 脚本后，我得到一个“名称冲突”对话框。我知道这个错误与我自动过滤文件有关。如果我从不使用 autofiter，则不会显示对话框。我究竟做错了什么？这是代码：

$excel = new-object -comobject excel.application
$excel.DisplayAlerts = $false

$workbook = $excel.Workbooks.open("testtabelle1.xlsx")
Trap {"Worksheet problems..."} $workbook.Worksheets.Item(1) | Out-Null

$from = ">0"
$to = "<2"

$workbook.ActiveSheet.Range("D:D").AutoFilter(1, $from, 1, $to) > $null

#Reset Selection and close file
#$workbook.ActiveSheet.Range("A1").Select() | Out-Null
$workbook.Save()
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel)

Answer 1

您必须删除名称“_FilterDatabase”，因为该名称只允许使用一次。

Names 对象是一个 hastable。因此，您需要像这样删除密钥：

$workbook.Names.Item("_FilterDatabase").Delete()

Answer 2

之后做这样的事情也可能有用$workbook.Names.Item("_FilterDatabase").Delete()：

$Items_FD = $workbook.Names | ?{ $_.Name -match "_FilterDatabase" }
$Items_FD | %{
  try{
    $_.Delete() | Out-Null
  }
  catch{}
}

Answer 3

Sub IdentifyNames()

Dim defName As Name

With ThisWorkbook 'Entire workbook
  For Each defName In .Names
  If Right(defName.Name, 14) = "FilterDatabase" Then defName.delete
  'Debug.Print defName.Name
  Next
End With

End Sub

注释部分列出定义的名称