尊敬的各位大人们,能不能用ASP的组建实现excel的大量数据直接导入 word并实现一定的改版与排序,?或者把SQL数据库中数据导入到WORD中,如何解决?请各位大人给我指明大的方向!!!

具体我不清楚怎么做
我想可以用“File Access 组件”写文件的方法
先从数据库中读出数据
再写入.doc文件
我想这样应该可以吧，但没做过

<!--#include file ="conn.asp"--> <% sql="select * from news order by date desc" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1

set fso=server.CreateObject("scripting.filesystemobject") path=server.MapPath("./") set docfile=fso.createTextFile(path&"\data.doc")

while not rs.eof title=rs("title") content=rs("content") author=rs("author") datetime=rs("date") docfile.writeLine(title) '写入一字符串和换行符,如果没有title，就只写入换行符 docfile.writeLine(content) docfile.writeLine(author) docfile.writeLine(datetime) rs.movenext wend docfile.close '注意，我这样做打开DOC文档时要我选择编码，选择WINDOWS默认（即简体中文）就行 %>

我曾实现过把数据库里的信息直接导到WORD里面

<% Response.ContentType = "application/msword" %> <%

Dim Fso,FileExt,strFilePath,Mime strFilePath = "c:\a.doc" Set Fso=Server.CreateObject("Scripting.FileSystemObject") FileExt = Fso.GetExtensionName(strFilePath) Set fso=Nothing

Select Case FileExt Case "doc" Mime="Application/msword" Case "xls" Mime="Application/msexcel" End Select

Call OutPut(strFilePath,Mime)

'###################################################### Function OutPut(strFilePath,Mime) Response.ContentType = Mime Const adTypeBinary = 1 Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary objStream.LoadFromFile strFilePath Response.BinaryWrite objStream.Read objStream.Close Set objStream = Nothing End Function '###################################################### %> 把上面的信息拷贝到你的ASP页面中，然后在C盘下新建一个 "a.doc" 的文件，这样就可以实现了

你这是什么代码??
好象不对吧???????

因为我写过的，用到代码啊