求助：如何在VLOOKUP中调用VBA获取的文件夹最新文件

我懂你的困扰——每次新CSV文件更新都要手动修改VLOOKUP里的硬编码文件名，实在太繁琐了。咱们直接改造现有代码，让VLOOKUP自动绑定你找到的最新CSV文件，彻底实现自动化查询。

核心思路很简单：用你已经获取到的LatestFile动态替换VLOOKUP公式里的固定文件名，同时优化代码里冗余的Select/Activate操作（这类操作不仅效率低，还容易因窗口切换出错）。

修改后的完整代码 #

Sub oversub()
    Dim MyPath As String
    Dim MyFile As String
    Dim LatestFile As String
    Dim LatestDate As Date
    Dim LMD As Date
    Dim wb As Workbook
    Dim planningWb As Workbook
    
    ' 设置目标文件夹路径
    MyPath = "C:\Users\TAmon1\Desktop\OverSubscription Dash"
    If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
    
    ' 查找文件夹内的CSV文件
    MyFile = Dir(MyPath & "*.csv", vbNormal)
    If Len(MyFile) = 0 Then
        MsgBox "No files were found...", vbExclamation
        Exit Sub
    End If
    
    ' 遍历筛选出最新的CSV文件
    Do While Len(MyFile) > 0
        LMD = FileDateTime(MyPath & MyFile)
        If LMD > LatestDate Then
            LatestFile = MyFile
            LatestDate = LMD
        End If
        MyFile = Dir
    Loop
    
    ' 打开最新CSV并保存为工作簿对象
    Set wb = Workbooks.Open(MyPath & LatestFile)
    ' 获取Planning_tool工作簿对象（避免用Activate，更稳定）
    Set planningWb = ThisWorkbook ' 如果这段代码写在Planning_tool.xlsm里，用ThisWorkbook最可靠
    ' 若代码不在目标工作簿中，改用：Set planningWb = Workbooks("Planning_tool.xlsm")
    
    ' 动态构建CSV工作表的引用格式
    Dim csvSheetRef As String
    ' CSV默认打开的工作表名通常和文件名一致（去掉.csv后缀），用wb.Sheets(1).Name确保引用第一个工作表
    csvSheetRef = "'[" & wb.Name & "]" & wb.Sheets(1).Name & "'!C1:C11"
    
    ' 批量写入VLOOKUP公式（无需反复Select/Activate）
    With planningWb.Sheets("你的工作表名称") ' 替换成Planning_tool里实际要写公式的工作表名，比如"Sheet1"
        ' 处理N列的VLOOKUP
        .Range("N2").FormulaR1C1 = "=VLOOKUP(C[-13]," & csvSheetRef & ",11,FALSE)"
        .Range("N2:N539").FillDown
        
        ' 处理O列的VLOOKUP
        .Range("O2").FormulaR1C1 = "=VLOOKUP(C[-14]," & csvSheetRef & ",5,FALSE)"
        .Range("O2:O539").FillDown
        
        ' 处理Q列的VLOOKUP
        .Range("Q2").FormulaR1C1 = "=VLOOKUP(C[-16]," & csvSheetRef & ",9,FALSE)"
        .Range("Q2:Q539").FillDown
    End With
    
    ' 可选：如果不需要保留CSV文件打开状态，可在此关闭
    ' wb.Close SaveChanges:=False
End Sub

关键修改细节说明 #

1. 用wb变量绑定最新CSV工作簿：
   原来的代码打开文件后没保存引用，现在通过Set wb = Workbooks.Open(...)把最新CSV存为对象，方便后续获取它的文件名和工作表信息。

2. 动态生成外部引用格式：
   用csvSheetRef拼接出VLOOKUP需要的外部表格式'[文件名.csv]工作表名'!C1:C11，彻底替换硬编码的固定文件名，不管最新CSV叫什么，公式都会自动适配。

3. 移除冗余的Select/Activate操作：
   直接通过工作簿+工作表对象操作单元格，比如planningWb.Sheets("xxx").Range("N2")，代码运行更快，也不会因为不小心切换窗口而出错。

4. 用FillDown简化填充操作：
   FillDown和AutoFill效果一致，但代码更简洁易读，减少冗余步骤。

注意事项 #

• 记得把代码里的"你的工作表名称"替换成Planning_tool.xlsm里实际要写入公式的工作表名称（比如"Dashboard"或"数据页"）。
• 如果你的CSV文件打开后工作表名不是默认值，wb.Sheets(1).Name也能确保引用到第一个工作表，无需担心名称变化。

内容的提问来源于stack exchange，提问作者learningguy