Как использовать имя файла, чтобы вернуться к книге

Question

Я беру вкладки из основной рабочей книги и создаю с ними отдельные рабочие книги.Затем я возвращаюсь к исходной основной книге и перебираю все вкладки, кроме своей основной вкладки.Я могу поставить имя файла главной книги и вернуться к нему без проблем, но имя файла мастера может меняться каждый раз.Мне нужно взять имя файла из основной рабочей книги и передать его в мой код VBA для ссылки на него.Я думаю, что я близко, но не совсем там

Sub Macro4()

Dim WB As Workbook
WB = GetThisWB2
Dim WSCount As Integer
WSCount = Worksheets.Count


Dim allsheets As Integer                
allsheets = WSCount                     
Do While allsheets > 1

Sheets(allsheets).Select
Sheets(allsheets).Move
''----Windows("FILENAME").Activate this works
WB.Activate

allsheets = allsheets - 1                  
Loop

End Sub

Function GetThisWB()

GetThisWB = ThisWorkbook.Path & "\" & ThisWorkbook.Name
GetThisWB2 = ThisWorkbook.Name

End Function

Answer 1

Исходя из того, что вы описали, я думаю, что вы пытаетесь сделать что-то вроде этого:

Sub test()
Dim wK as worksheet

For each wK in thisworkbook.Worksheets
  if wK.Name <> "Master" then

      wk.copy
      Activeworkbook.saveas thisworkbook.path & "\" & wk.name & ".xlsx"
      Activeworkbook.close true

  End if
Next wK

Msgbox "Process Completed"
End Sub