用PowerShell实现Excel表格记录复制，保留目标表格式与PowerApps关联

方案一：使用ImportExcel模块（无需安装Office） #

此方案基于EPPlus库，无需本地安装Office，适合服务器或无Office环境。

1. 安装依赖模块（首次执行） #

Install-Module -Name ImportExcel -Scope CurrentUser -Force

2. 完整脚本 #

替换占位符为实际路径和表格名称即可：

# 定义文件路径和目标表格名称
$sourcePath = "C:\实际路径\source.xlsx"
$destPath = "C:\实际路径\destination.xlsx"
$destTableName = "目标表格的实际名称"

# 加载目标Excel文件并定位到指定表格
$destExcel = Open-ExcelPackage -Path $destPath
$destTable = $destExcel.Workbook.Worksheets.Tables[$destTableName]

if (-not $destTable) {
    Write-Error "未找到目标表格：$destTableName"
    Close-ExcelPackage $destExcel
    exit 1
}

# 清空表格数据行（保留表头）
if ($destTable.DataRange -and $destTable.DataRange.Rows.Count -gt 0) {
    $destTable.DataRange.Delete()
}

# 读取源文件数据（跳过第一行表头）
$sourceData = Import-Excel -Path $sourcePath -StartRow 2

# 将数据写入目标表格
Add-ExcelTableData -ExcelPackage $destExcel -TableName $destTableName -Data $sourceData

# 保存并关闭文件
Close-ExcelPackage $destExcel -Save

注意事项 #

• 确保源文件列名与目标表格列名完全匹配，否则数据会错位
• 若需定时执行，可将脚本保存为.ps1文件，通过Windows任务计划程序设置定时任务

方案二：使用Office COM对象（需安装Office） #

此方案直接调用Excel原生对象，适合已安装Office的环境，能更好地保留表格格式。

完整脚本 #

# 定义文件路径和目标表格名称
$sourcePath = "C:\实际路径\source.xlsx"
$destPath = "C:\实际路径\destination.xlsx"
$destTableName = "目标表格的实际名称"

# 创建Excel应用实例
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$excel.DisplayAlerts = $false

try {
    # 打开目标文件并定位表格
    $destWorkbook = $excel.Workbooks.Open($destPath)
    $destTable = $destWorkbook.Worksheets.ListObjects[$destTableName]

    if (-not $destTable) {
        Write-Error "未找到目标表格：$destTableName"
        exit 1
    }

    # 清空表格所有数据行
    if ($destTable.ListRows.Count -gt 0) {
        $destTable.ListRows() | ForEach-Object { $_.Delete() }
    }

    # 读取源文件数据
    $sourceWorkbook = $excel.Workbooks.Open($sourcePath)
    $sourceWorksheet = $sourceWorkbook.ActiveSheet
    $sourceLastRow = $sourceWorksheet.Cells($sourceWorksheet.Rows.Count, 1).End(-4162).Row # 对应Excel的xlUp常量

    # 复制并粘贴源数据（跳过表头）
    if ($sourceLastRow -gt 1) {
        $sourceRange = $sourceWorksheet.Range("A2:$($sourceWorksheet.Cells($sourceLastRow, $sourceWorksheet.UsedRange.Columns.Count).Address)")
        $sourceRange.Copy()
        # 只粘贴值，避免覆盖目标表格原有格式
        $destTable.ListRows.Add().Range.PasteSpecial(-4163)
    }

    # 保存修改
    $destWorkbook.Save()
}
finally {
    # 清理COM对象，避免Excel进程残留
    $sourceWorkbook.Close()
    $destWorkbook.Close()
    $excel.Quit()
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($sourceWorksheet) | Out-Null
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($sourceWorkbook) | Out-Null
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($destWorkbook) | Out-Null
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
    [System.GC]::Collect()
    [System.GC]::WaitForPendingFinalizers()
}

注意事项 #

• 执行前需确保目标文件未被其他程序占用
• 粘贴时使用xlPasteValues参数，仅复制数据，保留目标表格的格式化样式

内容的提问来源于stack exchange，提问作者Márton Tomcsányi