asp數據庫與excel的導入導出 _知識經驗

文章插圖

下面是asp中的代碼
設置rs2 =服務器。CreateObject(ADODB.recordset)
SQL = select * from eq where eq bumen = ' & dep；& ' eqbumen desc的訂單
rs2 .打開康涅狄格州sql，1，1
set objExcel=CreateObject(Excel 。應用程序)
objexcel . workbooks . Open(server . mappath(test)& book1 . xlt)'打開excel模板。
ObjExcel 。床單(1) 。選擇'選擇工作頁面。
設置sheetActive=objExcel 。ActiveWorkbook.ActiveSheet
“Num=2”從Excel的第2行開始。
“Do while not rs2.eof”循環，直到數據集中的數據結束。
【asp數據庫與excel的導入導出】StrRange=b#&:k# '設置要填充的單元格區域。
工作表激活。范圍(字符串范圍) 。字體。size = 10 '設置字體大小。
工作表激活。范圍(strrange) 。“wraptext = false”設置文本換行。
工作表激活。范圍(字符串范圍) 。' Shrinktofit = true '設置是否自動適應表格單元格大小。
工作表激活。范圍(strrange) 。value = http://www.baikeg.com/ng/array (rs2 (zcid)，rs2 (eqname)，rs2 (eqchangjia)，rs2 (eqxinghao)，rs2 (eqnengli) ， rs2 (eqweizhi)，rs2 (eqxianzhuang) ， rs2 (eqno) 。
數字=數字+1
rs2 。下一步
環
函數getTemporaryFile & # 40myFileSystem & # 41
dim臨時文件，點位置
tempFile = my file system . gettempname
dotPos=instr(1，tempFile，.)
getTemporaryFile=mid(tempFile，1，dotPos)& xls；結束功能
set myFs=createObject(腳本。文件系統對象)
filepos = server . mappath(test)& temp '存儲臨時打印文件的臨時目錄。
fileName = getTemporaryFile & # 40myFs & # 41獲取一個臨時文件名。
我的。刪除文件filePos&* 。“xls”刪除該目錄中所有原始的臨時打印文件。
設置myFs =無
objExcel 。active workbook . save as filePos & filename；
objExcel退出
set objExcel=Nothing .
以上解釋了asp數據庫和excel的導入導出。這篇文章已經分享到這里了，希望對大家有所幫助。