vb+excel 急,,,送分了,,,

sbg 2004-05-05 12:24:20
win98 + office xp + vb6.0
1 set sheet=excel.app.activesheet
2 sheet.cells(x,y)=text1.text
往cells里写数据
运行时提示自动化错误~!调试,2行有错误
...全文
39 5 打赏 收藏 举报
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
leolan 2004-05-05
試試 set sheet=activesheet
  • 打赏
  • 举报
回复
sunrainzh 2004-05-05
  • 打赏
  • 举报
回复
yinweihong 2004-05-05
更正:
原型:ThisWorkbook.Worksheets(3).Activate
→ xlsbook.worksheets("sheet").activate
  • 打赏
  • 举报
回复
yinweihong 2004-05-05
1.要让sheet为当前活动??
xlsbook.select(sheet)
xlsbook是工作簿对象

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

  • 打赏
  • 举报
回复
hewei2003 2004-05-05
引用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
  • 打赏
  • 举报
回复
发帖
数据库(包含打印,安装,报表)

1203

社区成员

VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
帖子事件
创建了帖子
2004-05-05 12:24
社区公告
暂无公告