要求用戶輸入以複製VBA中的工作表

Question

我想將VBA中特定工作簿中的工作表複製到我的活動工作簿中，並使用它進行大量計算。現在的問題是，目標工作表名稱總是不斷變化，我總是得到一個錯誤。

Set targetWorkbook = Application.ActiveWorkbook 
filter = "Text files (*.xls*),*.xls*" 
Caption = "Please Select the Target file" 
Ret = Application.GetOpenFilename(filter, , Caption) 

If Ret = False Then Exit Sub 
Application.AskToUpdateLinks = False 
Set wb = Workbooks.Open(Ret) 
Application.AskToUpdateLinks = True 
wb.Worksheets("**This Keeeps on Changing**").Move After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count) 

我可以選擇或輸入名稱在MsgBox或類似的東西，我沒有得到一個錯誤。請幫忙。

Answer 1

Sub ertdfgcvb() 
Set targetWorkbook = Application.ActiveWorkbook 
Filter = "Text files (*.xls*),*.xls*" 
Caption = "Please Select the Target file" 
Ret = Application.GetOpenFilename(Filter, , Caption) 

If Ret = False Then Exit Sub 
Set wb = Workbooks.Open(Ret, False) 'why set it on application level when it's an optional argument? 

shname = InputBox("What worksheet are you looking for?", "Changing sheet names are for losers") 
For Each Worksheet In wb 
    If LCase(Worksheet.Name) Like "*" & LCase(shname) & "*" Then        'it might be changing but it probably has a fixed part, right? 'note: you can use wildcards and string conversion rules 
     Worksheet.Move After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count) 'do whatever it did before 
    End If 
Next 
End Sub 

Answer 2

Set targetWorkbook = Application.ActiveWorkbook 
Filter = "Text files (*.xls*),*.xls*" 
Caption = "Please Select the Target file" 
Ret = Application.GetOpenFilename(Filter, , Caption) 

If Ret = False Then Exit Sub 
Set wb = Workbooks.Open(Ret, False) 'why set it on application level when it's an optional argument? 

For Each Worksheet In wb 
    If LCase(Worksheet.Name) Like "*changing*" Then        'it might be changing but it probably has a fixed part, right? 'note: you can use wildcards and string conversion rules 
     Worksheet.Move After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count) 'do whatever it did before 
    End If 
Next