数组到 Excel 范围仅给出数组的第一个元素

Question

我创建了以下函数，它将数组的值导出到 Excel，但它只导出第一个元素。

Function Export_Excel ($Array,$Column,$Sheet) {
  [System.Threading.Thread]::CurrentThread.CurrentCulture = "en-US"
  [System.Threading.Thread]::CurrentThread.CurrentUICulture = "en-US"

  $Global:sheet = $Global:wkbk.WorkSheets.Item("$Sheet")
  $intRow = 3

  $LastRow = $Array.count + 2
  $Range = "$Column" + $intRow +":$Column" + "$LastRow"

  $RangeSet = $Global:sheet.Range("$Range")
  $RangeSet.Value2 = $Array

  [gc]::collect()
  [gc]::WaitForPendingFinalizers() 
  [System.Threading.Thread]::CurrentThread.CurrentCulture = $Global:OldCulture
  [System.Threading.Thread]::CurrentThread.CurrentUICulture = $Global:OldUICulture
}

我的数组是用$Array+=$ValueForArray生成的。

当我执行时

Export_Excel $Array "B" "Sheet1"

它只为整个数组长度导出每个单元格中的第一个元素。谁能看到我做错了什么？

Answer 1

这只是一个字符串数组吗？如果是这样，这可以so简单得多。将每个字符串转换为一个对象，将对象数组转换为没有类型信息的 CSV，并使其以制表符分隔，跳过标题行，复制到剪贴板，粘贴到您希望它向下流动的任何位置。如果你真的想把它作为一个函数，你可以这样做：

Function Export_Excel ($Array,[String]$Column,[String]$Sheet) {
    $ColNum = ([int][char]$Column.ToUpper()) - 64
    $Array | Select @{n='Header';e={$_}} | ConvertTo-Csv -NoTypeInformation -Delimiter "`t" | Select -Skip 1 | clip
    [void]$Wkbk.WorkSheets.Item("Sheet1").Columns.Item($ColNum).Cells.Item(3).PasteSpecial()
}

哦，对了，我也在其中将列字母转换为数字等价物。所以，要测试这个......

Function Export_Excel ($Array,[String]$Column,[String]$Sheet) {
    $ColNum = ([int][char]$Column.ToUpper()) - 64
    $Array | Select @{n='Header';e={$_}} | ConvertTo-Csv -NoTypeInformation -Delimiter "`t" | Select -Skip 1 | clip
    [void]$Wkbk.WorkSheets.Item("Sheet1").Columns.Item($ColNum).Cells.Item(3).PasteSpecial()
}

$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $True
$Wkbk = $Excel.Workbooks.Add()

$Fruit = @("Apple","Orange","Banana")

Export_Excel $Fruit 'f' 'Sheet1'

结果：Excel 打开，创建了一个空白工作簿，然后用单词 Apple 填充单元格 F3，用单词 Orange 填充单元格 F4，用单词 Banana 填充单元格 F5。我很确定那是你的意图。

Answer 2

值是按行而不是按列分配的。改用循环：

for ($i = 0; $i -lt $Array.Length; $i++) {
  $global:sheet.Cells.Item($i+3, $Column).Value2 = $Array[$i]
}

请注意，您需要为此设置 $Column 一个数字参数。

作为替代方案，您可以将数组放在临时表上的一行中，然后在转置值时复制/粘贴该范围：

$temprange = "A1:" + [string][char]($Array.Length + 64) + "1"
$range     = "$Column${intRow}:$Column$LastRow"

$global:tempsheet.Range($temprange).Value2 = $Array
[void]$global:tempsheet.Range($temprange).Copy()
[void]$global:sheet.Range($range).PasteSpecial(-4163, -4142, $false, $true)