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()

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

1 个答案: