请帮忙：（WEBFORM）把DATASET 的数据到入到EXCEL中（想直接生成标准的EXCEL文件），出现如下错误！

[njusea]

代码如下：
Excel.Application excel = new Excel.ApplicationClass();
excel.Visible = true;
object Missing =System.Reflection.Missing.Value;
excel.Workbooks.Add(Missing);

Worksheet worksheet = (Worksheet) excel.ActiveSheet;

for(int i=1;i<=DataGrid1.Items.Count;i++)
{
for(int j=0;j<=4;j++)
{
worksheet.Cells[i+1,j] = this.DataGrid1.Items[i].Cells[j].ToString(); //这用个循环写入数据

}
}
worksheet.SaveAs("D:\\Sheet1.xls",Missing,Missing,Missing,Missing,Missing,Missing,Missing,Missing,Missing);

excel.Quit();
System.GC.Collect();

错误如下：

HRESULT 中的异常：0x800A03EC。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.Runtime.InteropServices.COMException: HRESULT 中的异常：0x800A03EC。

源错误:


行 329： for(int j=0;j<=4;j++)
行 330： {
行 331： worksheet.Cells[i+1,j] = this.DataGrid1.Items[i].Cells[j].ToString(); //这用个循环写入数据
行 332：
行 333： }


源文件: c:\inetpub\wwwroot\sisystem_wgjt\web\oa_person\todayagendasms.aspx.cs 行: 331

堆栈跟踪:


[COMException (0x800a03ec): HRESULT 中的异常：0x800A03EC。]

[李天平]

看是否有权限访问

[njusea]

有权限的····

[hchxxzx]

区域设置导致某些 Excel 方法返回错误
如果最终用户的区域设置中选定的区域设置与 Microsoft Office Excel 2003 的安装语言不匹配，则用户在调用某些 Excel 方法和属性时，可能会收到以下错误信息：

mscorlib.dll 中出现“System.Runtime.InteropServices.COMException”类型的第一次机会异常。
其他信息：HRESULT 中出现异常：0x800A03EC。
-或-

ExcelProject.dll 中出现“System.Runtime.InteropServices.COMException”类型的第一次机会异常。
其他信息：格式过时或类型库无效。
有关纠正此问题的详细信息，请参见 Office 解决方案的全球化和本地化。

http://msdn.microsoft.com/library/chs/default.asp?url=/library/CHS/dv_wrcore/html/wroritroubleshootinginofficeatruntime.asp

[SeeSunSet]

Private Sub GiveDataToExcel(ByVal Dg As DataGrid)
Response.Clear()
Response.Buffer = True
Response.Charset = "GB2312"
Response.AppendHeader("Content-Disposition", "attachment;filename=FileName.xls")
Response.ContentEncoding = System.Text.Encoding.GetEncoding("UTF-8") ';//设置输出流为简体中文
Response.ContentType = "application/ms-excel" '//设置输出文件类型为excel文件。
Me.EnableViewState = False
Dim myCItrad As CultureInfo = New System.Globalization.CultureInfo("ZH-CN", True)
Dim oStringWriter As StringWriter = New System.IO.StringWriter(myCItrad)
Dim oHtmlTextWriter As HtmlTextWriter = New System.Web.UI.HtmlTextWriter(oStringWriter)
'Me.ClearControls(Dg) '处理掉按钮列
Dg.RenderControl(oHtmlTextWriter)
Response.Write(oStringWriter.ToString())
Response.End()
End Sub

Private Sub ClearControls(ByVal control As Control)
Dim i As Int16
For i = control.Controls.Count - 1 To 0
ClearControls(control.Controls(i))
Next
If TypeName(control) <> "TableCell" Then
If Not IsDBNull(control.GetType().GetProperty("SelectedItem")) Then
Dim Literal As LiteralControl = New LiteralControl()
control.Parent.Controls.Add(Literal)
Try
Literal.Text = control.GetType().GetProperty("SelectedItem").GetValue(control, Nothing)
Catch ex As Exception
Response.Write(ex.Message)
End Try
control.Parent.Controls.Remove(control)
End If
Else
If Not IsDBNull(control.GetType().GetProperty("Text")) Then
Dim literal As LiteralControl = New LiteralControl()
control.Parent.Controls.Add(literal)
literal.Text = control.GetType().GetProperty("Text").GetValue(control, Nothing)
control.Parent.Controls.Remove(control)
End If
End If
Return
End Sub

[njusea]

to drk928(一起看斜阳):

你这种方法导出的EXCEL文件不是标准的EXCEL文件、，是HTML类型的EXCEL文件，

这种类型的文件不可以直接当做数据源的····

我想直接得到标准格式的EXCEL文件！！！！！

[jimu8130]

学习