[已解决]这段代码出错的原因是什么

dada8877

Sub text1()
  Dim wb As Workbooks
  wb = ThisWorkbook
  wb.Sheets(1).Range("A1") = 200
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2015-4-28 09:36

错误1：thisworkbook是 Workbook 对象，不是Workbooks 对象
错误2：将对象引用赋给变量或属性时，要用Set 语句。



Sub text1()
  Dim wb As Workbook
  Set wb = ThisWorkbook
  wb.Sheets(1).Range("A1") = 200
End Sub

跳转到最佳答案楼层

Excel学徒123

Sub text1()
  Dim wb As Workbook
  set wb = ActiveWorkbook
  wb.Sheets(1).Range("A1") = 200
End Sub

橘子红

Sub text1()
  Dim wb As Workbooks
  ThisWorkbook.Sheets(1).Range("A1") = 200
End Sub

直接这样就行了.

爱疯

错误1：thisworkbook是 Workbook 对象，不是Workbooks 对象
错误2：将对象引用赋给变量或属性时，要用Set 语句。



Sub text1()
  Dim wb As Workbook
  Set wb = ThisWorkbook
  wb.Sheets(1).Range("A1") = 200
End Sub

Excel学徒123

橘子红 发表于 2015-4-28 09:36
Sub text1()
  Dim wb As Workbooks
  ThisWorkbook.Sheets(1).Range("A1") = 200

对象啊，二橘子