Array to 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

这只是一个字符串数组？如果是这样可以做那么简单得多。将每个字符串转换为对象，将对象数组转换为不带类型信息的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中打开，创建一个空白工作簿，然后填充细胞F3字苹果，细胞F4字Orange和细胞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)