如何在VLOOKUP中使用GetOpenFilename获取图纸名称

Question

我在下面使用此代码在另一个使用GetOpenFilename选择的文件中使用VLOOKUP。我想shtName是您选择的文件中的工作表的名称，但是每当我单步执行时，它始终是我工作的工作表的名称并将VLOOKUP放入。

我有shtName在我的VLOOKUP中，当我逐步浏览它时，它不会显示任何内容。 X显示文件名和路径，但shtName后显示什么。但是我的VLOOKUP无论如何都会结束工作，并将表单放入公式中。

这是为什么？我希望能够自己做到这一点，所以我知道我从你选择的文件中得到表单名称。

Dim iRet As Integer 
Dim strPrompt As String 
Dim strTitle As String 

' Promt 
strPrompt = "Please select the last Kronos Full File before the dates of this HCM Report." & vbCrLf & _ 
    "This will be used to find the Old Position, Org Unit, and Old Cost Center." & vbCrLf & _ 
    "For example, if the date of this report is 7-28-17 thru 8-25-17, the closest Kronos Full File you would want to use is 7-27-17." 

' Dialog's Title 
strTitle = "Last Kronos Full File for Old Positions" 

'Display MessageBox 
iRet = MsgBox(strPrompt, vbOK, strTitle) 

Dim LR As Long 
Dim X As String 
Dim lNewBracketLocation As Long 

X = Application.GetOpenFilename(_ 
    FileFilter:="Excel Files (*.xls*),*.xls*", _ 
    Title:="Choose the Kronos Full File.", MultiSelect:=False) 

MsgBox "You selected " & X 
'Find the last instance in the string of the path separator "\" 
lNewBracketLocation = InStrRev(X, Application.PathSeparator) 
'Edit the string to suit the VLOOKUP formula - insert "[" 
X = Left$(X, lNewBracketLocation) & "[" & Right$(X, Len(X) - lNewBracketLocation) 

shtName = ActiveWorkbook.Worksheets(1).name 

LR = Range("E" & Rows.Count).End(xlUp).Row 



Range("T2").Formula = "=VLOOKUP($E2,'" & X & "]shtName'!$B$1:$AP$99999,15,0)" 
Stop 
Range("T2").AutoFill Destination:=Range("T2:T" & Range("E" & Rows.Count).End(xlUp).Row) 
Stop 
Range("T2:T" & Range("E" & Rows.Count).End(xlUp).Row).Select 
Stop 
Range("U2").Formula = "=VLOOKUP($E2,'" & X & "]shtName'!$B$1:$AP$99999,41,0)" 
Range("U2").AutoFill Destination:=Range("U2:U" & Range("E" & Rows.Count).End(xlUp).Row) 
Range("U2:U" & Range("E" & Rows.Count).End(xlUp).Row).Select 
Range("V2").Formula = "=VLOOKUP($E2,'" & X & "]shtName'!$B$1:$AP$99999,18,0)" 
Range("V2").AutoFill Destination:=Range("V2:V" & Range("E" & Rows.Count).End(xlUp).Row) 
Range("V2:V" & Range("E" & Rows.Count).End(xlUp).Row).Select 
Cells.Select 
Cells.EntireColumn.AutoFit 

Answer 1

类似下面的应该给你的工作表名称出文件

Dim wbk As Workbook 
Set wbk = Workbooks.Open(Filename:="YOUR_FILE_PATH", ReadOnly:=True) 

Dim shtName As String 
shtName = wbk.Worksheets(1).Name 
wbk.Close 

注：我们可以打开在只读模式下工作簿，如果我们不打算改变任何东西。

---

此外，我建议（以下为良好做法的一个很好的代码）：

• 始终指定一个工作表。
  例如，对于每Range("")像Worksheets("YourSheetName").Range("")
  或者使用With声明：

  With Worksheets("YourSheetName") 
      .Range("A1").Value = 5 'recognize the starting full stop referring to the with statement 
  End With 
  

• 同为每Rows，Columns，Cells等

• 避免使用.Select，在.Activate和Selection.所有。
  （网上有很多教程如何避免它们）。
• 使用Option Explicit并声明全部您的变量在使用前。
  （避免许多问题，特别是打字错误）。