六月丁香五月婷婷,丁香五月婷婷网,欧美激情网站,日本护士xxxx,禁止18岁天天操夜夜操,18岁禁止1000免费,国产福利无码一区色费

學(xué)習(xí)啦>學(xué)習(xí)電腦>工具軟件>辦公軟件學(xué)習(xí)>Excel教程>Excel基礎(chǔ)>

將asp中把數(shù)據(jù)導(dǎo)出為excel

時間： 張偉670由 分享

　　我們在做項目的時候經(jīng)常要將數(shù)據(jù)庫的數(shù)據(jù)導(dǎo)出到excel中，很多asp用戶并不知道怎么寫,下面小編告訴你們兩個能將asp導(dǎo)入excel的方法，希望對你有幫助！

　　將asp中數(shù)據(jù)導(dǎo)出為excel方法一：使用文件組件

1 < %
2 dim s,sql,filename,fs,myfile,x
3
4 Setfs = server.CreateObject("scripting.filesystemobject")
5 '--假設(shè)你想讓生成的EXCEL文件做如下的存放
6 filename = Server.MapPath("order.xls")
7 '--如果原來的EXCEL文件存在的話刪除它
8 if fs.FileExists(filename) then
9 fs.DeleteFile(filename)
10 end if
11 '--創(chuàng)建EXCEL文件
12 set myfile = fs.CreateTextFile(filename,true)
13
14
15 StartTime = Request("StartTime")
16 EndTime = Request("EndTime")
17 StartEndTime = "AddTime between #"& StartTime &" 00:00:00# and #"& EndTime &" 23:59:59#"
18 strSql = "select * from mksuers "
19 SetrstData =conn.execute(strSql)
20 if not rstData.EOF and not rstData.BOF then
21
22 dim trLine,responsestr
23 strLine=""
24Foreach x in rstData.fields
25 strLine = strLine & x.name & chr(9)
26Next
27
28 '--將表的列名先寫入EXCEL
29 myfile.writeline strLine
30
31DowhileNotrstData.EOF
32 strLine=""
33
34 for each x in rstData.Fields
35 strLine = strLine & x.value & chr(9)
36 next
37 myfile.writeline strLine
38
39 rstData.MoveNext
40 loop
41
42 end if
43 Response.Write "生成EXCEL文件成功，點擊<a href="/" rel="external nofollow" order.xls"" target=""_blank"">下載！"
44 rstData.Close
45 set rstData = nothing
46 Conn.Close
47 SetConn = nothing
48 %>

　　將asp中數(shù)據(jù)導(dǎo)出為excel方法二：用excel組件

1 < %
2 set rs=server.createobject("adodb.recordset")
3 sql="select * from mkusers"
4 rs.open sql,objconn,1,1
5 Set ExcelApp =CreateObject("Excel.Application")
6

ExcelApp.Application.Visible = True
7 Set ExcelBook = ExcelApp.Workbooks.Add
8 ExcelBook.WorkSheets(1).cells(1,1).value ="用戶表"
9 ExcelBook.WorkSheets(1).cells(2,1).value = "用戶編號"
10 ExcelBook.WorkSheets(1).cells(2,2).value = "登陸名"
11 ExcelBook.WorkSheets(1).cells(2,3).value = "真實姓名"
12 ExcelBook.WorkSheets(1).cells(2,4).value = "密碼"
13 cnt =3
14 do while not rs.eof
15 ExcelBook.WorkSheets(1).cells(cnt,1).value = rs("provinceid")
16 ExcelBook.WorkSheets(1).cells(cnt,2).value = rs("province")
17 ExcelBook.WorkSheets(1).cells(cnt,3).value = rs("flag")
18 ExcelBook.WorkSheets(1).cells(cnt,4).value = rs("id")
19 rs.movenext
20 cnt = cint(cnt) + 1
21 loop
22 Excelbook.SaveAs "d:\yourfile.xls" '這個是數(shù)據(jù)導(dǎo)出完畢以后在D盤存成文件
23 ExcelApp.Application.Quit '導(dǎo)出以后退出Excel
24 Set ExcelApp = Nothing '注銷Excel對象
25 %>< %
26 set rs=server.createobject("adodb.recordset")
27 sql="select * from mkusers"
28 rs.open sql,objconn,1,1
29 Set ExcelApp =CreateObject("Excel.Application")
30 ExcelApp.Application.Visible = True
31 Set ExcelBook = ExcelApp.Workbooks.Add
32 ExcelBook.WorkSheets(1).cells(1,1).value ="用戶表"
33 ExcelBook.WorkSheets(1).cells(2,1).value = "用戶編號"
34 ExcelBook.WorkSheets(1).cells(2,2).value = "登陸名"
35 ExcelBook.WorkSheets(1).cells(2,3).value = "真實姓名"
36 ExcelBook.WorkSheets(1).cells(2,4).value = "密碼"
37 cnt =3
38 do while not rs.eof
39 ExcelBook.WorkSheets(1).cells(cnt,1).value = rs("provinceid")
40 ExcelBook.WorkSheets(1).cells(cnt,2).value = rs("province")
41 ExcelBook.WorkSheets(1).cells(cnt,3).value = rs("flag")
42 ExcelBook.WorkSheets(1).cells(cnt,4).value = rs("id")
43 rs.movenext
44 cnt = cint(cnt) + 1
45 loop
46 Excelbook.SaveAs "d:\yourfile.xls" '這個是數(shù)據(jù)導(dǎo)出完畢以后在D盤存成文件
47 ExcelApp.Application.Quit '導(dǎo)出以后退出Excel
48 Set ExcelApp = Nothing '注銷Excel對象
49 %>
 
猜你喜歡：

將asp中把數(shù)據(jù)導(dǎo)出為excel

我們在做項目的時候經(jīng)常要將數(shù)據(jù)庫的數(shù)據(jù)導(dǎo)出到excel中，很多asp用戶并不知道怎么寫,下面小編告訴你們兩個能將asp導(dǎo)入excel的方法，希望對你有幫助！ 將asp中數(shù)據(jù)導(dǎo)出為excel方法一：使用文件組件 1 % 2 dim s,sql,filename,fs,myfile,x
推薦度：
點擊下載文檔文檔為doc格式
353943