У меня есть база данных, в которой есть возможность выбирать между рабочими группами и списком их персонала.
Мое намерение использовать раскрывающееся меню , чтобы выбрать, какую группу (например, имя диапазона [TCReportingFor]). Это число будет соответствовать файловому каталогу, в котором хранится их Names.xlsm
, и ссылка на него ссылается на него. Если раскрывающееся меню изменяется на другую группу (вот что я не могу выяснить), источник запроса питания изменит каталог и извлечет его из файла Names.xlsm
в новом каталоге файлов.
Private Sub towinners2()
Dim ws2 As Worksheet
Set ws2 = Sheet2
division = [TCReportingfor].Value
Dim mFormula As String
mFormula = _
"let Source = Excel.Workbook(File.Contents(""\\Snnsvr045\nnsy temp\C2301 (snnsvr045 - NNSY Temp)\Training Database\Division Rosters\"" & division & ""\Names.xlsm""), Null, True) in source"
ws2.Activate
ActiveWorkbook.Queries.Item(Names).Formula = mFormula
End Sub