如何在另一个工作簿中引用最右侧的工作表，用于 VLOOKUP？

Question

I am writing a vlookup function and I want to reference the last tab in a another workbook, rather than the tab name as it changes daily.

To move to the last tab in the workbook I have

Sheets(Sheets.Count).Select

Is it possible to reference this in the a VLOOKUP? (left a blank where the worksheet should be)

 "=VLOOKUP(RC[133],'[Unavista UTI Lookup December2019.xlsm]"     "'!C4:C7,4,0)"

Answer 1

This is just off the top of my head (untested), but maybe something like this

Dim wbData as Workbook
Set wbData = Workbooks.Add("Unavista UTI Lookup December2019.xlsm")
ActiveWorkbook.Worksheets("Sheet1").Range("A1").Formula = "=VLOOKUP(RC[133],[" & wbData.Name & "]" & wbData.WorkSheets(wbData.WorkSheets.Count).Name & "!C4:C7,4,0)"
wbData.Close False

Alternatively, using the .Open method:

Dim wbData as Workbook
Set wbData = Workbooks.Open(Filename:="Unavista UTI Lookup December2019.xlsm", ReadOnly:=True)
ActiveWorkbook.Worksheets("Sheet1").Range("A1").Formula = "=VLOOKUP(RC[133],[" & wbData.Name & "]" & wbData.WorkSheets(wbData.WorkSheets.Count).Name & "!C4:C7,4,0)"
wbData.Close False

Adjust Sheet1 and A1 to your needs

But still, you would need to trigger this code on an event of some sort, which isn't clear to me yet.

Answer 2

The Function I am at is below;

Currently i am changing the date of the worksheet which the vlookup is referencing. So the below shows "Dec 9" from yesterday. Once the new tab gets created today in the file "Unavista UTI Lookup December2019" - It will show "Dec 10"

   ActiveCell.FormulaR1C1 = _
   "=VLOOKUP(RC[133],'[Unavista UTI Lookup December2019.xlsm]Dec 9'!C4:C7,4,0)"

What I am trying to do is find a way for the code to automatically change this to todays date. Speaking with someone at work we tried the below

Dim DayValue As String
Dim FormulaString As String
DayValue = Format(Date, "mmm d")

 Range("E2").Select
 FormulaString = "=VLOOKUP(EH2,'[Unavista UTI Lookup December2019.xlsm]" & DayValue & "' !$D:$G,4,0)"

The formula isn't bringing back any error, but unfortunately the lookup isn't doing anything, and just bringing back empty cells.

If anyone can resolve this, as i've tried numerous things and still not been able to get it to work.

Answer 3

I would assume that your were applying the formula with a line like this:

Range("E2").Formula = FormulaString

however when I tried that line, it returned an error as your line has one blank space in excess, as the syntax for a link with another workbook should be:

'[WorkbookName]WorksheetName'!Range

and your line has:

'[WorkbookName]WorksheetName' !Range

Therefore instead of this:

FormulaString = "=VLOOKUP(EH2,'[Unavista UTI Lookup December2019.xlsm]" & DayValue & "' !$D:$G,4,0)"

use this:

FormulaString = "=VLOOKUP(EH2,'[Unavista UTI Lookup December2019.xlsm]" & DayValue & "'!$D:$G,4,0)" Range("E2").Formula = FormulaString

However, in order to ease the maintenance of the procedure I suggest to use a constant, try this procedure:

Sub Formula_Today()
Const kFml As String = "= VLOOKUP( RC[133]," & _
    "'[Unavista UTI Lookup December2019.xlsm]#TODAY'!C4:C7, 4, 0 )"
Dim sFml As String
    sFml = Replace(kFml, "#TODAY", Format(Date, "mmm d"))
    With ThisWorkbook.Worksheets("DATA")
        .Range("E2:E10").FormulaR1C1 = sFml
    End With
    End Sub

Before adding the new worksheet

After adding the new worksheet and applying the Formula_Today procedure