选项卡文件名命名和后缀答案

【问题标题】：Tab filename naming and suffix选项卡文件名命名和后缀
【发布时间】：2020-03-11 23:18:23
【问题描述】：

我正在尝试在导入时重命名工作表。因此，每对导入的工作表都命名为 Filename + Suffix（工作表一和工作表二的后缀应该不同，但每次导入新工作簿时都相同

例如，正在导入测试表 1 = 测试 - 报告，表 2 = 测试 - Pr

下次导入文件时，例如 test1，然后 sheet1 = test1 - report，sheet 2 = 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？

【问题讨论】：

如何使用导入工作簿中的文件名命名导入的工作表名，并按顺序为两张工作表添加后缀 Report 和 SHE？

标签： excel vba

【解决方案1】：

我想你想添加

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

在 ActiveListWB.close 之前，如果我没有正确阅读您的问题

【讨论】：