asp将xlxs 和 xls 导入access

[99percent]

myConn_Xsl = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & source1 & ";Extended Properties=Excel 12.0"
xlsconn.open myConn_Xsl

sql="select * from [江门项目推介汇总表$]"
set rs=xlsconn.execute(sql)
if not rs.eof then
while not rs.eof
hyid=rs("序号")
xmcs=rs("项目权属")
xmmc=rs("项目名称")
xmjj=rs("项目简介")
hzfs=rs("合作方式")
xmtzze=rs("项目投资总额（万元）")
xmdw=rs("项目单位")
lxms_lxw=rs("联系方式1")
lxms_dh=rs("联系方式2")
fl=rs("分类")

sql="insert into [hyclub_xls](hynumber,hyid,xmcs,xmmc,[xmjj],hzfs,xmtzze,xmdw,lxms_lxw,lxms_dh,fl,addtime,lyyq) values("& hyid &","& hyid &",'"& xmcs &"','"& xmmc &"','"& xmjj &"','"& hzfs &"','"& xmtzze &"','"& xmdw &"','"& lxms_lxw &"','"& lxms_dh &"','"& fl &"','"& date() &"','"& date() &"')"
conn.execute(sql)

rs.movenext
wend

end if
response.write "导入成功"

==============================================================
上面代码，在导入xls过程中，有些内容导不进。

[99percent]

100条导入12条的时候上面有些字段就导不进，我删除了一部分就能导进去，但导到13条又不能导，也要删除部分。我access此字段用备注型。

[hookee]

不要用sql拼接的方式插入，用recordset的addNew方法插入数据，可以避免特殊字符。

[99percent]

<!--#include file="conn.asp"-->
<%

dim s,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("2018918.xls")
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if

'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
Set rs = Server.CreateObject("ADODB.Recordset") '--从数据库中把你想放到EXCEL中的数据查出来
sql = "select * from [hyclub] order by hyid desc"

'sql = "select teacher_Name,teacher_use_time,teacher_use_class,teacher_use_snumber,teacher_use_jc,teacher_use_ctitle,teacher_use_couse from teacher_use_table order by teacher_use_ID desc"
rs.Open sql,conn
StartTime = Request("StartTime")
EndTime = Request("EndTime")
StartEndTime = "AddTime between #"& StartTime &" 00:00:00# and #"& EndTime &" 23:59:59#"

strsql = "select hyid,xmcs,xmmc,xmjj,hzfs,xmtzze,xmdw,lxms_lxw,lxms_dh,fl from [hyclub] order by hyid desc"
'strSql = "select teacher_Name,teacher_use_time,teacher_use_class,teacher_use_snumber,teacher_use_jc,teacher_use_ctitle,teacher_use_couse from teacher_use_table"
Set rstData =conn.execute(strSql)
if not rstData.EOF and not rstData.BOF then
dim trLine,responsestr
strLine=""
strLine = strLine & "序号" & chr(9)
strLine = strLine & "项目权属" & chr(9)
strLine = strLine & "项目名称" & chr(9)
strLine = strLine & "项目简介" & chr(9)
strLine = strLine & "合作方式" & chr(9)
strLine = strLine & "项目投资总额" & chr(9)
strLine = strLine & "项目单位" & chr(9)
strLine = strLine & "联系人" & chr(9)
strLine = strLine & "联系方式" & chr(9)
strLine = strLine & "分类" & chr(9)

'--将表的列名先写入EXCEL
myfile.writeline strLine
Do while Not rstData.EOF
strLine=""
'============如何定义列宽和文字不爆格=========================
for each x in rstData.Fields
strLine = strLine & x.value & chr(9)
next
'=====================================
myfile.writeline strLine
rstData.MoveNext
loop
end if
Response.Write "<br>    生成EXCEL文件成功，点击<a href=""2018918.xls"" target=""_blank"">下载</a>～"
rstData.Close
set rstData = nothing
Conn.Close
Set Conn = nothing
%>

[99percent]

我上面的红色标记那儿的意思是，单元格里的内容自动换行。怎么样弄呢？

[99percent]

引用 2 楼 hookee 的回复:

不要用sql拼接的方式插入，用recordset的addNew方法插入数据，可以避免特殊字符。

你好.已改用addnew,导入的数据单元格文字多的就只能导进了一半.其它的没问题.就是说缺少文字.