Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/variables/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 将Excel范围加载到VB DataGridView中_Vb.net_Excel_Datagridview - Fatal编程技术网

Vb.net 将Excel范围加载到VB DataGridView中

Vb.net 将Excel范围加载到VB DataGridView中,vb.net,excel,datagridview,Vb.net,Excel,Datagridview,VB新手。我正在尝试将8000行VBA宏转换为VB。我才刚刚开始,我相信我会在这里寻求很多帮助 我正在尝试将Excel范围加载到DataGridView中。在我将数组添加为数据源后,DataGridView将保持空白。我错过了什么 Dim xlApp As New Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Private Sub Button2_Click(ByVa

VB新手。我正在尝试将8000行VBA宏转换为VB。我才刚刚开始,我相信我会在这里寻求很多帮助

我正在尝试将Excel范围加载到DataGridView中。在我将数组添加为数据源后,DataGridView将保持空白。我错过了什么

Dim xlApp As New Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    xlWorkBook = xlApp.Workbooks.Open("C:\Users\me\Dropbox\Test\Test.xls")
    xlWorkSheet = xlApp.Sheets("TestPage")
    Dim loadArray(,) As Object = xlWorkSheet.Range("B15:N22").Value
    DataGridView1.DataSource = loadArray
    xlApp.Visible = False
    xlApp.Quit()
End Sub

谢谢您的帮助。

我将尝试此方法,而不是
DataGridView1.DataSource=loadArray
。它将在datagridview中为“B-N”创建一列,并用电子表格中的单元格值填充datagridview的行(假设loadarray正确加载了数据)


HTH

@AbeGold,你解决问题了吗?你解决问题了吗?
For i As Integer = 0 To 12  '0 = B to 12 = N
    dataGridView1.Columns.Add(i.ToString(), i.ToString())
    For j As Integer = 0 To 6
        If i = 0 Then
            dataGridView1.Rows.Add()
        End If
        dataGridView1.Rows(j).Cells(i).Value = loadArray(i,j)
    Next
Next