Excel 在looprange内将PDF导出转换为xlsm

我有一个有趣的问题，我正在尝试使looprange生效，在循环到下一个数据点之前，它将保存工作表的副本。有没有人有过这样的经验，当我尝试进行更改时，会导致代码底部的下一条语句出现问题

''' 次级方案1（）

Dim rngLoopRange As范围 将摘要设置为工作表 将rngDealers设置为工作表

设置wsSummary=工作表（“PL”）

对于工作表（“辅助”）范围（“A1:A38”）中的每个RNGLOOP范围 wsSummary.Range（“C12”）.Value=rngloorange.Value

Application.Run "TM1REFRESH"

Dim wb As Workbook
Set wb = Workbooks.Add
wb.SaveAs ThisWorkbook.Path & "\" & Range("C12")
ws.Copy before = wb.Worksheets(1)

下一个rngLoopRange

设置wsSummary=Nothing

MsgBox "Complete!", vbInformation

端接头

---

“'

“问题”？你收到错误信息了吗？这是怎么一回事？你能把循环的开始也包括进去吗？当出现错误时，您可能还希望包含变量/范围的确切值。我只是尝试获取pdf导出的替换代码，并将其替换为“另存工作表为新工作簿”，而不会导致下一个代码出现问题。那么，您可能应该解释问题是什么……只是得到一个“下一个无for”错误当我用一些保存代码替换它时是的，这是我的观点。。。您的问题中没有与之匹配的

For

语句，因此，如果您使用的代码都是这些，那么它将不起作用。