dddggg [原作]
Function SwitchExcelInfo(xlsFileName)
Dim xlsStr
Dim rs
Dim i,j,k
Dim ExcelConn
Dim ExcelFile
Dim objExcelApp
Dim objExcelBook
Dim bgColor
xlsStr = ""
ExeclFile = Server.MapPath(xlsFileName)
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Quit
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Quit
objExcelApp.DisplayAlerts = false '不显示警告
objExcelApp.Application.Visible = false '不显示界面
objExcelApp.WorkBooks.Open(ExeclFile)
set o...[ 查看全文 ]