运行时错误，方法SaveAs作用于Workbook时失败

[黑 . 白 . 灰]

不知道时哪里出了问题，请教大神帮忙修改，致谢！
------------------------------------------------------------------------------------
Sub 宏1()
Dim i%, k As String, j As String, path As String, str As String, ca1 As String

path = "E:\JGY高速TJ9\路基台涵背-压实度\压实度资料\台涵96\Q1" & "\" '选择保存路径
k = InputBox("选择开始行")
j = InputBox("选择结束行")
For i = k To j
Sheets("报告").Cells(k, 15) = Sheets("台账").Cells(i + 1, 3)
str = Sheets("报告").Cells(k, 15) & ".xlsx"
Worksheets(Array("报告", "记录")).Copy '复制报告和记录
ca1 = 1
Do
Application.Calculation = xlCalculationAutomatic '工作簿自动计算
ca1 = ca1 + 1
Loop While ca1 <= 7 '设定终止循环条件

Sheets("记录").Select
Range("A11:U22") = Range("A11:U22").Value


ActiveWorkbook.SaveAs Filename:=path & str
ActiveWorkbook.Close SaveChanges:=True

Next i
MsgBox ("共" & j - k + 1 & "份报告")
End Sub

[不懂别说哎]

好像是path=“c:\我的文档” str=“666.xls” 结果是 c:\我的文档666.xls 或者SAVEAS应该应用于SHEETS