將Excel範圍加載到VB中DataGridView

Question

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 

感謝您的任何幫助。

Answer 1

而不是DataGridView1.DataSource = loadArray，我會試試這個。它將在datagridview中爲「B-N」創建一個列，並用電子表格中的單元格值填充datagridview的行（假設loadarray正確加載數據）。

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 

HTH