asp.net datagrid 匯出excel二種方法

asp教程.net datagrid 匯出excel二種方法
文章為你提供二款datagrid 匯出excel的代碼一款是利用vb.net 匯出excel一種是利用c# datagrid 匯出excel的執行個體代碼。
*/
//c#：

 

private void exporttoexcel()
        {
            savefiledialog savefiledialog = new savefiledialog();
            savefiledialog.filter = "execl files (*.xls)|*.xls";
            savefiledialog.filterindex = 0;
            savefiledialog.restoredirectory = true;
            savefiledialog.createprompt = true;
            savefiledialog.title = "儲存為excel檔案";
            savefiledialog.showdialog();

            if (savefiledialog.filename.indexof(":") < 0) return; //被點了"取消"

            stream mystream;
            mystream = savefiledialog.openfile();
            streamwriter sw = new streamwriter(mystream, system.text.encoding.getencoding(-0));
            string columntitle = "";
            try
            {
                //寫入欄位標題
                for (int i = 0; i < dgvgf_in_info.columncount; i++)
                {
                    if (i > 0)
                    {
                        columntitle += "t";
                    }
                    columntitle += dgvgf_in_info.columns[i].headertext;
                }
                sw.writeline(columntitle);

                //寫入列內容
                for (int j = 0; j < dgvgf_in_info.rows.count; j++)
                {
                    string columnvalue = "";
                    for (int k = 0; k < dgvgf_in_info.columns.count; k++)
                    {
                        if (k > 0)
                        {
                            columnvalue += "t";
                        }
                        if (dgvgf_in_info.rows[j].cells[k].value == null)
                            columnvalue += "";
                        else
                            columnvalue += dgvgf_in_info.rows[j].cells[k].value.tostring().trim();
                    }
                    sw.writeline(columnvalue);
                }
                sw.close();
                mystream.close();
            }
            catch (exception e)
            {
                messagebox.show(e.tostring());
            }
            finally
            {
                sw.close();
                mystream.close();
            }
        }

//vb.net

private sub exporttoexcel()
   dim savefiledialog as new savefiledialog()
   savefiledialog.filter = "execl files (*.xls)|*.xls"
   savefiledialog.filterindex = 0
   savefiledialog.restoredirectory = true
   savefiledialog.createprompt = true
   savefiledialog.title = "儲存為excel檔案"
   savefiledialog.showdialog()

   if savefiledialog.filename.indexof(":") < 0 then
    return
   end if
   '被點了"取消"
   dim mystream as stream
   mystream = savefiledialog.openfile()
   dim sw as new streamwriter(mystream, system.text.encoding.getencoding(-0))
   dim columntitle as string = ""
   try
    '寫入欄位標題
    for i as integer = 0 to dgvgf_in_info.columncount - 1
     if i > 0 then
      columntitle += vbtab
     end if
     columntitle += dgvgf_in_info.columns(i).headertext
    next
    sw.writeline(columntitle)

    '寫入列內容
    for j as integer = 0 to dgvgf_in_info.rows.count - 1
     dim columnvalue as string = ""
     for k as integer = 0 to dgvgf_in_info.columns.count - 1
      if k > 0 then
       columnvalue += vbtab
      end if
      if dgvgf_in_info.rows(j).cells(k).value is nothing then
       columnvalue += ""
      else
       columnvalue += dgvgf_in_info.rows(j).cells(k).value.tostring().trim()
      end if
     next
     sw.writeline(columnvalue)
    next
    sw.close()
    mystream.close()
   catch e as exception
    messagebox.show(e.tostring())
   finally
    sw.close()
    mystream.close()
   end try
  end sub

 

%>