Сохранить ошибки - время выполнения «1004» - PullRequest
Новая
       87

Сохранить ошибки - время выполнения «1004»

0 голосов
/ 28 января 2020

У меня есть ошибка времени выполнения 1004 с приведенным ниже кодом, кто-нибудь может уточнить для меня, что может быть за рулем этого? 

Sub Excel1()

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

   Set wsSummary = Sheets("PL")

   For Each rngLoopRange In Worksheets("AUX").Range("A1:A38")
      wsSummary.Range("C12").Value = rngLoopRange.Value

    Application.Run "TM1REFRESH"

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


Next rngLoopRange

Set wsSummary = Nothing

    MsgBox "Complete!", vbInformation

End Sub

Вышеприведенное теперь сохраняет файл под нужным мне именем. пожалуйста, сообщите сейчас, почему при копировании листа возникает ошибка

424

. с строкой кода ws.Copy before = wb.Worksheets(1)

Sub Excel1()

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

   Set wsSummary = Sheets("PL")

   For Each rngLoopRange In Worksheets("AUX").Range("A1:A38")
      wsSummary.Range("C12").Value = rngLoopRange.Value

    Application.Run "TM1REFRESH"

    Dim wb As Workbook
    Set wb = Workbooks.Add
    ActiveWorkbook.SaveAs filename:=ThisWorkbook.Path & "\" & wsSummary.Range("C12").Value
    ws.Copy before:=wb.Worksheets(1)
    wb.Close savechanges:=True


Next rngLoopRange

Set wsSummary = Nothing

    MsgBox "Complete!", vbInformation

End Sub
...