excel如何自動轉存成大量pdf且不重複命名

mr.shadow87 wrote:
將一個excel表另存成10個pdf檔名不重複

用PowerShell轉換一個Excel檔至100個不同檔名的pdf檔

$ExcelFile = "C:\path\to\yourfile.xlsx"
$PDFDirectory = "C:\path\to\pdf\directory"

# Load the Excel Interop Assembly
[System.Reflection.Assembly]::LoadWithPartialName("Microsoft.Office.Interop.Excel") | Out-Null

# Open the Excel File
$Excel = New-Object -ComObject Excel.Application
$Workbook = $Excel.Workbooks.Open($ExcelFile)

# Loop through each worksheet in the workbook
for ($i=1; $i -le $Workbook.Sheets.Count; $i++) {
  $Sheet = $Workbook.Sheets.Item($i)
  
  for ($j = 1; $j -le 100; $j++) {
    $PDFName = "$($PDFDirectory)\$($Sheet.Name)_$j.pdf"

    # Export the current sheet to PDF
    $Sheet.ExportAsFixedFormat([Microsoft.Office.Interop.Excel.XlFixedFormatType]::xlTypePDF, $PDFName)
  }
}

# Close Excel and release the Interop objects
$Workbook.Close()
$Excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Excel) | Out-Null
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()

mr.shadow87 wrote:
因工作需要需把exc...(恕刪)

mr.shadow87 wrote:
Exception from HRESULT: 0x800A03EC