asp操作EXCEL技术难题

[guofeng2008]

我已经可以往EXCEL里写数据 但是我不能控制写到哪一个格
程序如下:
希望大家给予完善
谢谢
Admin_Nav
Dim MailFso,MailObj,tt,kk
kk=year(now())&"-"&month(now())&"-"&day(now())&"-"&hour(now())&"-"&minute(now())&"-"&second(now())
tt="Excel"&"\"&kk&"-"&"Meter"
Set MailFso=Server.CreateObject("Scripting.FileSystemObject")
Set MailObj=MailFso.CreateTextFile(Server.MapPath(""&tt&".xls"),True)

select case request("action")
case "duo"
call duo()
Case Else
response.write "参数无效"
end select
Response.Redirect ""&tt&".xls"

Set MailFso=Nothing
set rs=nothing
set conn=nothing

sub duo()
dim startDate,endDate,Meter,Meter_n
startDate=request.form("startDate")
endDate=request.form("endDate")
Meter=request.form("Meter")
if Meter="" then response.write "请选择表记" end if
Meter_n=split(Meter,", ")
MailObj.Write chr(9)&chr(9)&chr(9)&chr(9)&"报表("&startDate&"到"&endDate&")"&VbCrlf
MailObj.Write "生成时间"&chr(9)&now()&VbCrlf

dim i,bb
for i=0 to ubound(Meter_n)

Sql="select * from [MeterTable] where MeterPhone='"&Meter_n(i)&"'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
bb=Meter_n(i)
else
bb=rs("MeterDiscr")
end if
MailObj.Write bb&chr(9)&chr(9)&chr(9)
MailObj.Write chr(9)
next
MailObj.Write VbCrlf
rs.close
set rs=nothing

for i=0 to ubound(Meter_n)
MailObj.Write "日期"&chr(9)&"表数"&chr(9)&"用量"&chr(9)
MailObj.Write chr(9)
next
MailObj.Write VbCrlf

dim riqi,biaoshu
for i=0 to ubound(Meter_n) step 1
Sql="select PhoneNum,HappenDate,SMSMode,MeterData,MeterStat from [MeterData] where PhoneNum='"&Meter_n(i)&"' and HappenDate >=#"&startDate&"# and HappenDate <=#"&endDate&"# "
set rs=conn.execute(sql)
if rs.eof and rs.bof then
else
dim output,s_B,liang
S_B=0
do while not rs.eof
riqi=rs("HappenDate")
biaoshu=rs("MeterData")
liang=biaoshu-S_B
S_B=biaoshu
output=riqi&chr(9)&biaoshu&chr(9)&liang&chr(9)
rs.movenext
MailObj.Write output&VbCrlf
loop
end if
rs.close
set rs=nothing
next
end sub

[Rockjok]

在Excel中录入数据非常麻烦，要根据A1：B2这样的格式去找格子录入....建议还是用ACCESS吧..

[guofeng2008]

我这个写法只能一个一个的往下写怎么回过头来再写

[loveme820]

给你个JAVASCRIPT的参考下：
function AutomateExcel()
{
//首先判断客户端是否存在模板：缺省存放于c:\download
var mytdObj = document.getElementById('tabshow');
//检测模板是否与服务器的一致
CheckExcelTemp("temp_bdz1.xls","<%=mytempfilename%>",mytdObj)

var oXL = new ActiveXObject("Excel.Application");
//var oWB = oXL.Workbooks.Add();
var oWB = oXL.WorkBooks.Open("c:\\download\\temp_bdz1.xls");
var oSheet = oWB.ActiveSheet;
// var table = document.all.data;
// var rows = table.rows.length;

// var cols = table.rows(0).cells.length;

// for (i=0;i<rows;i++)
// {
// for (j=0;j<cols;j++)
// {
//oSheet.Cells(i+1,j+1).Value = table.rows(i).cells(j).innerText;
//oSheet.Cells(1,3).Value = "<%=bdzmc%>";
oSheet.Range("BDZMC").value="<%=bdzmc%>";


if (mytdObj!=null)
{
var myhtml="<img src='../images/p2.gif' width='18' height='18'> 导出成功！文件临时生成在“c:\\download\\”目录下，建议您根据需要保存到其他目录！导出的文档已经打开！"
mytdObj.innerHTML = myhtml;
}

//}
// }
oXL.Visible = true;
oXL.UserControl = true;
//oXL.Quit();
//oXL = null;
//set oXL=noting;

}

[guofeng2008]

谢谢你
我先看一下

[guofeng2008]

老兄你给的例子好象不大行

[guofeng2008]

我想知道的事 如何使用ASP利用excel的模板生成excel文件

[loveme820]

你看仔细了，我的是用Javascript，是通过模版来操作的。呵呵。

[yeetoo]

其实你可以在服务器上装个excel,然后在asp中也能用Excel.Application对象, 和JavaScript的那个用法仅有语法的区别.不要搞得太复杂了.

[loveme820]

另，我的代码是用于参考的，你可不能照搬。里面有函数，和变量，你的页面又没有，呵呵，去掉就好了。

[rgwfeng2]

good