尝试引用工作表会产生"运行时错误1004"

时间:2015-10-19 14:36:18

标签: excel vba excel-vba reference

我只是想选择一个列,以便我可以更改日期格式。我不知道为什么,但是我的代码在我尝试引用该列所在的表单时给了我一个巨大的问题。但是我不能理解的是,在我的代码中我多次提到我成功引用了表单。没有问题。

有没有人见过这个?
VBA忘记了我定义和设置我的变量了吗?

以下是我的代码示例:

Dim wbPrescrub As Workbook, wsPrescrub As Worksheet
Set wbPrescrub = ThisWorkbook
Set wsPrescrub = wbPrescrub.Sheets("PreScrub")
wsPrescrub.Range("A1").AutoFilter Field:=5, Criteria1:=(""), _
     Operator:=xlFilterValues
wsPrescrub.Range("E2:E" & pslastRow).SpecialCells    (xlCellTypeBlanks).EntireRow.Delete

wsPrescrub.AutoFilterMode = False


wsPrescrub.Columns("F:F").EntireColumn.AutoFit



wsPrescrub.Columns("F:F").Select
Selection.NumberFormat = "mm/dd/yyyy"

我包含了我的代码行,工作正常,最后两行给我带来了麻烦。我无法超越wsPrescrub.Columns行。如果我在不引用工作表的情况下运行代码,它在ActiveSheet上完全正常工作并正确选择列和格式。但是第二个我添加了什么表来看我得到:

  

运行时错误1004:应用程序定义或对象定义错误

0 个答案:

没有答案