ASP連EXECL及導入導出ACCESS操作SQL

一：ASP連結EXECEL【SQL 操作EXCEL】

<%
dim conn
set conn=server.createobject("adodb.connection")
conn.open "driver={Microsoft Excel Driver (*.xls)};DBQ="&server.mappath("execl.xls")

dim rs
set rs=conn.execute("select * from [Sheet1$]")
%>

數據表後面要加$號才行

EXECL裏第一行就是字段名,用法用ACCESS差不多

 

二 :ASP: EXCEL導入到ACCESS

原始EXECL表中的信息導到WEB裏~~

下面連接到student.xls表sheet1$ '表後面要加個$的,我以前試用,一定要加這個符號
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;DBQ=" & Server.MapPath("student.xls")

SQL1="select * from [sheet1$]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open  SQL1, conn, 3, 3

'下面連接到data.mdb表table
curDir = Server.MapPath("../data.mdb")  
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDir
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs1.ActiveConnection = conn1
rs1.Source = "select * from table"
rs1.CursorType = 3  ' adOpenKeyset
rs1.LockType = 3  'adLockOptimistic
rs1.Open
Do While Not rs.Eof
rs1.AddNew
rs1(0)=j
for i=0 to rs.Fields.Count-1
   rs1(i)=Trim(rs(i))
Next
rs1.Update
rs.MoveNext
j=j+1
Loop

rs.Close
rs1.Close
conn.Close
conn1.Close
Set rs=nothing
Set conn=nothing

 

三 ：ASP: Access導出到Excel

如果導出數據結構不復雜,直接用TABLE,在頁面里加入<%response.ContentType ="application/vnd.ms-excel"%>即可!

 

server.scripttimeout=100000 '處理時間較長，設置值應大一點
On Error Resume Next
set objExcelApp = createObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.WorkBooks.add
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objSpreadsheet = objExcelBook.Sheets(1)
Dim Conn
Dim Connstr
Dim DB
DB="weste.mdb" '這裏選擇數據庫
Set conn = Server.createObject("ADODB.Connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
Conn.Open Connstr
Dim objRS
Set objRS = Server.createObject("ADODB.Recordset")
objRS.Open "select * FROM FriendLink",conn,1,3 '這裏用sql語句查詢需要導出的內容
If objRS.EOF then
response.write("Error")
respose.end
End if

Dim objField, iCol, iRow
iCol = 1 '取得列號
iRow = 1 '取得行號
objSpreadsheet.Cells(iRow, iCol).Value = "用ASP將Access中的數據導入到Excel文件——西部e網" '單元格插入數據
objSpreadsheet.Columns(iCol).ShrinkToFit=true '設定是否自動適應表格單元大小(單元格寬不變）
'設置Excel表裏的字體
objSpreadsheet.Cells(iRow, iCol).Font.Bold = True '單元格字體加粗
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False '單元格字體傾斜
objSpreadsheet.Cells(iRow, iCol).Font.Size = 20 '設置單元格字號
objSpreadsheet.Cells(iRow, iCol).ParagraphFormat.Alignment=1 '設置單元格對齊格式:居中
objspreadsheet.Cells(iRow,iCol).font.name="宋體" '設置單元格字體
objspreadsheet.Cells(iRow,iCol).font.ColorIndex=2 '設置單元格文字的顏色，顏色可以查詢，2爲白色
objSpreadsheet.Range("A1:F1").merge '合併單元格(單元區域)
objSpreadsheet.Range("A1:F1").Interior.ColorIndex = 1 '設計單元絡背景色
'objSpreadsheet.Range("A2:F2").WrapText=true '設置字符回捲（自動換行）
iRow=iRow+1
For Each objField in objRS.Fields
'objSpreadsheet.Columns(iCol).ShrinkToFit=true
objSpreadsheet.Cells(iRow, iCol).Value = objField.Name
'設置Excel表裏的字體
objSpreadsheet.Cells(iRow, iCol).Font.Bold = True
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 20
objSpreadsheet.Cells(iRow, iCol).Halignment = 2 '居中
iCol = iCol + 1
Next 'objField
'Display all of the data
Do While Not objRS.EOF
iRow = iRow + 1
iCol = 1
For Each objField in objRS.Fields
If IsNull(objField.Value) then
objSpreadsheet.Cells(iRow, iCol).Value = ""
Else
objSpreadsheet.Columns(iCol).ShrinkToFit=true
objSpreadsheet.Cells(iRow, iCol).Value = objField.Value
objSpreadsheet.Cells(iRow, iCol).Halignment = 2
objSpreadsheet.Cells(iRow, iCol).Font.Bold = False
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
'objSpreadsheet.Cells(iRow, iCol).Halignment = 2
objSpreadsheet.Cells(iRow, iCol).ParagraphFormat.Alignment=1
End If
iCol = iCol + 1
Next 'objField
objRS.MoveNext
Loop

Dim SaveName
SaveName="temp1"
Dim objExcel
Dim ExcelPath
ExcelPath = "" & SaveName & ".xls"
objExcelBook.SaveAs server.mappath(ExcelPath)
response.write("<a href='" & server.URLEncode(ExcelPath) & "'>下載</a>")
objExcelApp.Quit
set objExcelApp = Nothing