如何仅将 Excel 中的一个工作表导出到单个 htm 文件？

Question

我无法将 Excel 工作簿中的 一个 工作表保存为 单个 .htm 文件。

我知道如果我打开 Excel，打开我的工作簿，选择我想要的工作表，然后执行“另存为”文件类型 .htm，它将起作用。每次我编写代码时，我都会得到“Hitlist.htm”加上一个名为“Hitlist_files”的文件夹，其中包含所有样式表等。不幸的是，在 powershell 中，它会“另存为”所有其他数据和补充文件（额外的文件夹，样式规范等）

帮助。代码如下。

#Create and get my Excel Obj
$excel = New-Object -comobject Excel.Application
$excel.visible=$false
$excel.DisplayAlerts=$false
$UserWorkBook = $excel.Workbooks.Open("e:\hitlist\hitlist.xlsx")

#Select first Sheet
$UserWorksheet = $UserWorkBook.Worksheets.Item(1)

#HitList File name and type
$hitlist = "E:\HitList\Hitlist.htm"
$xlHtml = 44

#Save, close, and clean up
#I tried this too...no go - $UserWorkBook.SaveAs($hitlist,$xlHtml)
$UserWorksheet.SaveAs($hitlist,$xlHtml)
$UserWorkBook.close()
$excel.quit()
$excel = $null

Answer 1

在我们进一步澄清之后，我再次根据您的期望调整了您的代码。特别是，查看以#changed-grav 表示的任何行以了解我对您现有代码的修改，或者查看最后 (#added-grav) 以了解我添加的一些额外步骤以符合确切的规范：

（经过全面测试，似乎完全按照您的要求工作 - 但我为测试做了一些修改，所以如果我没有将值改回您需要的值，请告诉我）

#Create and get my Excel Obj
$excel = New-Object -comobject Excel.Application
$excel.visible=$false
$excel.DisplayAlerts=$false
$UserWorkBook = $excel.Workbooks.Open("e:\hitlist\hitlist.xlsx")

#Select first Sheet
$UserWorksheet = $UserWorkBook.Worksheets.Item(1)

#HitList File name and type
$hitlistCSV = "e:\hitlist\hitlist.csv" #changed-grav
$hitlistHTML = "e:\hitlist\hitlist.htm" #changed-grav
$xlCSV = 6  #changed-grav

#Save, close, and clean up
$UserWorksheet.SaveAs($hitlistCSV,$xlCSV) #changed-grav
$UserWorkBook.close()
$excel.quit()
$excel = $null

#new functionality, to import the CSV and then export as HTM
#added-grav START
$htmlData = Get-Content $hitlistCSV | ConvertFrom-CSV | ConvertTo-HTML
Set-Content $hitlistHTML $htmlData
Remove-Item $hitlistCSV
#added-grav END