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

如何使用文件名返回工作簿

1 个答案: