vb+excel 急，，，送分了，，，

[sbg]

win98 + office xp + vb6.0
1 set sheet=excel.app.activesheet
2 sheet.cells(x,y)=text1.text
往cells里写数据
运行时提示自动化错误~！调试，2行有错误

[hewei2003]

引用Excel类库

Dim VBExcel As Excel.Application '定义Excel服务器应用程序
Dim ExcelBook As Excel.Workbook '定义Excel工作簿对象
Dim ExcelSheet As Excel.Worksheet '定义Excel工作表对象

Set VBExcel = CreateObject("Excel.Application") '创建一个Excel应用程序
VBExcel.Visible = True '可见
Set ExcelBook = VBExcel.Workbooks.Add '添加Excel工作簿
Set ExcelSheet = ExcelBook.Worksheets("Sheet1") '添加工作表

'指定Excel表的列宽
ExcelSheet.Columns.ColumnWidth = 13

'表头
ExcelSheet.Cells(1, 1).Value = "这是表头"

下面是我添加单元格的例子
'添加值
With rs
Dim j, k As Long 'i代表行，j代表列
For j = 1 To .RecordCount
ExcelSheet.Cells(j + 1, 2).Value = .Fields(0).Value
For k = 1 To .Fields.Count - 1
ExcelSheet.Cells(j + 1, k + 2).Value = .Fields(k).Value
Next k

.MoveNext
If .EOF Then
Exit Sub
End If
Next j
End With

[yinweihong]

1.要让sheet为当前活动？？
xlsbook.select(sheet)
xlsbook是工作簿对象

2.cell(x,y)赋值？？
sheet(x,y).value=text1.text

[yinweihong]

更正：
原型：ThisWorkbook.Worksheets(3).Activate
→ xlsbook.worksheets("sheet").activate

[sunrainzh]

对

[leolan]

試試 set sheet=activesheet