vb+excel

sbg 2004-05-05 11:55:53
win98 + office xp + vb6.0
1 set sheet=excel.app.activesheet
2 sheet.cells(x,y)=text1.text
往cells里写数据
运行时提示自动化错误~!调试,2行有错误
...全文
61 2 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
suntt 2004-05-05
Private Sub Command1_Click()

Dim XlsApp As Excel.Application
Dim xlbook As Excel.Workbook
Dim Sheet As Excel.Worksheet
Dim str(3) As String
Set XlsApp = New Excel.Application
XlsApp.Visible = True
Set xlbook = XlsApp.Workbooks.Add
Set Sheet = xlbook.Worksheets(1)
Sheet.Cells(5, 5) = "abc"

End Sub

注意要引用“Microsoft Excel 9.0 Object Library”
  • 打赏
  • 举报
回复
sbg 2004-05-05
快点给我答案,追加200分!!!郁闷中,,,,
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库(包含打印,安装,报表)

1200

社区成员

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