Преобразование экспорта PDF в xlsm внутри looprange - PullRequest
0 голосов
/ 27 января 2020

У меня есть интересная проблема, в которой я пытаюсь задействовать петлевый диапазон, и перед циклом к ​​следующей точке данных он сохраняет копию рабочего листа. У кого-нибудь есть опыт, когда я пытаюсь внести изменения, это вызывает проблемы с моим оператором Next в нижней части кода.

'' 'Sub Excel1 ()

Dim rngLoopRange As Range Dim wsSummary As Worksheet Dim rngDealers As Worksheet

Установить wsSummary = Sheets ("PL")

для каждого rngLoopRange в рабочих листах ("AUX"). Диапазон ("A1: A38") wsSummary. Range ("C12"). Значение = rngLoopRange.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

End Sub '' '*

...