具有Excel范围的二维数组

Question

目标

我正在尝试使用包含一个或多个产品的二维数组将数据放入我的电子表格中。

看看我的二维数组：

现在看看我想要的结果：

我似乎无法将数据正确地放入Excel单元格中。我认为有一个代码可以做到这一点，但我尝试了一种不同的方法，但似乎无法绕过这些2D阵列...周五不会很快到来！< / p>

看看我的代码：

If wSheet IsNot Nothing Then
    Dim colRange() As String = {"B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U"}

    For i As Integer = products.GetLowerBound(0) To products.GetUpperBound(0)
        'Start at B2 ... C2 ... D2 ...
        Dim r As Microsoft.Office.Interop.Excel.Range = wSheet.Range(colRange(i) & "2").Resize(products.GetLength(1))
        r.Value2 = products
    Next
End If

这真的没有用，它只会在Excel表格中显示（0,0），（1,0）和（2,0）值...有什么建议吗？

Answer 1

Bah，我知道它可以在一个班轮上完成！大声笑。我在我的2d数组中交换了列/行，并尝试将其设置为范围。

那只是一个问题：

wSheet.Range("B2").Resize(UBound(products, 1), UBound(products, 2)).Value2 = products