excel表格汇总问题！各位大哥大姐帮帮忙吧！

[任老先生]

我想用excel实现一个功能！
几个单位填写表格最后能把他们的相应处的值加在一起，实现统计功能！
每个单位还能调出自己的表格可以修改
如果写字段需要1500左右，
请各位大哥大姐帮帮忙吧！最好有个例子或代码谢谢了！

[任老先生]

不会吧~没人能解答

[zcwmxn]

帖子发错位置了！
应该到 软件使用/操作系统 Office使用
应该是用宏定义操作，可是偶也不太懂

[超级大笨狼]

发到这里也没错啊，ASP可以生成excel,也许比宏定义操作方便啊！

[任老先生]

各位我该怎么做！给点提示！

[007james]

我的列子，没问题的，参考下：
<%
Set cnXLS = CreateObject("ADODB.Connection")
'cnXLS.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=server.MapPath(""/asp/book1.xls"");Extended Properties=""Excel 8.0;HDR=NO;"""
cnXLS.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\ECW\\access\\book1.xls;Extended Properties=""Excel 8.0;HDR=NO;"""

dim sqlXLS
sqlXLS="Select * From [Sheet1$]"
Set rstXLS = CreateObject("ADODB.Recordset")
rstXLS.Open sqlXLS,cnXLS
do while not rstXLS.eof

Set Rs1=Server.CreateObject("ADODB.Recordset")
On Error Resume Next
'Sql="Select * From Business Where id Is Null"
'Rs1.Open Sql,Conn,1,3
'Rs1.AddNew
'Rs1("name") = rstXLS.fields(1)
'Rs1("company") = rstXLS.fields(2)
'Rs1("phone") = rstXLS.fields(3)
'Rs1.Update
Sql = "Insert Into Business(name,company,phone) Values("
Sql = Sql&"'"& rstXLS.fields(1) & "','" & rstXLS.fields(2) & "','" & rstXLS.fields(3) & "')"
conn.execute Sql

rstXLS.movenext
loop
%>

[007james]

http://expert.csdn.net/Expert/topic/2301/2301258.xml?temp=.356106

dim i,j,k
On Error Resume Next
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.Workbooks.Open("e:\web\jianzhu\shengchan.xls") '打开Excel模板
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
i=1
for each x in rs.fields
objExcelSheet.cells(5,i).value= x.name
i=i+1
next


k=1
j=5
while not rs.eof
for each x in rs.fields
objExcelSheet.cells(j+1,k).value=x.value
k=k+1
next
k=1
rs.movenext
j=j+1
wend
objExcelBook.Save
objExcelApp.Quit
set objExceApp=Nothing
set rs=nothing
rs.Close

在我机子上运行成功！
也希望你能成功！
呵呵


利用上面的读和写就可以实现你要的东东了