不知道時哪里出了問題，請教大神幫忙修改，致謝！
------------------------------------------------------------------------------------
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
uj5u.com熱心網友回復：
好像是path=“c:\我的檔案” str=“666.xls” 結果是 c:\我的檔案666.xls或者SAVEAS應該應用于SHEETS
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/280796.html
標籤：VBA