簡體   English   中英

標簽文件名命名和后綴

[英]Tab filename naming and suffix

我試圖在導入時重命名工作表。 因此,每對導入的工作表都被命名為文件名 + 后綴(工作表一和工作表二的后綴應該不同,但每次導入新工作簿時都相同

例如,正在導入測試表 1 = 測試 - 報告,表二 = 測試 - Pr

下次導入文件時,例如 test1,則 sheet1 = test1 - 報告,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?

我想你想加入

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

在 ActiveListWB.close 之前,如果我正確閱讀了您的問題

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM