[英]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.