อ่าน Excel (xlsx) บน .Net Application ด้วย Library ของ EPPlus (VB.Net,C#)

        Dim excel As New FileInfo(Server.MapPath("Xls/myData.xlsx"))
        Using package = New ExcelPackage(excel)
            Dim workbook = package.Workbook

            '*** Sheet 1
            Dim worksheet = workbook.Worksheets.First()

            '*** Result
            Me.lblResult1.Text = worksheet.Cells("A1").Text
            Me.lblResult2.Text = worksheet.Cells("B2").Text
            Me.lblResult3.Text = worksheet.Cells("C3").Text
        End Using

            FileInfo excel = new FileInfo(Server.MapPath(@"Xls/myData.xlsx"));
            using (var package = new ExcelPackage(excel))
            {
                var workbook = package.Workbook;

                //*** Sheet 1
                var worksheet = workbook.Worksheets.First();

                //*** Result
                this.lblResult1.Text = worksheet.Cells["A1"].Text;
                this.lblResult2.Text = worksheet.Cells["B2"].Text;
                this.lblResult3.Text = worksheet.Cells["C3"].Text;
            }

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim excel As New FileInfo(Server.MapPath("Xls/myData.xlsx"))
        Using package = New ExcelPackage(excel)
            Dim workbook = package.Workbook

            '*** Sheet 1
            Dim worksheet = workbook.Worksheets.First()

            '*** DataTable & DataSource
            Dim dt As DataTable = ConvertToDataTable(worksheet)

            Me.myGridView.DataSource = dt
            Me.myGridView.DataBind()
        End Using

    End Sub

    Private Function ConvertToDataTable(oSheet As ExcelWorksheet) As DataTable
        Dim totalRows As Integer = oSheet.Dimension.[End].Row
        Dim totalCols As Integer = oSheet.Dimension.[End].Column
        Dim dt As New DataTable(oSheet.Name)
        Dim dr As DataRow = Nothing
        For i As Integer = 1 To totalRows
            If i > 1 Then
                dr = dt.Rows.Add()
            End If
            For j As Integer = 1 To totalCols
                If i = 1 Then
                    dt.Columns.Add(oSheet.Cells(i, j).Value.ToString())
                Else
                    dr(j - 1) = oSheet.Cells(i, j).Value.ToString()
                End If
            Next
        Next
        Return dt
    End Function

       protected void Page_Load(object sender, EventArgs e)
        {

            FileInfo excel = new FileInfo(Server.MapPath(@"Xls/myData.xlsx"));
            using (var package = new ExcelPackage(excel))
            {
                var workbook = package.Workbook;

                //*** Sheet 1
                var worksheet = workbook.Worksheets.First();

                //*** DataTable & DataSource
                DataTable dt = ConvertToDataTable(worksheet);

                this.myGridView.DataSource = dt;
                this.myGridView.DataBind();
            }

        }

        private DataTable ConvertToDataTable(ExcelWorksheet oSheet)
        {
            int totalRows = oSheet.Dimension.End.Row;
            int totalCols = oSheet.Dimension.End.Column;
            DataTable dt = new DataTable(oSheet.Name);
            DataRow dr = null;
            for (int i = 1; i <= totalRows; i++)
            {
                if (i > 1) dr = dt.Rows.Add();
                for (int j = 1; j <= totalCols; j++)
                {
                    if (i == 1)
                        dt.Columns.Add(oSheet.Cells[i, j].Value.ToString());
                    else
                        dr[j - 1] = oSheet.Cells[i, j].Value.ToString();
                }
            }
            return dt;
        }

        Dim excel As New FileInfo(Server.MapPath("Xls/myData.xlsx"))
        Using package = New ExcelPackage(excel)
            Dim workbook = package.Workbook

            '*** Sheet 1
            Dim worksheet = workbook.Worksheets.First()

            Dim strConnString As String = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase"
            Dim objConn = New SqlConnection(strConnString)
            objConn.Open()

            '*** Loop to Insert
            Dim totalRows As Integer = worksheet.Dimension.[End].Row
            For i As Integer = 2 To totalRows
                Dim strSQL As String = "INSERT INTO myTable (Column1,Column2,Column3,Column4,Column5) " &
                    " VALUES  (" + " '" + worksheet.Cells(i, 1).Text.ToString() + "', " &
                    " '" + worksheet.Cells(i, 2).Text.ToString() + "', " &
                    " '" + worksheet.Cells(i, 3).Text.ToString() + "', " &
                    " '" + worksheet.Cells(i, 4).Text.ToString() + "', " &
                    " '" + worksheet.Cells(i, 5).Text.ToString() + "' " + ")"
                Dim objCmd = New SqlCommand(strSQL, objConn)
                objCmd.ExecuteNonQuery()
            Next

            objConn.Close()
        End Using

            FileInfo excel = new FileInfo(Server.MapPath(@"Xls/myData.xlsx"));
            using (var package = new ExcelPackage(excel))
            {
                var workbook = package.Workbook;

                //*** Sheet 1
                var worksheet = workbook.Worksheets.First();

                string strConnString = @"Server=localhost;UID=sa;PASSWORD=;database=mydatabase";
                var objConn = new SqlConnection(strConnString);
                objConn.Open();

                //*** Loop to Insert
                int totalRows = worksheet.Dimension.End.Row;
                for (int i = 2; i <= totalRows; i++)
                {
                    string strSQL = "INSERT INTO myTable (Column1,Column2,Column3,Column4,Column5) "
                        + " VALUES  ("
                        + " '" + worksheet.Cells[i, 1].Text.ToString() + "', "
                        + " '" + worksheet.Cells[i, 2].Text.ToString() + "', "
                        + " '" + worksheet.Cells[i, 3].Text.ToString() + "', "
                        + " '" + worksheet.Cells[i, 4].Text.ToString() + "', "
                        + " '" + worksheet.Cells[i, 5].Text.ToString() + "' "
                        + ")";
                    var objCmd = new SqlCommand(strSQL, objConn);
                    objCmd.ExecuteNonQuery();
                }

                objConn.Close();
            }