И снова все здравствуйте!
Последний разочек по этому макросу помогите, пожалуйста.
Макрос, который создает папку и называет ее, там создает книгу и называет ее (если такой книги еще нет) еще должен копировать с первой книги активный лист в созданную.
Но на строке
Ошибка 9: subscript out of range
Почитала в интеренете, ошибка говорит о том, что нет такого пути. Но как его не может быть? Я ведь полностью указала весь путь к книге...
Буду признательна за помощь!
Последний разочек по этому макросу помогите, пожалуйста.
Макрос, который создает папку и называет ее, там создает книгу и называет ее (если такой книги еще нет) еще должен копировать с первой книги активный лист в созданную.
Код |
---|
Sub Main() Const strRootFolder As String = "M:\Production\Masters\2017\Normalization" Dim strFolder As String strFolder = "M:\Production\Masters\2017\Normalization\" & Range("folder_name").Value If Dir(strFolder, vbDirectory) = "" Then MkDir strFolder End If Dim strFileName As String Dim strFileTitle As String strFileTitle = "M:\Production\Masters\2017\Normalization\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("folder_name").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("Книга") & ".xlsm" strFileName = "M:\Production\Masters\2017\Normalization\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("folder_name").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("Книга") & ".xlsm" If Dir(strFileName) <> "" Then MsgBox "OK" Else Dim New_Wb As Workbook Set New_Wb = Workbooks.Add New_Wb.Activate New_Wb.SaveAs "M:\Production\Masters\2017\Normalization\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("folder_name").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("Книга") & ".xlsm", 52 End If Windows("Расчет.xlsm").Activate Dim sh As Worksheet: Set sh = ActiveSheet Call Sheet_Name Application.ScreenUpdating = False With Workbooks.Open("M:\Production\Masters\2017\Normalization\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("folder_name").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("Книга") & ".xlsm") sh.Copy , .Worksheets(.Worksheets.Count) .Close True End With Windows("Расчет.xlsm").Activate End Sub |
Но на строке
Код |
---|
With Workbooks.Open("M:\Production\Masters\2017\Normalization\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("folder_name").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1").Range("Книга") & ".xlsm") |
Ошибка 9: subscript out of range
Почитала в интеренете, ошибка говорит о том, что нет такого пути. Но как его не может быть? Я ведь полностью указала весь путь к книге...
Буду признательна за помощь!