B/S结构生成EXCEL文件时遇到的问题。

[sunwave0]

B/S结构问题：
1、我用excel.Workbooks.Open(......）打开一个EXCEL文件，然后立即用workbook.SaveAs(.....)存储成另一个文件名,文件存下了，不过打开文件发现新存的文件里是空数据，而原始文件是有数据的，这是怎么回事情啊？有人能提供关于打开EXCEL文件的代码实例吗？
2、B/S结构中将生成的EXCEL文件存储到客户端，怎么做，做好有人能给个比较完整的代码让我研究下，谢谢了。
3、B/S结构中，用WORKBOOK无法关闭EXCEL线程的问题，希望大家能提供更多的思路。

[Knight94]

to 2、B/S结构中将生成的EXCEL文件存储到客户端，怎么做，做好有人能给个比较完整的代码让我研究下，谢谢了。

Exporting in MS Excel by MS Excel way
http://www.codeproject.com/useritems/ExportInExcelByExcelWay.asp

[Knight94]

to 3、B/S结构中，用WORKBOOK无法关闭EXCEL线程的问题，希望大家能提供更多的思路。

Sample code as follows:
myApp=new Excel.ApplicationClass();
myApp.Visible = false;
oMissiong = System.Reflection.Missing.Value;
myBooks= myApp.Workbooks;
myBook = myBooks.Open(ExcelFile,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong,oMissiong);
mySheet=(Excel.Worksheet)myBook.Sheets[1];
..........................
.........................
if(myBook != null)
myBook.Close(true, ExcelFile, oMissiong);

// Quit Excel and clean up.
if(mySheet != null)
System.Runtime.InteropServices.Marshal.ReleaseComObject (mySheet);
mySheet = null;
if(myBook != null)
System.Runtime.InteropServices.Marshal.ReleaseComObject (myBook);
myBook = null;
if(myBooks != null)
System.Runtime.InteropServices.Marshal.ReleaseComObject (myBooks);
myBooks = null;
if(myApp != null)
{
myApp.Workbooks.Close();
myApp.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject (myApp);
myApp = null;
}
GC.Collect();

[Knight94]

to 1

贴出相关操作代码。

[tomsoncat]

帮顶

[yixianggao]

不知道你的功能需求是啥？

反正之前项目中都不启动 Excel 读取 excel 文件，而是用 oledb 读取，获取 DataSet 或 DataTable。
下载时直接写流，而不在 Server 上保存文件。

[sunwave0]

能给我发一个关于B/S结构中将表中数据生成EXCEL文件,并存储到客户端的程序代码吗?我现在主要不知道的存储到客户端这部分。

[mailpq]

Dim resp As HttpResponse
resp = Page.Response
resp.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
resp.AppendHeader("Content-Disposition", "attachment;filename=" + FileName)
resp.ContentType = "application/ms-txt"
Dim colHeaders As New String("")
Dim Is_item As New String("")
Dim i As Integer
Dim dt As DataTable
dt = ds.Tables(0)
Dim drs As DataRow()
drs = dt.Select("")
resp.Write("姓名" + vbTab + "学号" + vbCrLf)
Dim dr As DataRow
For Each dr In drs
For i = 0 To (dt.Columns.Count - 1)
Is_item = Is_item + dr(i).ToString + vbTab
Next
Is_item = Is_item + vbCrLf
resp.Write(Is_item)
Is_item = ""
Next
以上是用HttpResponse对象实现的～

[sunwave0]

方法试了下,还是没关闭线程。写流的方式我不会用，请给我说的详细点好吗？

[Wizard_Joe]

关注

[noky]

对EXCEL的操作我个人认为有两种方式。二楼给的方法是一种（VBA）。但是这种方法回出现你刚才说的问题。写不进去任何数值，或者Excel线程无法关闭等等问题，我也遇到过，这种方法太繁琐了，细到你必须计算每一个cell的宽度等等，个人认为如果没有必要，不要用这种方法，
还有另外一种就是用OLE技术，把Excel当作数据库来处理，用ADO来对Excel进行操作，另外要配合DataSet和DataTable，这样处理起来比较的方便。另外附上从Excel中读取的代码，不全，你自己在研究吧！
mConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + path + ";Extended Properties=Excel 8.0;";
mConnection = new OleDbConnection(mConnectionString);
mOleDbCommand = new OleDbCommand();
mOleDbCommand.Connection = mConnection;
mOleDbCommand.Connection.Open();

// 创建表
string columnString = "CREATE TABLE Worksheet(";
//这里循环你的DataTabel中的行列，
{
columnString + = dataTable中的行、列的值 + " varchar,";
}
columnString = columnString.TrimEnd(',');
columnString += ")";
mOleDbCommand.CommandText = columnString;
mCellOleDbCommand.ExecuteNonQuery();
代码不全，也不可能给你全的见凉。

[noky]

更正，我给你的代码是吧DataTable中的数据写入到Excel中

[tmc1703]

这个问题最大难点在关闭因为读写EXECL而产生的EXECL进程，这个去网上找找相关资料解决好这个这个问题也就解决的比较完善了。