[已解决]VB新建EXCEL表格出错。

事后诸葛亮

Private Sub Command3_Click()
    Dim MyXlsApp As Object
    Dim objXLSBook As Object
     Dim xlsheet  As Object
    Set MyXlsApp = CreateObject("Excel.Application")
    Set objXLSBook = MyXlsApp.Workbooks.Add
    MyXlsApp.Visible = True
   
    Set xlsheet = MyXlsApp.worksheets '打开EXCEL工作表
    xlsheet.Activate '激活工作表
    xlsheet.Cells(1, 1) = "abc"
End Sub




请问 如何修改代码，可以在新建的EXCEL表格中赋值。
谢谢了

最佳答案

月排行榜 / 总排行榜

suye1010

2013-7-23 21:37

Set xlsheet = MyXlsApp.worksheets '打开EXCEL工作表
这个语句是把Xlsheet赋值了一个集合对象,包含了工作薄中所有的工作表
    xlsheet.Activate '激活工作表
而工作表的激活只能针对单个的工作表来运行,所以报错.

跳转到最佳答案楼层

hwc2ycy

调试，看看是不是对象弄错了。

事后诸葛亮

hwc2ycy 发表于 2013-7-23 20:14
调试，看看是不是对象弄错了。

就是高度不出来呢。。郁闷  或者说不会调试

suye1010

Set xlsheet = MyXlsApp.worksheets '打开EXCEL工作表
这个语句是把Xlsheet赋值了一个集合对象,包含了工作薄中所有的工作表
    xlsheet.Activate '激活工作表
而工作表的激活只能针对单个的工作表来运行,所以报错.

事后诸葛亮

顶起来 俺是菜鸟 很多东西 自己写不出来 但是能看懂。呵呵。谢谢了。请各位过路的老师帮忙。

adders

事后诸葛亮 发表于 2013-7-23 19:13
顶起来 俺是菜鸟 很多东西 自己写不出来 但是能看懂。呵呵。谢谢了。请各位过路的老师帮忙。

4楼不是说了原因了嘛.

Set xlsheet = MyXlsApp.worksheets

改成

Set xlsheet = MyXlsApp.worksheets(1)

事后诸葛亮

adders 发表于 2013-7-24 09:14
4楼不是说了原因了嘛.

Set xlsheet = MyXlsApp.worksheets

谢谢你的提醒。呵呵 谢谢