sub csv()
dim fs, myfile as object
dim myfileline as string 'txtfile的行資料
dim sht as worksheet
dim csvfilename as string 'csv檔名
dim totalrows as integer ' 總的行數
dim totalcolumns as integer '總的列數
dim sheetnumber as integer '工作錶號
dim strall as string '整個工作表的文字
csvfilename = inputbox("請輸入檔名：", "csv", "export_csv")
totalrows = 17 ' 總的行數
totalcolumns = 10 '總的列數
sheetnumber = 1 '工作錶號
for each sht in thisworkbook.sheets
set fs = createobject("scripting.filesystemobject") '建立filesytemobject
set myfile = fs.createtextfile(activeworkbook.path & "\" + csvfilename & "_sheet" + cstr(sheetnumber) + ".csv") '通過filesystemobject新建乙個csv檔案
for i = 1 to totalrows '從第1行開始
ra = cstr(sht.cells(i, 1).value) '從第一列開始
if ra = "" then exit for
rb = ""
for j = 1 to 10
ca = cstr(sht.cells(1, j).value)
if ca = "" then exit for
if rb = "" then
rb = cstr(sht.cells(i, j).value)
else
rb = rb & "," & cstr(sht.cells(i, j).value)
end if
next j
myfile.writeline (rb)
strall = strall + rb + vbcrlf
next i
set myfile = nothing
set fs = nothing '關閉檔案和filesystemobject物件
sheetnumber = sheetnumber + 1 '下乙個工作表
next
msgbox ("已儲存了" + cstr(sheetnumber - 1) + "個csv檔案！")
end sub
將DataTable匯出為excel
本小節主要介紹如何將datatable表中的資料匯入到excel中去。主要是先通過將datatable資料表中的資料繫結到gridview上，在將gridview中的資料到處成excel的形式。例項 如下 string sconnectionstring 宣告乙個字串 連線資料庫字串，連線到xbmi...
將DataTable匯出為excel
本小節主要介紹如何將datatable表中的資料匯入到excel中去。主要是先通過將datatable資料表中的資料繫結到gridview上，在將gridview中的資料到處成excel的形式。例項 如下 string sconnectionstring 宣告乙個字串 連線資料庫字串，連線到xbmi...
將資料匯出為Excel
一 建立乙個類，將下面的 已封裝好 寫入 二 使用時直接呼叫 效果圖 下面展示一些內聯 片。可以直接複製過去用，已封裝好 public class excelhelper endregion hssfcellstyle datestyle workbook.createcellstyle hssfd...