newnew.pptx

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)

- 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