导入excel时数据量大于65536行怎么办？

Dim myexcel As New Excel.Application

        Dim strSql As String = "select * from mdl_rc_case"

        Dim table As New DataTable

        table = DB.QueryTable(strSql)'DB是数据库链接类的实例，QueryTable返回的是datatable

        myexcel.Application.Workbooks.Add(True)



        Dim i, j As Integer

        If count_table_rows = 0 Then

            Return

        End If

        '添加标题

        For i = 0 To table.Columns.Count - 1

            myexcel.Cells(1, i + 1) = table.Columns(i).Caption

        Next

        '填充数据

        For i = 0 To table.Rows.Count - 1

            For j = 0 To table.Columns.Count - 1

                myexcel.Cells(i + 2, j + 1) = table.Rows(i)(j).ToString()

            Next

        Next

        myexcel.Visible = True