使用 Powershell 将目标 Excel 工作表从一个工作簿复制并覆盖到另一个工作簿

Question

我的请求与this post 中的请求非常相似，但不同之处在于：我想覆盖目标 Excel 文件中现有工作表的内容。

代码（来自链接帖子的精确副本；但为方便起见粘贴在此处）如下：

$file1 = 'C:\path\file1.xls' # source's fullpath
$file2 = 'C:\path\file2.xls' # destination's fullpath

$xl = new-object -c excel.application
$xl.displayAlerts = $false # don't prompt the user
$wb2 = $xl.workbooks.open($file1, $null, $true) # open source, readonly
$wb1 = $xl.workbooks.open($file2) # open target
$sh1_wb1 = $wb1.sheets.item('MyWorksheet') # second sheet in destination workbook
$sheetToCopy = $wb2.sheets.item('MyWorksheet') # source sheet to copy

$sheetToCopy.copy($sh1_wb1)  # copy source sheet to destination workbook

$wb2.close($false) # close source workbook w/o saving
$wb1.close($true) # close and save destination workbook
$xl.quit()
spps -n excel

需要更改的行是这样的：

$sheetToCopy.copy($sh1_wb1) # copy source sheet to destination workbook

你能告诉我如何重写上面的内容，这样它就不会在目标 excel 文档中创建新的工作表吗？现在，不是覆盖MyWorksheet，而是创建一个副本：MyWorksheet (2)

Answer 1

看来你需要重命名目标表，粘贴替换，然后删除目标。

$file1 = 'C:\path\file1.xls' # source's fullpath
$file2 = 'C:\path\file2.xls' # destination's fullpath

$xl = new-object -c excel.application
$xl.displayAlerts = $false # don't prompt the user
$wb2 = $xl.workbooks.open($file1, $null, $true) # open source, readonly
$wb1 = $xl.workbooks.open($file2) # open target
$sh1_wb1 = $wb1.sheets.item('MyWorksheet') # second sheet in destination workbook
$sheetToCopy = $wb2.sheets.item('MyWorksheet') # source sheet to copy

$sh1_wb1.Name = "DeleteMe$(get-date -Format hhmmss)" #Extremely unlikely to be a duplicate name
$sheetToCopy.copy($sh1_wb1)  # copy source sheet to destination workbook
$sh1_wb1.Delete()

$wb2.close($false) # close source workbook w/o saving
$wb1.close($true) # close and save destination workbook
$xl.quit()
spps -n excel