分享一下我老師大神的人工智慧教程！零基礎，通俗易懂！http://blog.csdn.net/jiangjunshow

也歡迎大家轉載本篇文章。分享知識，造福人民，實現我們中華民族偉大復興！

在前一篇文章中，介紹了DataSet匯出到Excel時客戶端生成檔案的幾種思路，接著往下說，伺服器端生成檔案，使用者直接下載，應該格式是可以保證的！

於是直接呼叫Excel的API生成。程式碼如下：

[c-sharp] view plain copy print ?

public static void DataSetToLocalExcel(DataSet dataSet, string outputPath, bool deleteOldFile)
{
if (deleteOldFile)
{
if (System.IO.File.Exists(outputPath)) { System.IO.File.Delete(outputPath); }
}
// Create the Excel Application object
ApplicationClass excelApp = new ApplicationClass();
// Create a new Excel Workbook
Workbook excelWorkbook = excelApp.Workbooks.Add(Type.Missing);
int sheetIndex = 0;
// Copy each DataTable
foreach (System.Data.DataTable dt in dataSet.Tables)
{
// Copy the DataTable to an object array
object[,] rawData = new object[dt.Rows.Count + 1, dt.Columns.Count];
// Copy the column names to the first row of the object array
for (int col = 0; col < dt.Columns.Count; col++)
{
rawData[0, col] = dt.Columns[col].ColumnName;
}
// Copy the values to the object array
for (int col = 0; col < dt.Columns.Count; col++)
{
for (int row = 0; row < dt.Rows.Count; row++)
{
rawData[row + 1, col] = dt.Rows[row].ItemArray[col];
}
}
// Calculate the final column letter
string finalColLetter = string.Empty;
string colCharset = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
int colCharsetLen = colCharset.Length;
if (dt.Columns.Count > colCharsetLen)
{
finalColLetter = colCharset.Substring(
(dt.Columns.Count - 1) / colCharsetLen - 1, 1);
}
finalColLetter += colCharset.Substring(
(dt.Columns.Count - 1) % colCharsetLen, 1);
// Create a new Sheet
Worksheet excelSheet = (Worksheet)excelWorkbook.Sheets.Add(
excelWorkbook.Sheets.get_Item(++sheetIndex),
Type.Missing, 1, XlSheetType.xlWorksheet);
excelSheet.Name = dt.TableName;
// Fast data export to Excel
string excelRange = string.Format("A1:{0}{1}",
finalColLetter, dt.Rows.Count + 1);
excelSheet.get_Range(excelRange, Type.Missing).Value2 = rawData;
// Mark the first row as BOLD
((Range)excelSheet.Rows[1, Type.Missing]).Font.Bold = true;
}
//excelApp.Application.AlertBeforeOverwriting = false;
excelApp.Application.DisplayAlerts = false;
// Save and Close the Workbook
excelWorkbook.SaveAs(outputPath, XlFileFormat.xlWorkbookNormal, Type.Missing,
Type.Missing, Type.Missing, Type.Missing, XlSaveAsAccessMode.xlExclusive,
Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing);
excelWorkbook.Close(true, Type.Missing, Type.Missing);
excelWorkbook = null;
// Release the Application object
excelApp.Quit();
excelApp = null;
// Collect the unreferenced objects
GC.Collect();
GC.WaitForPendingFinalizers();
}

