Imports Microsoft.Office.Interop

Public Class Form1

Private Sub mnuOpen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuOpen.Click

Dim filename1 As String

Dim x() As Single, y() As Single, i As Integer, n As Integer

Dim xl As Object

Dim dt As New DataTable n = 7

OpenFileDialog1.ShowDialog() filename1 = OpenFileDialog1.FileName xl = CreateObject("Excel.Application") Dim wb = xl.Workbooks.Open(filename1) ReDim x(0 To n - 1), y(0 To n - 1)

For i = 0 To n - 1

x(i) = xl.Range("A" + CStr(i + 2)).Value y(i) = xl.Range("B" + CStr(i + 2)).Value

Next i DataGridView1.DataSource = dt

dt.Columns.Add(New DataColumn("x", GetType(String)))

dt.Columns.Add(New DataColumn("y", GetType(String)))

For i = 0 To n - 1

dt.Rows.Add(New String() {x(i), y(i)}) Next i

End Sub

End Class