|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
需求是一张表的指定数据复制到总表里,指定区域用Range(Cells(3, "i"), Cells(3, "j"))来表示了,数据i,j列来定位,行是固定的,运行这段 代码报错( wb1.Sheets("CCBU运营指标(日) ").Range(Cells(3, "i"), Cells(3, "j")).Copy target.Sheets("CCBU运营指标(日) ").Range(Cells(3, "i"), Cells(3, "j"))) 对象定义报错,有人帮忙改改吗?
Sub test()
Dim i As String
Dim j As String
Dim p$
p = InputBox("请输入文件名称", "ccbu4")
i = InputBox("请输入列数数字编号")
j = InputBox("请输入列数数字编号")
Set wb1 = Workbooks.Open(ThisWorkbook.Path & "\" & p)
Dim target As Workbook
Set target = Workbooks("总表CCBU4&CCBU5交付效率指标跟进表(11月27日).xlsm")
wb1.Sheets("CCBU运营指标(日) ").Range(Cells(3, "i"), Cells(3, "j")).Copy target.Sheets("CCBU运营指标(日) ").Range(Cells(3, "i"), Cells(3, "j"))
Set wb1 = Nothing
Set target = Nothing
End Sub
|
|