我来给你几个实用的解决办法，都是针对你这种需要从已关闭的主数据库文件里引用动态活跃客户列表做下拉菜单的场景，亲测有效：

方法1：用名称管理器定义跨工作簿动态名称（推荐方案） #

这个方法能直接引用已关闭文件里的动态列表，不需要额外导入数据，步骤也不复杂：

• 第一步：先在主数据库工作簿里定义动态客户列表
  打开主数据库文件，假设活跃客户存在Sheet1的A列（A1是表头，数据从A2开始）：
  • 如果你想用结构化表格（自动扩展，更省心）：选中A列的客户区域（包括表头），按Ctrl+T创建表格，给表格命名为tbl_ActiveCustomers——以后新增客户时表格会自动扩展。
  • 如果你习惯用动态名称：点击公式选项卡 → 名称管理器 → 新建，名称设为ActiveCustomers，引用位置输入公式：

    =OFFSET(Sheet1!$A$2,0,0,COUNTA(Sheet1!$A:$A)-1,1)
    

    这个公式会自动统计A列非空客户的数量，实现列表动态更新。
• 第二步：保存并关闭主数据库文件，确保它和发货表单在同一文件夹（文件名假设是主数据库.xlsx）。
• 第三步：设置发货表单的下拉菜单
  打开发货表单，选中需要加下拉的单元格，点击数据选项卡 → 数据验证 → 允许选择「序列」，在来源框里输入：

  ='[主数据库.xlsx]Sheet1'!ActiveCustomers
  

  点击确定就搞定了。如果以后主数据库换了位置，把路径改成完整路径就行，比如='C:\你的文件夹路径\[主数据库.xlsx]Sheet1'!ActiveCustomers

方法2：用Power Query导入动态列表到本地 #

如果不想依赖跨工作簿的外部引用，用Power Query把客户列表导入到发货表单里，还能一键刷新：

• 打开发货表单，点击数据选项卡 → 获取外部数据 → 从文件 → 从工作簿，选择同一文件夹里的主数据库.xlsx。
• 选择包含客户列表的工作表，点击「加载到」→ 选择「仅创建连接」，确定。
• 点击数据选项卡 → 连接 → 选中刚才的连接 → 点击属性，勾选「打开文件时刷新数据」，这样每次打开发货表单都会自动同步最新客户。
• 把连接的数据加载到一个隐藏工作表：右键连接 → 加载到 → 选择空白工作表（命名为客户列表），加载完成后可以把这个工作表隐藏起来。
• 最后设置数据验证：选中需要下拉的单元格，数据验证→序列，来源选择客户列表里的客户列区域，或者给这个区域定义个名称，引用更方便。

方法3：用VBA实现自动同步下拉列表 #

如果想要完全自动化，每次打开发货表单就自动从已关闭的主数据库里拉取最新客户，可以用VBA代码：

• 打开发货表单，按Alt+F11打开VBA编辑器。
• 在左侧工程窗口找到你的发货表单工作簿，双击ThisWorkbook，粘贴以下代码：

Private Sub Workbook_Open()
    Dim dbPath As String
    Dim dbWB As Workbook
    Dim customerRange As Range
    Dim targetCell As Range
    
    ' 主数据库文件路径（同一文件夹下）
    dbPath = ThisWorkbook.Path & "\主数据库.xlsx"
    
    ' 后台隐藏打开主数据库（只读模式）
    Set dbWB = Workbooks.Open(dbPath, ReadOnly:=True, Visible:=False)
    
    ' 定位主数据库里的活跃客户区域（A2到最后一行非空）
    Set customerRange = dbWB.Sheets("Sheet1").Range("A2:A" & dbWB.Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row)
    
    ' 定位发货表单里需要下拉的单元格范围（比如B2到B100）
    Set targetCell = ThisWorkbook.Sheets("发货表单").Range("B2:B100")
    
    ' 清除原有数据验证
    targetCell.Validation.Delete
    
    ' 添加新的下拉列表验证
    With targetCell.Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(Application.Transpose(customerRange), ",")
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
    
    ' 关闭主数据库，不保存
    dbWB.Close SaveChanges:=False
End Sub

• 保存工作簿为启用宏的格式（.xlsm），以后每次打开发货表单，都会自动同步最新的活跃客户列表到下拉菜单里。

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