如何基于数据验证下拉列表设置VBA变量custname的对应取值？

你的代码存在两个关键问题，导致无法正确获取custname：

1. 获取下拉选中值的方式错误：Sheet1!A10是设置了数据验证的单元格，直接读取单元格的.Value即可获取选中值，不需要调用DropDowns对象（这个是针对表单控件下拉框的）。
2. VLookup参数逻辑错误：你要根据Sheet3!B列的下拉值，匹配返回Sheet3!A列的对应值，但VLookup要求查找值必须在查找区域的第一列，原代码里用Sheet3.Range("a:b")，查找值在B列（不在第一列），会导致查找失败。

修正后的代码（两种可选实现） #

方法1：调整VLookup的查找区域

Sub FileSaveAs()
    Dim custlist As String
    Dim custname As String
    Dim path As String
    Dim filename As String

    ' 直接读取数据验证单元格的选中值
    custlist = Sheet1.Range("A10").Value
    ' 调整查找区域为B:A，让查找值（B列）处于区域第一列，返回第2列（A列）的值
    custname = Application.WorksheetFunction.VLookup(custlist, Sheet3.Range("B:A"), 2, False)
    path = "C:\Users\files\" ' 注意添加路径末尾的反斜杠，避免路径和文件名连在一起出错
    filename = custname

    Sheet1.Copy

    With ActiveWorkbook
        .Sheets(1).Name = "Invoice"
        .SaveAs Filename:=path & filename, FileFormat:=51 ' FileFormat=51对应.xlsx格式
        .Close
    End With
End Sub

方法2：用Index+Match组合（更灵活，无需依赖查找列位置）

Sub FileSaveAs()
    Dim custlist As String
    Dim custname As String
    Dim path As String
    Dim filename As String

    custlist = Sheet1.Range("A10").Value
    ' Match找到custlist在Sheet3!B列的行号，Index返回对应A列的值
    custname = Application.WorksheetFunction.Index(Sheet3.Range("A:A"), _
               Application.WorksheetFunction.Match(custlist, Sheet3.Range("B:B"), 0))
    path = "C:\Users\files\"
    filename = custname

    Sheet1.Copy

    With ActiveWorkbook
        .Sheets(1).Name = "Invoice"
        .SaveAs Filename:=path & filename, FileFormat:=51
        .Close
    End With
End Sub

额外注意点 #

• 路径末尾一定要加反斜杠\，否则会变成C:\Users\files文件名，导致路径无效。
• 如果下拉选项为空，或者找不到匹配值，代码会报错，可添加错误处理（比如On Error Resume Next或On Error GoTo）避免崩溃。

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