将数据导入Excel的问题

2009-08-19 04:34:37 137 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

EXCEL表数据导入SQL server数据库和常见的问题 EXCEL表数据导入SQL server数据库和常见的问题EXCEL表的数据导入正常流程excel表导入常见问题一：未在本地计算机上注册Microsoft.ACE.OLEDB.12.0excel表导入常见问题一：导入错误，导入不成功：正常运行错误，等一大堆错误 EXCEL表的数据导入正常流程借阅百度知道 https://jingyan.baidu.com/article/5bbb5a1bd059b913eba1791a.html excel表导入常见问题一：未在本地计算机上注册Microsoft.ACE. 阅读详情

用ASP写段程序，将数据导入到Excel里，
运行时提示错误：ActiveX 部件不能创建对象: 'Server.CreateObject'

错误代码是：Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")这句，这是怎么导致的，如何解决呢

...全文

了解随机振动疲劳分析中 Ansys nCode DesignLife 的平均应力校正通过选择静态环境，我们可以将其结果视为疲劳计算的平均应力，如图 3 所示，因此从静态偏移载荷工况中提取的平均应力用于转移预测雨流计数中所有循环的平均值。您可以通过观看下面的教学视频获得宝贵的见解，该视频将指导您完成利用 Ansys nCode DesignLife 分析平均应力对随机振动载荷下结构的影响的过程。它基于 R 比率或平均应力水平。另一方面，平均应力校正可以帮助消除平均应力的负面影响，提高结果的保真度。Ansys nCode 提供先进的平均应力校正技术，使工程师能够考虑平均应力对疲劳寿命的影响。阅读详情

Narcist

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

shenzhenNBA 2009-09-02

打赏
举报

出现的问题估计楼上的说了，估计服务器上没有安装对应的控件，

如下是将数据从MDB导出到EXCEL中，服务器需要安装EXCEL和FSO（FileSystemObject）对象（一般都会有的）：



<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

dim msg,exlFileName

msg=""

exlFileName="xExcelFileName"   '保存的EXCEL文件名，不含后缀，根据需要修改，

err.clear 



if exlFileName<>"" then

	dim acDBName,objDB,strConn

	acDBName="path/DateBaseName.mdb"   '根据你的需要修改

	strConn="DRIVER={microsoft access driver (*.mdb)};UID=;PWD=;DBQ="&server.MapPath(acDBName)

	set objDB=server.CreateObject("adodb.connection")

	objDB.open strConn

	

	dim objRS,qSQL

	qSQL="select * from xTable"  '你的表名，根据需要修改

	set objRS=server.CreateObject("adodb.recordset")

	objRS.open qSQL,objDB,1,1



	if objRS.bof and objRS.eof then

		msg="<font color=""red"">No data in ACCESS DB, and not create EXCEL file.</font>"

	else

		dim objFSO,objExcel,saveExlFileName,strTemp,tempA,i

		

		saveExlFileName=""

		saveExlFileName="Excels/"&exlFileName&year(now())	'可以使用程序生成保存的路径或文件夹

		if len(month(now()))<2 then

			saveExlFileName=saveExlFileName&"0"&month(now())

		else

			saveExlFileName=saveExlFileName&month(now())

		end if

		if len(day(now()))<2 then

			saveExlFileName=saveExlFileName&"0"&day(now())

		else

			saveExlFileName=saveExlFileName&day(now())

		end if

		if len(hour(now()))<2 then

			saveExlFileName=saveExlFileName&"0"&hour(now())

		else

			saveExlFileName=saveExlFileName&hour(now())

		end if

		if len(minute(now()))<2 then

			saveExlFileName=saveExlFileName&"0"&minute(now())

		else

			saveExlFileName=saveExlFileName&minute(now())

		end if

		saveExlFileName=saveExlFileName&".xls"

		

		on error resume next

		set objFSO=server.CreateObject("scripting.FileSystemObject")

		if objFSO.fileExists(server.MapPath(saveExlFileName)) then

			objFSO.deleteFile(server.MapPath(saveExlFileName))

		end if

		set objExcel=objFSO.createTextFile(server.MapPath(saveExlFileName),true,true)



		for i=0 to objRS.fields.count -1

			tempA=tempA & objRS.fields(i).name & chr(9)		

		next

		objExcel.write tempA & chr(13)		



		do while not objRS.eof

			tempA=""

			for i=0 to objRS.fields.count-1

				tempA=tempA & objRS.fields(i).value & chr(9)

			next

			objExcel.write tempA		

			objExcel.write chr(13)		

			objRS.movenext

		loop

		

		objExcel.close		

		set objExcel=nothing

		set objFSO=nothing	

		msg="ok"

	end if



	objRS.close				

	set objRS=nothing

	objDB.close

	set objDB=nothing

else

	msg="<font color=""red"">File name is empty and not create EXCEL file.</font>"

end if



if err.number<>0 then 

	response.Write "<br><font color=""red"">Error code:</font> " & err.number

	response.Write "<br><font color=""red"">Error description:</font> " & err.description 

	response.Write "<br><font color=""red"">Error source:</font> " & err.source 

end if

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>FSO建立并增加数据到EXCEL中</title>

</head>

<style type="text/css">

body,td,div,input,fieldset,textarea{font-family:Verdana; font-size:11px; color:#333333; font-weight:normal;}

a:link,a:visited{font-family:Verdana; font-size:11px; color:#333333; font-weight:normal; padding:0px 3px; line-height:20px; text-decoration:none;}

a:hover,a:active{font-family:Verdana; font-size:11px; color:#FF6600; font-weight:normal;}

span{font-family:Verdana; font-size:11px; color:red; font-weight:bold; padding-left:5px; margin:0px 10px;}

</style>

<body>

<p> </p>

<p>

<%

if msg="ok" then

	response.Write "<b>OK! EXCEL FILE CREATED:</b>"

	response.Write "<hr size=""1"" color=""#FF6600"">"

	response.Write "Click and download <a href=""" & saveExlFileName & """><b>" & saveExlFileName & "</b></a>"

else

	response.Write "<b>Tip:</b><br>" & msg 

end if

%>

</p>

</body>

</html>