# 定义 CSV 文件路径和目标 XLSX 文件路径
$csvFile = "C:\Users\Administrator\Desktop\1966\OK.csv"
$excelFile = "C:\Users\Administrator\Desktop\1966\OK2.xlsx"

# 创建 Excel 应用程序对象
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$excel.DisplayAlerts = $false

# 打开 CSV 文件
$workbook = $excel.Workbooks.Open($csvFile)
$worksheet = $workbook.Sheets.Item(1)  # 获取第一个工作表

# 假设身份证号码在第四列，将第四列设置为文本格式
$worksheet.Columns.Item(4).NumberFormat = "@"  # "@" 表示文本格式

# 使用文件格式代码保存为 XLSX 格式 (51 代表 .xlsx 格式)
$workbook.SaveAs($excelFile, 51)

# 关闭工作簿并退出 Excel 应用程序
$workbook.Close()
$excel.Quit()

# 释放 COM 对象
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($worksheet) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($workbook) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
复制代码

$csvFile = "C:\Users\Administrator\Desktop\1966\OK.csv"
$xlsxFile = "C:\Users\Administrator\Desktop\1966\OK2.xlsx"
$xcl = New-Object -ComObject Excel.Application
$xcl.Visible = $false; $xcl.DisplayAlerts = $false
$wb = $xcl.Workbooks.Open($csvFile)
$ws = $wb.Sheets.Item(1); $n = $ws.UsedRange.Rows.Count
$ws.range("C1:C$n").NumberFormat = "0"
$wb.SaveAs($xlsxFile, 51); $wb.Close(); $xcl.Quit()
复制代码