自動出口到Microsoft Excel的DataTable

今天，我想表明，一直擔任我很長一段時間，但我仍然使用它的例子。
出口到Excel完整的DataTable的列或行的數量，我們做出了榜樣。

可能有許多方法可以做到這一點，但我覺得真正有用的，因為這種方法對任何版本的Excel。 對於新版本的Excel compatilidad問題只能處理256列。

的第一件事，我們需要的是添加Microsoft.Office.Interop.Excel參考，我們做如下：

參考導入到Excel中

導入Excel參考

然後，我們需要一種形式，一個按鈕，DataGridView和進度條。 我們可以在圖片中看到：

應用程序的形式出口到Excel的數據集

現在，我想告訴所有的代碼是非常簡單的，最重要的是，它適應任何表。 你將能夠重複使用，沒有問題。

 進口System.Data
進口的System.Data.SqlClient
進口Microsoft.Office.Interop

公共類Form1
    作為新的DataSet的私人DS

    小組將Form1_Load（0 System.Object的，BYVAL e由於發件人）把手MyBase.Load
         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
         '/ /創建連接，並填寫在DataGridView
         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
        昏暗的CNN（“數據源=本地\ SQLEXPRESS;初始目錄=羅斯文集成安全性= TRUE”）作為新的SqlConnection
        昏暗的大作為新的SqlDataAdapter（“SELECT *從客戶”，CNN）
         da.Fill（DS）
         DataGridView1.DataSource = ds.Tables（0）
     END SUB

     BtnExportar_Click私人小組（作為System.Object的，BYVAL e由於的BYVAL發件人）處理btnExportar.Click
         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / /
         '/ /創建Excel對象
         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / /
        昏暗m_Excel
        昏暗objLibroExcel
        昏暗objHojaExcel
         m_Excel =的CreateObject（“Excel.Application的”）
         m_Excel.Workbooks.Add objLibroExcel =（）
         objHojaExcel，= objLibroExcel.Worksheets（1）
         objHojaExcel.Name =“客戶”
         objHojaExcel.Visible = Excel.XlSheetVisibility.xlSheetVisible
         objHojaExcel.Activate（）

         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
         '/ /定義兩個變量來控制行和列
         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
        昏暗行整數= 1
        昏暗列整數= 1

         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
         '/ /設置列標題行
         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
         objHojaExcel.Range（“A1”）。選擇（）
        對於每個DC在ds.Tables（0）列。
             objHojaExcel.Range（的ColumnName（列）1）。價值= dc.ColumnName
            柱+ = 1
        未來
        列+ = 1

         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
         '/ /格式化行標題
         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
        由於PIAs無點心objRango = objHojaExcel.Range（“A1”的ColumnName（ds.Tables（0）Columns.Count）＆“1”。）
         objRango.Font.Bold =真
         objRango.Cells.Interior.ColorIndex = 35

         objRango.Cells.Borders（Excel.XlBordersIndex.xlDiagonalDown）的LineStyle = Excel.XlLineStyle.xlLineStyleNone。
         objRango.Cells.Borders（Excel.XlBordersIndex.xlDiagonalUp）的LineStyle = Excel.XlLineStyle.xlLineStyleNone。
         objRango.Cells.Borders（Excel.XlBordersIndex.xlEdgeLeft）的LineStyle = Excel.XlLineStyle.xlLineStyleNone。
         objRango.Cells.Borders（Excel.XlBordersIndex.xlEdgeRight）的LineStyle = Excel.XlLineStyle.xlContinuous。
         objRango.Cells.Borders（Excel.XlBordersIndex.xlEdgeTop）的LineStyle = Excel.XlLineStyle.xlContinuous。
         objRango.Cells.Borders（Excel.XlBordersIndex.xlEdgeBottom）的LineStyle = Excel.XlLineStyle.xlContinuous。

         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
         '/ /加載DataTable中的所有行
         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
         ProgressBar1.Maximum = ds.Tables（0）。Rows.Count
        列= 1
         ProgressBar1.Value = 0
        對於每個醫生在ds.Tables（0）。行
            列= 1
            對於每個DC在ds.Tables（0）列。
                 objHojaExcel.Range（的ColumnName（列）行）。價值=博士（dc.ColumnName）
                柱+ = 1
            未來
            列+ = 1
             ProgressBar1.Value + = 1
        未來

         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
         '/ /自動調整寬度
         '/ /從所有使用的列
         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
         objRango = objHojaExcel.Range（“A1”的ColumnName（ds.Tables（0）Columns.Count）ds.Tables（0）Rows.Count.ToString。）
         objRango.Select（）
         objRango.Columns.AutoFit（）

         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
         '/ /我們告訴Excel將顯示
         '/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
         MSGBOX（“導出到Excel中完成”MsgBoxStyle.Information的“。:: Solovb.net ::”。）
         m_Excel.Visible = TRUE

     END SUB

    作為字符串的公共功能的ColumnName（將作為整數級）
        作為字符串暗淡列（256）

        列（1）=“A”的
         （2）欄的“B”
        列（3）=的“C”
         （4）欄的“D”
         （5）欄的“E”
         （6）欄中的“F”
         （7）欄中的“G”
         （8）欄中的“H”
         （9）欄=“我”
         （10）欄中的“J”
         （11）欄中的“K”
         （12）欄為“L”
        列（13）=的“M”
        列（14）=的“N”
        列（15）=“澳”
         （16）欄中的“P”
        列（17）=“問”
        列（18）=的“R”
        列（19）=的“S”
        列（20）=的“T”
        列（21）=“U”形
        列（22）=的“V”
        列（23）=“寬”
         （24）欄中的“X”
        列（25）=的“Y”
        列（26）=的“Z”
        列（27）=“AA”
        列（28）=“AB公司”
        列（29）=“交流”
        列（30）=“公元”
        列（31）=“曝光”
        列（32）=“自動對焦”
        列（33）=“公司”
        列（34）=“啊”
        列（35）=“大赦國際”
        列（36）=“AJ。”
        列（37）=“支AK”
        列（38）=“鋁”
        列（39）=“AM”（上午）
        列（40）=“”
        列（41）=“敖”
        列（42）=“美聯社”
        列（43）=“阿Q”
        列（44）=“受體”
        列（45）=“作為”
        列（46）=“在”
        列（47）=“UA”
        列（48）=“​​影音”
        列（49）=“仙”
        列（50）=的“AX”
        列（51）=“AY”
        列（52）=“字母”
        列（53）=“廣管局”
        列（54）=的“BB”
        列（55）=“公元前”
        列（56）=“藍光”
        列（57）=“”
        列（58）=“高爐”
        列（59）=“保函”
        列（60）=“波黑”
        列（61）=“詩經”
        列（62）=“北京”
        列（63）=“BK”
        列（64）=“基本法”
        列（65）=“獸王”
        列（66）=“國民”
        列（67）=“公報”
        列（68）=“英國石油公司”
        列（69）=“燒烤”
        列（70）=“商業登記”
        列（71）=“學士”
        列（72）=：“BT”
        列（73）=“卜”
        列（74）=  - “BV”
        列（75）=“體重”
        列（76）=“BX”
        列（77）=“後面”
        列（78）=“渤”
        列（79）=“CA”
        列（80）=“可換股債券”
        列（81）=“消委會”
        列（82）=“CD”
        列（83）=“行政長官”
        列（84）=“CF卡”
        列（85）=“企業管治”
        列（86）=“通道”
        列（87）=“信賴區間”
        列（88）=“名人官​​司”
        列（89）=“長江”
        列（90）=“瘦肉精”
        列（91）=“招商”
        列（92）=的“CN”
        列（93）=“二氧化碳”
        列（94）=“處長”
        列（95）=“重慶”
        列（96）=“華潤”
        列（97）=的“CS”
        列（98）=“CT”
        列（99）=“銅”
        列（100）=“簡歷”
        列（101）=“連續”
        列（102）=“國泰航空”
        列（103）=“中青”
        列（104）=“鋯石”
        列（105）=“大”
        列（106）=“數據庫”
        列（107）=“特區”
        列（108）=“副署長”
        列（109）=“德”
        列（110）=“東風”
        列（111）=“危險品”
        列（112）=“衛生署”
        列（113）=“身份證”
        列（114）=的“DJ”
        列（115）=“的DK”
        列（116）=“DL”
        列（117）=“馬克”
        列（118）=“的DN”
        列（119）=“DO”
        列（120）=“的DP”
        列（121）=“DQ的”
        列（122）=“議員”
        列（123）=“副”
        列（124）=的“DT”
        列（125）=“杜”
        列（126）=“家庭暴力”
        列（127）=“德國之聲”
        列（128）=“的DX”
        列（129）=“空間DY”
        列（130）=“德滋”
        列（131）=“電針”
        列（132）=“光大”
        列（133）=“歐共體”
        列（134）=“海關”
        列（135）=“電子工程專輯”
        列（136）=“英”
        列（137）=“乙二醇”
        列（138）=“高血壓”
        列（139）=“依愛”
        列（140）=“EJ”
        列（141）=“克朗”
        列（142）=“開”
        列（143）=“微軟”
        列（144）=“”
        列（145）=“僱傭條例”
        列（146）=“的EP”
        列（147）=“情商”
        列（148）=“​​急診室”
        列（149）=“胚胎”
        列（150）=“ET外星人”
        列（151）=“歐盟”
        列（152）=“電動車”
        列（153）=“電子戰”
        列（154）=“EX”
        列（155）=“安永”
        列（156）=“簡易”
        列（157）=“足總杯”
        列（158）=“的FB”
        列（159）=“功能界別”
        列（160）=“定存”
        列（161）=“富裕”
        列（162）=“法郎”
        列（163）=“福源”
        列（164）=“跳頻”
        列（165）=“FI”
        列（166）=“FJ”
        列（167）=“FK”
        列（168）=“佛羅里達”
        列（169）=“調頻”
        列（170）=“新生力量”
        列（171）=“FO的”
        列（172）=“計劃生育”
        列（173）=“CF卡”
        列（174）=“阻燃”
        列（175）=“財政司司長”
        列（176）=“金融時報”
        列（177）=“富”
        列（178）=“光伏”
        列（179）=“防火牆”
        列（180）=“外匯”
        列（181）=“風雲”
        列（182）=“FZ型”
        列（183）=“遺傳”
        列（184）=“國標”
        列（185）=“氣相色譜”
        列（186）=“廣東”
        列（187）=“通用電氣”
        列（188）=“綠”
        列（189）=“的GG”
        列（190）=“生長激素”
        列（191）=“特種部隊”
        列（192）=“吉焦”
        列（193）=“競”
        列（194）=“GL”
        列（195）=“通用”
        列（196）=“號政府公告”
        列（197）=“GO”
        列（198）=“家庭醫生”
        列（199）=“GQ”
        列（200）=“遺傳資源”
        列（201）=“廣深高速”
        列（202）=，“GT”
        列（203）=“顧”
        列（204）=“顆粒”
        列（205）=“毛”
        列（206）=“GX的”
        列（207）=“庚寅”
        列（208）=“廣州”
        列（209）=“房委會”
        列（210）=“乙肝”
        列（211）=“慧聰”
        列（212）=“高清”
        列（213）=“他”
        列（214）=“高頻”
        列（215）=“氫化”
        列（216）=“農戶”
        列（217）=“您好”
        列（218）=“黃建忠”
        列（219）=“香港”
        列（220）=“紅蓮”
        列（221）=“陛下”
        列（222）=“HN”
        列（223）=“議員”
        列（224）=“HP”
        列（225）=“總部”
        列（226）=“人力資源”
        列（227）=“爆頭”
        列（228）=“羥色胺”
        列（229）=“胡”
        列（230）=“高壓”
        列（231）=“硬件”
        列（232）=“高”
        列（233）=“海鷹”
        列（234）=“赫茲”
        列（235）=“保監”
        列（236）=“興業”
        列（237）=“集成電路”
        列（238）=“身份證”
        列（239）=“IE瀏覽器”
        列（240）=“如果”
        列（241）=“中空玻璃”
        列（242）=“中轉”
        列（243）=“二”
        列（244）=“IJ”
        列（245）=“的IK”
        列（246）=“伊爾”
        列（247）=“聊天室”
        列（248）=“​​中”
        列（249）=“的IO”
        列（250）=“知識產權”
        列（251）=“智商”
        列（252）=的“R”
        列（253）=“”
        列（254）=“”
        列（255）=“國際單位”
        列（256）=“四”

        返回列（數）
    函數結束
末級 

這種方法也使我受益匪淺，我希望你也這樣做，請留下您的意見。