[已解决]工作表引用问题求助

wenzili

刚学习VBA，求教：
工作表代码名称为sheet1,名称也是sheet1,第一个工作表
ThisWorkbook.Sheet1.Rows(1).Copy ActiveSheet.Range("a1")，提示编译错误，方法和数据成员未找到。
修改为ThisWorkbook.Sheets(1).Rows(1).Copy ActiveSheet.Range("a1")，
或      ThisWorkbook.（“Sheet1”）.Rows(1).Copy ActiveSheet.Range("a1")，
后编译通过。
用工作表代码引用有什么特殊规定？为何会编译不通过。

最佳答案

月排行榜 / 总排行榜

爱疯

2017-3-1 21:35

ThisWorkbook完整写法是Application.ThisWorkbook，代表一个Workbook对象
因为Workbook对象的成员中有Sheet属性，所以ThisWorkbook.Sheets代表一个Sheets集合
集合里的元素只有两种表示方式：索引、名称
ThisWorkbook.Sheets(1)
ThisWorkbook.Sheets("Sheet1")
ThisWorkbook.Sheet1，为什么报错？因为集合元素的表示方式，只两种。





生物
  |-- 植物
  |-- 动物
       |-- 猫科
       |-- 犬科



生物
  |-- 植物
  |-- 动物
       |-- 猫科
       |-- 小白(小白是只狗)



显然，后者不合适。
Workbook 对象成员也是如此，并不存在成员Sheet1（某个具体工作表）。


PS：至于为什么集合里的元素只有两种表示方式？我觉着对，还没想到咋证明

跳转到最佳答案楼层

wenzili

更正：是修改为
ThisWorkbook(1).Rows(1).Copy ActiveSheet.Range("a1")，
及
ThisWorkbook("Sheet1").Rows(1).Copy ActiveSheet.Range("a1")，
编译通过

ilovelittle

sheet1，这个是codename
ThisWorkbook.Sheet1。。这么写的话就是从属关系，事实上他们可能是同级，不是从属关系，所以错了。
应该改成
sheet1.rows(1).copy activesheet.range("a1")
这样就可以了

wenzili

workbooks 是工作簿，worksheets 是工作表，不是一个级别的呀。
原帖子写错了，应该是改为
ThisWorkbook.worksheets(1).Rows(1).Copy ActiveSheet.Range("a1")，
及
ThisWorkbook.worksheets("Sheet1").Rows(1).Copy ActiveSheet.Range("a1")，
编译通过

ilovelittle

我也看错了，上面我修改过了，就关于sheet1的。

望帝春心

ThisWorkbook.Sheet1.....这个写法是错的

爱疯

ThisWorkbook完整写法是Application.ThisWorkbook，代表一个Workbook对象
因为Workbook对象的成员中有Sheet属性，所以ThisWorkbook.Sheets代表一个Sheets集合
集合里的元素只有两种表示方式：索引、名称
ThisWorkbook.Sheets(1)
ThisWorkbook.Sheets("Sheet1")
ThisWorkbook.Sheet1，为什么报错？因为集合元素的表示方式，只两种。





生物
  |-- 植物
  |-- 动物
       |-- 猫科
       |-- 犬科



生物
  |-- 植物
  |-- 动物
       |-- 猫科
       |-- 小白(小白是只狗)



显然，后者不合适。
Workbook 对象成员也是如此，并不存在成员Sheet1（某个具体工作表）。


PS：至于为什么集合里的元素只有两种表示方式？我觉着对，还没想到咋证明