求大神修改如下EXCEL VBA代码

Question

Sub 日报表()
a = Format(Date - 1, "m.d")
b = Format(Date - 1, "m-d")
Dim rbb As Workbook
Set rbb = Workbooks("2015年8月日报表.xlsm")
Set kybb = Workbooks(a & "空运日报表.xls")
rbb.Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = a1
p = kybb.Sheets("浦东").Range("a65536").End(xlUp).Row
kybb.Sheets("浦东").Range("c4:c" & p).Copy rbb.Sheets(b).Range("c2")

End Sub

Answer 1

请问哪里需要修改？

Answer 2

ActiveSheet.Name = a1 改为 ActiveSheet.Name = Range("a1")追问

A1写写错了 应该是b
ActiveSheet.Name = a1 改为 ActiveSheet.Name =b （新建工作表并命名为当天日期）
就是运行时错误 Set rbb = Workbooks("2015年8月日报表.xlsm") 这一步就错误了
Set kybb = Workbooks(a & "空运日报表.xls")

追答

是不是 2015年8月日报表.xlsm 没打开？

Answer 3

错误提示是什么啊？追问

不好意思 我名字搞错了 现在行了