# # 定义Excel文件路径
$currentPath = Get-Location
# 请根据你的实际路径修改下面的文件路径
$excelPath = "$currentPath\活頁簿1.xlsx"
$zipFilePath = "$currentPath\Desktop.zip"
# 创建 Excel 应用程序对象
$excel = New-Object -ComObject Excel.Application
# 创建一个新的工作簿
$workbook = $excel.Workbooks.Add()
# 选择第一张工作表
$worksheet = $workbook.Worksheets.Item(1)
# 插入 OLE 对象
# 使用 AddOLEObject 方法,类型为“package”
$oleObject = $worksheet.OLEObjects().Add(
"package",
$zipFilePath,
$null, # 无法直接指定 True/False,将 null 传递以避免弹框
$null,
$null,
$null,
50, 50, # 位置,可以根据需要调整
100, 100 # 大小,可以根据需要调整
)
# 显示 Excel 应用程序,如果需要可将下面一行设置为 $true
$excel.Visible = $false
# 保存工作簿
$workbook.SaveAs($excelPath)
# 关闭工作簿
$workbook.Close($false)
# 退出 Excel 应用程序
$excel.Quit()
# 释放 COM 对象
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($oleObject)
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($worksheet)
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($workbook)
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel)
# 提供垃圾回收
[GC]::Collect()
[GC]::WaitForPendingFinalizers()
如題以上為open ai產出的code,但我試過之後會跳出以下錯誤
InvocationError: 無法取得類別 OLEObjects 的 Add 屬性
想請教大家是否有解法,謝謝