使用PowerShell將Excel工作表另存為獨(dú)立文件

更新時(shí)間：2023年08月09日 08:24:46 作者：winfredzhang

這篇文章主要為大家介紹了如何使用?PowerShell?腳本將一個(gè)?Excel?文件中的每個(gè)工作表單獨(dú)另存為獨(dú)立的?Excel?文件，以提高工作效率，需要的可以參考一下

導(dǎo)語

在日常工作中，我們經(jīng)常需要處理 Excel 文件。本文介紹了如何使用 PowerShell 腳本將一個(gè) Excel 文件中的每個(gè)工作表單獨(dú)另存為獨(dú)立的 Excel 文件，以提高工作效率。

1. 準(zhǔn)備工作

在開始之前，請(qǐng)確保已經(jīng)安裝了 Microsoft Excel 并在 PowerShell 環(huán)境中啟用了 COM 對(duì)象。

2. PowerShell 腳本

下面是執(zhí)行該操作的 PowerShell 腳本：

# 導(dǎo)入 Excel COM 對(duì)象
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
# 打開 Excel 文件
$workbook = $excel.Workbooks.Open("C:\Users\86182\Documents\WeChat Files\wxid_hkpktzc30d1621\FileStorage\File\2023-08\餐飲記分系統(tǒng)情況匯總(2023.8.6).xlsx")
# 遍歷每個(gè)工作表
foreach ($worksheet in $workbook.Worksheets) {
    # 創(chuàng)建一個(gè)新的工作簿
    $newWorkbook = $excel.Workbooks.Add()
    # 將當(dāng)前工作表復(fù)制到新的工作簿
    $worksheet.Copy($newWorkbook.Sheets[1])
    # 保存新的工作簿為獨(dú)立的文件（以工作表名命名）
    $newFilePath = "C:\delphisource\mytools\mynewtools\output\" + $worksheet.Name + ".xlsx"
    $newWorkbook.SaveAs($newFilePath)
    # 關(guān)閉新的工作簿
    $newWorkbook.Close()
}
# 關(guān)閉并退出 Excel
$workbook.Close()
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null