用ASP如何把Access的内容转到Excel里面

2003-04-19 11:08:51 73 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ASP实现Excel导入Access数据库导入方式有很多，思路有两种：1、用户直接打开本地Excel文件，通过程序直接导入Access数据库;2、用户打开本地Excel文件，通过程序上传至固定文件夹，然后通过程序将数据导入Access数据库两种方式相比较，方法2比方法1更为适用。一开始，使用第一种方法，本机测试通过，但是通过网络访问则会出现错误提示：80040e37，并提示找不到指定的文件。后来才发现，要使用此方法实现阅读详情

把Access的表名作为Excel的第一行？

...全文

在VB中怎样将ACCESS的数据导出导入到EXCEL中主　　题：在VB中阅读详情

sailor001

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

MSSQL 2003-04-19

打赏
举报

Class ExcelGen

Private objSpreadsheet
Private iColOffset
Private iRowOffset

Sub Class_Initialize()
Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")

iRowOffset = 2
iColOffset = 2
End Sub

Sub Class_Terminate()
Set objSpreadsheet = Nothing
End Sub

Public Property Let ColumnOffset(iColOff)
If iColOff > 0 then
iColOffset = iColOff
Else
iColOffset = 2
End If
End Property

Public Property Let RowOffset(iRowOff)
If iRowOff > 0 then
iRowOffset = iRowOff
Else
iRowOffset = 2
End If
End Property

Sub GenerateWorksheet(objRS)
If objRS.EOF then Exit Sub
Dim objField, iCol, iRow
dim TempStr
iCol = iColOffset
iRow = iRowOffset
For Each objField in objRS.Fields
objSpreadsheet.Cells(iRow, iCol).Value = right(objField.Name,len(objField.Name)-1)
objSpreadsheet.Columns(iCol).AutoFitColumns
'设置Excel表里的字体
objSpreadsheet.Cells(iRow, iCol).Font.Bold = True
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
objSpreadsheet.Cells(iRow, iCol).Halignment = 2 '居中
iCol = iCol + 1
Next

Do While Not objRS.EOF
iRow = iRow + 1
iCol = iColOffset
For Each objField in objRS.Fields
If IsNull(objField.Value) then
objSpreadsheet.Cells(iRow, iCol).Value = ""
Else
TempStr=objField.Value
if instr(1,"日期",objField.name)>1 then
TempStr=Year(objField.Value) & "年" & month(objField.Value) & "月" & day(objField.Value) & "日"
end if
if instr(1,objField.name,"时间")>1 then
TempStr=Year(objField.Value) & "年" & month(objField.Value) & "月" & day(objField.Value) & "日 " & hour(objField.value) & "时" & minute(objField.value) & "分" & second(objField.value) & "秒"
end if
objSpreadsheet.Cells(iRow, iCol).Value = TempStr
objSpreadsheet.Columns(iCol).AutoFitColumns
objSpreadsheet.Cells(iRow, iCol).Font.Bold = False
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
End If
iCol = iCol + 1
Next
objRS.MoveNext
Loop
End Sub

Function SaveWorksheet(strFileName)
On Error Resume Next
Call objSpreadsheet.ActiveSheet.Export(strFileName, 0)

SaveWorksheet = (Err.Number = 0)
End Function

End Class
ExcelPath = "Excel/" & SaveName & ".xls"

Set objExcel = New ExcelGen

objExcel.RowOffset = 1
objExcel.ColumnOffset = 1
Response.write "<center>第一步:文件导出成功!<br><br><br>"
objExcel.GenerateWorksheet(AdoRs)
dim Url
Url=ExcelPath
'Url=server.URLEncode(ExcelPath)
If objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then
response.write "第二步:文件保存成功!

用ASP如何把Access的内容转到Excel里面

相关推荐