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

gshuhugs 2008-07-16 06:19:41





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

这是我写得导入excel的部分代码，如果数据大于65536行时写入新的sheet中应该怎么改呢，希望楼上的几位帮帮改改。
小弟将不胜感激涕零。
在下愚昧，看过很多人的帖子了，还是没搞定，请直接给代码吧。

...全文

1470 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

椅子 2008-07-25

打赏
举报

web应用不能用office的application

楼主做个压力测试看看，单机发300个请求，你看看服务器内存！！！

xutao888 2008-07-17

打赏
举报

试试用BCP方式

sytu_hzj 2008-07-17

打赏
举报

如果楼主用的是2003的话，可以采用分列显示的方法，将草果65536的行显示到新的列，我也遇到过同样的情况，给你看看代码：



 Microsoft.Office.Interop.Excel.Application excelApp = new Microsoft.Office.Interop.Excel.Application();

            Microsoft.Office.Interop.Excel.Workbook excelBook = excelApp.Workbooks.Add(Type.Missing);

            Microsoft.Office.Interop.Excel.Worksheet excelSheet = (Microsoft.Office.Interop.Excel.Worksheet)excelBook.ActiveSheet;

            excelApp.Visible = true;



            int rowCount = testRecordDataGridView.Rows.Count - 1;

            int columnCount = testRecordDataGridView.Columns.Count;



            if (txtBoardNo.Text != "")

            {

                excelSheet.Name = txtBoardNo.Text;

            }

            else

            {

                excelSheet.Name = "所有记录";

            }



            int sheetCount = rowCount / 65535 + 1;

            for (int i = 0; i < sheetCount; i++)

            {

                for (int j = 1; j <= testRecordDataGridView.Columns.Count; j++)

                {

                    excelSheet.Cells[1, (i * 10) + j] = testRecordDataGridView.Columns[j - 1].HeaderText;

                }



                string[,] records = new string[65535, columnCount];

                for (int row = i * 65535; row < (i + 1) * 65535; row++)

                {

                    if (row < rowCount)

                    {

                        for (int col = 0; col < columnCount; col++)

                        {

                            records[row % 65535, col] = testRecordDataGridView[col, row].Value.ToString();

                        }

                    }

                }



                excelSheet.get_Range(excelSheet.Cells[2, i * 10 + 1], excelSheet.Cells[65536, i * 10 + 9]).Value2 = records;

            }

        }