public static void DataSetToLocalExcel(DataSet dataSet, string outputPath, bool deleteOldFile) { if (deleteOldFile) { if (System.IO.File.Exists(outputPath)) { System.IO.File.Delete(outputPath); } } // Create the Excel Application object ApplicationClass excelApp = new ApplicationClass(); // Create a new Excel Workbook Workbook excelWorkbook = excelApp.Workbooks.Add(Type.Missing); int sheetIndex = 0; // Copy each DataTable foreach (System.Data.DataTable dt in dataSet.Tables) { // Copy the DataTable to an object array object[,] rawData = new object[dt.Rows.Count + 1, dt.Columns.Count]; // Copy the column names to the first row of the object array for (int col = 0; col < dt.Columns.Count; col++) { rawData[0, col] = dt.Columns[col].ColumnName; } // Copy the values to the object array for (int col = 0; col < dt.Columns.Count; col++) { for (int row = 0; row < dt.Rows.Count; row++) { rawData[row + 1, col] = dt.Rows[row].ItemArray[col]; } } // Calculate the final column letter string finalColLetter = string.Empty; string colCharset = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; int colCharsetLen = colCharset.Length; if (dt.Columns.Count > colCharsetLen) { finalColLetter = colCharset.Substring( (dt.Columns.Count - 1) / colCharsetLen - 1, 1); } finalColLetter += colCharset.Substring( (dt.Columns.Count - 1) % colCharsetLen, 1); // Create a new Sheet Worksheet excelSheet = (Worksheet)excelWorkbook.Sheets.Add( excelWorkbook.Sheets.get_Item(++sheetIndex), Type.Missing, 1, XlSheetType.xlWorksheet); excelSheet.Name = dt.TableName; // Fast data export to Excel string excelRange = string.Format("A1:{0}{1}", finalColLetter, dt.Rows.Count + 1); excelSheet.get_Range(excelRange, Type.Missing).Value2 = rawData; // Mark the first row as BOLD ((Range)excelSheet.Rows[1, Type.Missing]).Font.Bold = true; } //excelApp.Application.AlertBeforeOverwriting = false; excelApp.Application.DisplayAlerts = false; // Save and Close the Workbook excelWorkbook.SaveAs(outputPath, XlFileFormat.xlWorkbookNormal, Type.Missing, Type.Missing, Type.Missing, Type.Missing, XlSaveAsAccessMode.xlExclusive, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing); excelWorkbook.Close(true, Type.Missing, Type.Missing); excelWorkbook = null; // Release the Application object excelApp.Quit(); excelApp = null; // Collect the unreferenced objects GC.Collect(); GC.WaitForPendingFinalizers(); }

說明下，其中的 xlsApp.Application.DisplayAlerts = false; 的作用是不顯示確認對話方塊

也可以逐Cell讀取，那樣可能會慢。本方法速度還過得去。

生成Winform程式碼測試沒錯，部署時，以為只要引用兩個dll就可以了

Microsoft.Office.Interop.Excel.dll

Office.dll

那成想，問題接著來了，當在WebForm下呼叫時，　提示“檢索 COM 類工廠中 CLSID 為 {00024500-0000-0000-C000-000000000046} 的元件時失敗，原因是出現以下錯誤: 8000401a ”

暈！　Google下，解決方案是在伺服器上安裝Office,並配置DCOM許可權。步驟如下：

[css] view plain copy print ?

配置 DCOM 中 EXCEL 應用程式:
要在互動式使用者帳戶下設定 Office 自動化伺服器，請按照下列步驟操作：
1. 以管理員身份登入到計算機，並使用完整安裝來安裝（或重新安裝）Office。為了實現系統的可靠性，建議您將 Office CD-ROM 中的內容複製到本地驅動器並從此位置安裝 Office。
2. 啟動要自動執行的 Office 應用程式。這會強制該應用程式進行自我註冊。
3. 執行該應用程式後，請按 Alt+F11 以載入 Microsoft Visual Basic for Applications (VBA) 編輯器。這會強制 VBA 進行初始化。
4. 關閉應用程式，包括 VBA。
5. 單擊開始，單擊執行，然後鍵入 DCOMCNFG。選擇要自動執行的應用程式。應用程式名稱如下所示：
Microsoft Access 97 - Microsoft Access 資料庫
Microsoft Access 2000/2002 - Microsoft Access 應用程式
Microsoft Excel 97/2000/2002 - Microsoft Excel 應用程式
Microsoft Word 97 - Microsoft Word Basic
Microsoft Word 2000/2002 - Microsoft Word 文件
單擊屬性開啟此應用程式的屬性對話方塊。
6. 單擊安全選項卡。驗證使用預設的訪問許可權和使用預設的啟動許可權已選中。
7. 單擊標識選項卡，然後選擇互動式使用者。
8. 單擊確定，關閉屬性對話方塊並返回主應用程式列表對話方塊。
9. 在 DCOM 配置對話方塊中，單擊預設安全性選項卡。
10. 單擊訪問許可權的編輯預設值。驗證訪問許可權中是否列出下列使用者，如果沒有列出，則新增這些使用者：
SYSTEM
INTERACTIVE
Everyone
Administrators
IUSR_ <machinename> *
IWAM_ <machinename> *
* 這些帳戶僅在計算機上安裝了 Internet Information Server (IIS) 的情況下才存在。
11. 確保允許每個使用者訪問，然後單擊確定。
12. 單擊啟動許可權的編輯預設值。驗證啟動許可權中是否列出下列使用者，如果沒有列出，則新增這些使用者：
SYSTEM
INTERACTIVE
Everyone
Administrators
IUSR_ <machinename> *
IWAM_ <machinename> *
* 這些帳戶僅在計算機上安裝有 IIS 的情況下才存在。
13. 確保允許每個使用者訪問，然後單擊確定。
14. 單擊確定關閉 DCOMCNFG。
如果你之前起用了身份模擬 (在 web.config 中配置了 <identity impersonate= "true "/> ) ,需要刪除之!
15.更新安裝office，把.net可程式設計元件安裝到本機（excel元件）
如果還是不行.幹脃把互動式使用者換成"啟動使用者"

配置 DCOM 中 EXCEL 應用程式:要在互動式使用者帳戶下設定 Office 自動化伺服器，請按照下列步驟操作： 1. 以管理員身份登入到計算機，並使用完整安裝來安裝（或重新安裝）Office。為了實現系統的可靠性，建議您將 Office CD-ROM 中的內容複製到本地驅動器並從此位置安裝 Office。 2. 啟動要自動執行的 Office 應用程式。這會強制該應用程式進行自我註冊。 3. 執行該應用程式後，請按 Alt+F11 以載入 Microsoft Visual Basic for Applications (VBA) 編輯器。這會強制 VBA 進行初始化。 4. 關閉應用程式，包括 VBA。 5. 單擊開始，單擊執行，然後鍵入 DCOMCNFG。選擇要自動執行的應用程式。應用程式名稱如下所示： Microsoft Access 97 - Microsoft Access 資料庫Microsoft Access 2000/2002 - Microsoft Access 應用程式Microsoft Excel 97/2000/2002 - Microsoft Excel 應用程式Microsoft Word 97 - Microsoft Word BasicMicrosoft Word 2000/2002 - Microsoft Word 文件單擊屬性開啟此應用程式的屬性對話方塊。6. 單擊安全選項卡。驗證使用預設的訪問許可權和使用預設的啟動許可權已選中。 7. 單擊標識選項卡，然後選擇互動式使用者。 8. 單擊確定，關閉屬性對話方塊並返回主應用程式列表對話方塊。 9. 在 DCOM 配置對話方塊中，單擊預設安全性選項卡。 10. 單擊訪問許可權的編輯預設值。驗證訪問許可權中是否列出下列使用者，如果沒有列出，則新增這些使用者： SYSTEMINTERACTIVEEveryoneAdministratorsIUSR_ <machinename> *IWAM_ <machinename> ** 這些帳戶僅在計算機上安裝了 Internet Information Server (IIS) 的情況下才存在。 11. 確保允許每個使用者訪問，然後單擊確定。 12. 單擊啟動許可權的編輯預設值。驗證啟動許可權中是否列出下列使用者，如果沒有列出，則新增這些使用者： SYSTEMINTERACTIVEEveryoneAdministratorsIUSR_ <machinename> *IWAM_ <machinename> ** 這些帳戶僅在計算機上安裝有 IIS 的情況下才存在。 13. 確保允許每個使用者訪問，然後單擊確定。 14. 單擊確定關閉 DCOMCNFG。如果你之前起用了身份模擬 (在 web.config 中配置了 <identity impersonate= "true "/> ) ,需要刪除之! 15.更新安裝office，把.net可程式設計元件安裝到本機（excel元件）如果還是不行.幹脃把互動式使用者換成"啟動使用者"

折騰了一番，總算可以用了！·只是伺服器上裝Office總感覺不爽，於是再嘗試下別的方法：

Reading and Writing Excel using OLEDB

主要的類檔案如下：

[c-sharp] view plain copy print ?

/**//// <summary>
/// Summary description for ExcelReader.
/// </summary>
public class ExcelReader : IDisposable
{
Variables#region Variables
private int[] _PKCol;
private string _strExcelFilename;
private bool _blnMixedData = true;
private bool _blnHeaders = false;
private string _strSheetName;
private string _strSheetRange;
private bool _blnKeepConnectionOpen = false;
private OleDbConnection _oleConn;
private OleDbCommand _oleCmdSelect;
private OleDbCommand _oleCmdUpdate;
#endregion
properties#region properties
public int[] PKCols
{
get { return _PKCol; }
set { _PKCol = value; }
}
public string ColName(int intCol)
{
string sColName = "";
if (intCol < 26)
sColName = Agronet.Common.Framework.Util.SQLParser.StringParse(Convert.ToChar((Convert.ToByte((char)'A') + intCol)));
else
{
int intFirst = ((int)intCol / 26);
int intSecond = ((int)intCol % 26);
sColName = Agronet.Common.Framework.Util.SQLParser.StringParse(Convert.ToByte((char)'A') + intFirst);
sColName += Agronet.Common.Framework.Util.SQLParser.StringParse(Convert.ToByte((char)'A') + intSecond);
}
return sColName;
}
public int ColNumber(string strCol)
{
strCol = strCol.ToUpper();
int intColNumber = 0;
if (strCol.Length > 1)
{
intColNumber = Agronet.Common.Framework.Util.SQLParser.ShortParse(Convert.ToByte(strCol[1]) - 65);
intColNumber += Agronet.Common.Framework.Util.SQLParser.ShortParse(Convert.ToByte(strCol[1]) - 64) * 26;
}
else
intColNumber = Agronet.Common.Framework.Util.SQLParser.ShortParse(Convert.ToByte(strCol[0]) - 65);
return intColNumber;
}
public String[] GetExcelSheetNames()
{
System.Data.DataTable dt = null;
try
{
if (_oleConn == null) Open();
// Get the data table containing the schema
dt = _oleConn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, null);
if (dt == null) { return null; }
String[] excelSheets = new String[dt.Rows.Count];
int i = 0;
// Add the sheet name to the string array.
foreach (DataRow row in dt.Rows)
{
string strSheetTableName = row["TABLE_NAME"].ToString();
excelSheets[i] = strSheetTableName.Substring(0, strSheetTableName.Length - 1);
i++;
}
return excelSheets;
}
catch (Exception ex)//tony 2008.12.31 update
{
string s = ex.Message; return null;
}
finally
{
// Clean up.
if (this.KeepConnectionOpen == false)
{
this.Close();
}
if (dt != null)
{
dt.Dispose();
dt = null;
}
}
}
public string ExcelFilename
{
get { return _strExcelFilename; }
set { _strExcelFilename = value; }
}
public string SheetName
{
get { return _strSheetName; }
set { _strSheetName = value; }
}
public string SheetRange
{
get { return _strSheetRange; }
set
{
if (value.IndexOf(":") == -1) throw new Exception("Invalid range length");
_strSheetRange = value;
}
}
public bool KeepConnectionOpen
{
get { return _blnKeepConnectionOpen; }
set { _blnKeepConnectionOpen = value; }
}
public bool Headers
{
get { return _blnHeaders; }
set { _blnHeaders = value; }
}
public bool MixedData
{
get { return _blnMixedData; }
set { _blnMixedData = value; }
}
#endregion
Methods#region Methods
Excel Connection#region Excel Connection
private string ExcelConnectionOptions()
{
string strOpts = "";
if (this.MixedData == true)
strOpts += "Imex=1;";
if (this.Headers == true)
strOpts += "HDR=Yes;";
else
strOpts += "HDR=No;";
return strOpts;
}
private string ExcelConnection()
{
return
@"Provider=Microsoft.Jet.OLEDB.4.0;" +
@"Data Source=" + _strExcelFilename + ";" +
@"Extended Properties=" + Convert.ToChar(34).ToString() +
@"Excel 8.0;" + ExcelConnectionOptions() + Convert.ToChar(34).ToString();
}
#endregion
Open / Close#region Open / Close
public void Open()
{
try
{
if (_oleConn != null)
{
if (_oleConn.State == ConnectionState.Open)
{
_oleConn.Close();
}
_oleConn = null;
}
相關推薦

DataSet匯出到Excel比較完整的解決方案二 --伺服器端生成檔案 downmoon

分享一下我老師大神的人工智慧教程！零基礎，通俗易懂！http://blog.csdn.net/jiangjunshow 也歡迎大家轉載本篇文章。分享知識，造福人民，實現我們中華民族偉大復興！

DataSet匯出到Excel比較完整的解決方案一 --客戶端生成檔案 downmoon

分享一下我老師大神的人工智慧教程！零基礎，通俗易懂！http://blog.csdn.net/jiangjunshow 也歡迎大家轉載本篇文章。分享知識，造福人民，實現我們中華民族偉大復興！

酒店OTT小區IPTV完整解決方案

酒店ott 小區iptv ott搭建軟件apk客戶需求： 1 目前有10個電視頻道，做酒店的OTT的應用，並發大概1000人。有信號采集設備，能主動推送RTMP協議直播流，目前需要RTMP服務器分發直播軟件。 2 我是做酒店的OTT，也就是找酒店的網絡電視解決方案。大概需要采集200個直播頻道，200多個

Win10系統下軟件UI顯示不完整解決方案

key 解決 window 顯示不完整行高解決問題存在路徑解決方案方法摘錄如下 step1：打開註冊表 WIN+R，或者運行裏面輸入regedit step2：路徑[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows

Java.HttpClient繞過Https證書解決方案二

div boolean IT ava 緩沖 pre lds 指定 x509 方案2 import java.io.*; import java.net.URL; import java.net.URLConnection; import java.security.Sec

play1.2.7區域性編譯，區域性打包完整解決方案

   play 框架在開發效率方面確實非常的非常的不錯，優點在此處就不做介紹！缺點在後期，後期專案較大後，打包越來越慢，打個包 10 多分鐘，這在更新頻率非常高的公司，完全無法忍受，只能整體編譯，無法區域性編譯。

Android 系統狀態列沉浸式/透明化完整解決方案

前言網上已經有很多有關於系統狀態列的解決方案,這篇文章也不會有什麼新奇的解決方案,都是本人經過自己試驗,統計提煉出來的相對靠譜的一套解決方案. 關於術語網上有很多爭論: 你這狀態列是變色龍狀態列,不是沉浸式的這應該是沉浸式的狀態列吧,系統欄與actionb

npm install 卡住不動無響應解決方案,從此不用在等了推薦使用解決方案二

國內訪問外網都很慢，甚至不能訪問！大家都懂，都很無奈！安裝Node時自帶的npm地址預設是：http://registry.npmjs.org ，npm install沒反應！跟著下面操作來解決吧！方案一：使用cnpm

關於崔慶才老師python3爬蟲中tesserocr安裝以及測試中出現Failed to init API, possibly an invalid tessdata path的完整解決方案

1 我假設大家都安裝了anaconda，因為我用的anaconda3，安裝目錄是 D:\ProgramData\Anaconda3； 2 安裝tesseract，地址是 https://digi.bib.uni-mannheim.de/tesseract/，我

關於Forms 驗證的完整解決方案

HttpContext.Current.User.Identity.IsAuthenticated=false; HttpContext.Current.User.Identity.Name=="" 解釋：當用戶登入時，伺服器為確認客戶端通過驗證要通過cookie向客戶端寫驗證（Authenticat）資訊

關於Java Web 使用 POI 將資料庫表匯出 Excel 的完整例項

//匯出Excel public void exportExcel() throws InterruptedException, IOException{   HSSFWorkbook hwb = new HSSFWorkbook();//第一步，建立一個workbook

分散式事務解決方案(二)【基於可靠訊息的最終一致性】

2. 最終一致性(基於可靠訊息) 2.1 訊息傳送的一致性指產生訊息的業務動作與訊息傳送的一致。（也就是說，如果業務操作成功，那麼由這個業務操作所產生的訊息一定要成功投遞出去，否則就丟訊息） 2.1.1 如何保障訊息傳送一致性處理方式1

ios7.1安裝提示"無法安裝應用程式因為證書無效"的解決方案二（dropbox被封專案轉移到Appharbor上）

6月18日起dropbox被天朝封了（這個真是無力吐槽），而ios7.1要求使用ssl安全連線，則需要重新找到一個支援https的免費伺服器。Appharbor是個不錯的選擇，操作簡單，此外需要新增配置檔案來識別plist,ipa檔案，有關如何使用Appharbor轉自:

區塊鏈應用於供應鏈金融的完整解決方案

區塊鏈技術在供應鏈金融中的運用主要以許可鏈（私有鏈或聯盟鏈）的形式，重點在於資訊的難篡改、一定程度的透明化，以及信用的可分割、易流轉，但核心企業佔據主導地位的現狀不會改變。龍頭企業、大平臺以及掌握核心資料的物流公司、技術

Java Web專案的檔案路徑問題的完整解決方案（WAR包）

J2EE專案在生產環境中，通常以WAR，EAR包等形式部署在伺服器上，在Websphere Application Server(WAS)伺服器上部署應用時，有時專案需要獲取檔案的物理路徑，但是WAR包部署時，在tomcat和WAS下部署有很大的差別：tomcat會把WAR包

hbase常見問題及解決方案(二)

hbase常見問題總結二之前介紹了工作中遇到的一些比較基礎的問題,下面介紹一些看起來沒有那麼簡單的問題 1. 類找不見的問題!(自己寫的類找不見的問題!) 出現該問題的情形: hbase和hadoop的hdfs,mapreduce整合使用的時候:

Win10系統下軟體UI顯示不完整解決方案

轉載地址：https://www.cnblogs.com/wxjnew/p/5079726.html 在最初升級win10的時候就想到了這些問題，例如和各種軟體的不相容性。當然，事實上win10並沒有想象的那麼糟，作為一個windows user 來說，win10的確是很高

介面測試完整解決方案(持續更新)

            介面測試作為一種測試型別，在平時測試工作當中進行的比較多，因為介面相對UI來說穩定很多，不會經常頻繁的更改，更適合進行大規模的自動化，加入到持續整合中去會起到很好

【Unity3D遊戲開發】基於NGUI的表情圖文混排解決方案 (二二)

使用unity3d也有兩年時間了，最近比較閒，有功夫梳理一下去年一年來學到以及用到的知識，分享給大家，順便方便自己查閱。如有錯誤以及不當的地方，歡迎各位指正。謝謝。去年五月份的時候，剛加入專案不久，老大交給我一個關於聊天系統任務，期初覺得應該很容易，但是看了文

跨域解決方案二：使用JSONP實現跨域

跨域的實現方式有多種，除了上篇文章提到的CORS外，常見的還有JSONP、HTML5、Flash、iframe、xhr2等。這篇文章對JSONP的跨域原理進行了探索，並將我的心得記錄在這裡和大家分享。 JSONP跨域原理探祕我們知道，使用 XMLHTTPRequest 物件傳送HTTP請求時，會

DataSet匯出到Excel比較完整的解決方案 二 --伺服器端生成檔案 downmoon

主要的類檔案如下：

相關推薦

DataSet匯出到Excel比較完整的解決方案二 --伺服器端生成檔案 downmoon