帮忙看一下一段简短的代码

pcbabao 2011-07-26 04:49:19
Dim myapp As New Excel.Application()
Dim xlsbook1 As Excel.Workbook
xlsbook1 = myapp.Workbooks.Open("E:\2008.xls")
Dim xlssheet1 As Excel.Worksheet
xlssheet1 = xlsbook1.Sheets(1)
xlssheet1.Cells(1, 2) = "ok"
With xlssheet1
.Cells(1, 1) = "测试"
End With
xlsbook1.Save()
xlsbook1.Close()
xlsbook1 = Nothing
以上代码中

xlssheet1 的值是怎么输到xlsbook1 中的啊?

xlssheet1 = xlsbook1.Sheets(1) 后不需要 xlsbook1.Sheets(1)=xlssheet1

就能过去了?


...全文
47 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
fsh1985 2011-07-27
  • 打赏
  • 举报
回复
顶 顶 顶 顶 顶 顶 顶
呵呵林 2011-07-27
  • 打赏
  • 举报
回复
xlsbook1 相当于宏中的thisworkbook
xlssheet1 = xlsbook1.Sheets(1) 选中索引为1的sheet页

xlssheet1.Cells(1, 2) 选中单元格
= "ok" 赋值


xlssheet1 = xlsbook1.Sheets(1) 后 此时已经选中sheets(1)
所以不需要 xlsbook1.Sheets(1)=xlssheet1,也没有这个用法。
如果你还想编集sheets(2)那么 xlssheet2 = xlsbook1.Sheets(2)

xlssheet2.Cells(1, 2)="测试" 就可以了。

pcbabao 2011-07-27
  • 打赏
  • 举报
回复
自己顶一下,

16,550

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