excel - 将测试文件中的每一行复制到 Excel 工作表中的特定单元格

Question

通常有很多 vba 代码可以将文本文件中的内容复制到 excel 表中。我期待 vba 代码将文本文件中的每一行复制到 Excel 工作表中的不同单元格。我没有为这种情况找到一个很好的参考。任何人都可以对上述问题提出一些参考吗？

Answer 1

您始终可以使用 PowerShell 脚本来读取文本文件并将数据放入 Excel 文件。

$Excel = New-Object -ComObject Excel.Application 
$Excel.Visible = $False
$Workbook = $Excel.Workbooks.Open("C:\file.xlsx")

$data = Get-Content 'C:\textfile.txt'

$i = $j = 1
foreach ($row in $data){
    $Excel.Cells.Item($i,$j).Value() = $row
    $i += 1
    $j = $i
}

$Excel.Quit()

$Null = & {
[Runtime.Interopservices.Marshal]::ReleaseComObject($Excel)
[Runtime.Interopservices.Marshal]::ReleaseComObject($Workbook)
}

[GC]::Collect()