vba - AutoFilter.Range.Copy 不工作
问题描述
我正在尝试使用 AutoFilter 过滤一个工作表,然后使用 AutoFilter.Range.Copy 将过滤后的内容复制到另一个工作表。但是,当我运行代码时,会弹出一条错误消息说
未设置对象变量或 With 块变量。
我的代码如下:
Sub Macro_CreateNewSheet()
Application.ScreenUpdating = False
Dim report As Workbook
Set report = ActiveWorkbook
NowMonth = MonthName(Month(Now), True)
Nowday = Day(Now)
Set rp = report.Sheets.Add(After:=Worksheets(Worksheets.Count),
Type:=xlWorksheet)
rp.Name = NowMonth & " " & (Nowday - 6) & "-" & Nowday
Dim origin As Workbook
Set origin = Workbooks.Open("My Directory")
Dim StartDate As String, EndDate As String
EndDate = Format(Date, "mm/dd/yy")
StartDate = Format(DateAdd("d", -6, EndDate), "mm/dd/yy")
Set WS1 = origin.Worksheets("ABS")
Set cl = report.Worksheets("Calculation")
With WS1
.Range("A1").CurrentRegion.Sort key1:=.Range("A1"), order1:=xlAscending, Header:=xlYes
.Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:=">=" & StartDate, Operator:=xlAnd, Criteria2:="<=" & EndDate
.AutoFilter.Range.Copy cl.Cells(1, 1)
.ShowAllData
End With
End Sub
当我尝试调试错误时,突出显示的句子是
.AutoFilter.Range.Copy cl.Cells(1, 1)
我对VBA不是很熟悉,请帮我解决这里的问题。
谢谢大家。
解决方案
推荐阅读
- javascript - Javascript流到文件
- javascript - CSS - 删除高度时图像消失
- python - 如何更改数据框中的列的类?
- c - 如果文件已经打开,fopen 是否返回 NULL 指针?
- fullcalendar - 如何避免 Fullcalendar 逆背景中的累积图层颜色
- node.js - 在 Ubuntu 16.04 上安装 npm 的问题
- vue.js - Vue.js 重新渲染静态内容
- css - 如何制作响应式侧边栏
- ios - UIcollectionview 的单元格项目隐藏甚至没有出队
- reactjs - onMessage 道具未在 React Native webview 中调用