Имя и имя суффикса вкладки

Question

Я пытаюсь переименовать листы при импорте. Таким образом, каждая пара импортируемых листов называется Filename + Suffix (суффикс должен быть разным для первого и второго листа, но одинаковым каждый раз, когда импортируется новая рабочая книга

например, тест импортируется sheet1 = test - report , лист два = тест - Pr

при следующем импортировании файла, например, test1, затем sheet1 = test1 - отчет, лист два = test1 - Pr

Много информации надеется, что кто-то может помочь.

Public Sub CommandButton1_Click()
    Dim FileNames As Variant
    Dim FileName As Variant
    Dim WSNew1 As Worksheet
    Dim WSNew2 As Worksheet
    Dim ActiveListWB As Workbook



    FileNames = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*),*.xls*", _
                                               Title:="Select Active List to Import", _
                                               MultiSelect:=True)
    If VarType(FileNames) = vbBoolean Then
        If Not FileNames Then Exit Sub
    End If


    For Each FileName In FileNames


        Set WSNew1 = ActiveWorkbook.Sheets.Add
        Set WSNew2 = ActiveWorkbook.Sheets.Add


        Set ActiveListWB = Workbooks.Open(FileName)
        ActiveListWB.Sheets("Resources").UsedRange.Copy WSNew1.Range("A1")
        ActiveListWB.Sheets("SC_Hours_Employee").UsedRange.Copy WSNew2.Range("A1")


        ActiveListWB.Close False
    Next FileName
End Sub

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

Answer 1

Я думаю, что вы хотите добавить в

WSNew1.name = ActiveListWB.name & " - report"
WSNew2.name = ActiveListWB.name & " - Pr"

перед ActiveListWB.close, если я правильно читаю ваш вопрос