用asp往excel写数据的问题~~

[godblessyU]

代码如下：
FilePath = Server.Mappath(".") & "\report\部品一览表.xls"
set objExcelApp = Server.CreateObject("Excel.Application")
objExcelApp.WorkBooks.Open( FilePath )
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheet = objExcelBook.Sheets(1)

objExcelApp.Visible = true

'******将表头信息写入报表中
objExcelSheet.Range("D4") = m_JobSub
objExcelSheet.Range("L4") = m_Title
objExcelSheet.Range("U4") = ItemNo_Count
objExcelSheet.Range("AC4") = ItemNo_Done_Count
objExcelSheet.Range("AG4") = ItemNO_Percent
objExcelSheet.Range("D7") = m_Product_Name
objExcelSheet.Range("L7") = m_Project_Name
objExcelSheet.Range("AC7") = m_Product
'******End

lIntCurrentRow = 14

'***** 表格格式化 *****
m_Count = Rs.recordCount
If m_Count > 10 Then
For i = 0 To int( m_Count/10 ) -1
objExcelSheet.Rows("14:43").Select '****这行出错
objExcelApp.Selection.Copy
objExcelSheet.Rows( i * 30 + 44 & ":" & ( i + 1 ) * 30 + 43 ).Select
objExcelApp.Selection.PasteSpecial -4122,-4142,False,False
objExcelApp.Application.CutCopyMode = False
Next
End If

错误提示：
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft Excel 错误 '800a03ec'

类 Range 的 Select 方法无效

[godblessyU]

To liuxiaoyi666:
我录宏后的代码如下：
Sub 宏1()
'
' 宏1 Macro
' smart 记录的宏 2004-9-28
'

'
Rows("2:8").Select
Selection.Copy
End Sub

[godblessyU]

To whnnet:
不知道你说的那种方法有没有示例~~

[godblessyU]

怎么没人理啊~~

[Clove]

Range没有SELECT属性
Range 对象的 Cells 属性

Range 对象的 Columns 属性

Range 对象的 CurrentRegion 属性

Range 对象的 EntireColumn 属性

Range 对象的 EntireRow 属性

Range 对象的 Find 方法

Range 对象的 Item 属性

Range 对象的 MergeArea 属性

Range 对象的 Offset 方法

Range 对象的 Range 属性

Range 对象的 Rows 属性
只有这几个

[godblessyU]

可是我用的是Rows属性啊，怎么会报Range 对象出错呢，而且有时候会好用，有时间不好用。objExcelSheet.Rows("14:43").Select '****这行出错

[ren791123]

你不能直接些入ROWS，你用objExcelSheet.Cells(n + 1, 2) = "" 就可以 了

[hfkj]

看看这个会对你有帮助的
<%
set rs=server.createobject("adodb.recordset")
sql="select * from provinceinfo where 1=1"
rs.open sql,objconn,1,1
Set ExcelApp =CreateObject("Excel.Application")
ExcelApp.Application.Visible = True
Set ExcelBook = ExcelApp.Workbooks.Add

ExcelBook.WorkSheets(1).cells(1,1).value ="用户表"
ExcelBook.WorkSheets(1).cells(2,1).value = "用户编号"
ExcelBook.WorkSheets(1).cells(2,2).value = "登陆名"
ExcelBook.WorkSheets(1).cells(2,3).value = "真实姓名"
ExcelBook.WorkSheets(1).cells(2,4).value = "密码"
cnt =3
do while not rs.eof
ExcelBook.WorkSheets(1).cells(cnt,1).value = rs("provinceid")
ExcelBook.WorkSheets(1).cells(cnt,2).value = rs("province")
ExcelBook.WorkSheets(1).cells(cnt,3).value = rs("flag")
ExcelBook.WorkSheets(1).cells(cnt,4).value = rs("id")
rs.movenext
cnt = cint(cnt) + 1
loop

Excelbook.SaveAs "d:\yourfile.xls"
ExcelApp.Application.Quit
Set ExcelApp = Nothing
%>

[godblessyU]

我要选中行14到行43，不用我那种写法，还有别的写法吗？？？我用Range(A14:A:43)也不好用

[笨笨兔兔兔兔兔]

range对象的range方法
rows是选中一行而已

[whnnet]

其实不用这么复杂，把contentType设置为excel即可用html表格输出的

[godblessyU]

哎，我只要操作副本就OK了，也不知道是什么原因。
最后我还是改到客户端调用了～～