Access转Excel AND Excel导入Access代码精选.docVIP

Access转Excel AND Excel导入Access代码 JaAcc_Excel.Asp !--#include file=common.asp-- % ＇********************************************** ＇ Code by ASP导出EXCEL通用 ＇ 修改引用 By 子言(JaStudio) ＇********************************************** Dim xibua Dim mysql xibua = Request.QueryString(ids) if xibua=all Then mysql = select * from singup Else mysql = select * from singup where [系部]=＇xibua＇ End If 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 objRS Set objRS = Server.CreateObject(ADODB.Recordset) objRS.Open mysql,conn,1,3 If objRS.EOF then response.write(Error) respose.end End if Dim objField, iCol, iRow iCol = 1 ＇取得列号 iRow = 1 ＇取得行号 objSpreadsheet.Cells(iRow, iCol).Value = xibua部的报名情况 ＇单元格插入数据 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).=宋体 ＇设置单元格字体 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 ＇居中 iCo