Excel: перекрестная книга, неявная ссылка на все листы

Question

Я пытаюсь неявно ссылаться на все листы в другой книге, не используя прямые ссылки. Код, с которым я работаю, должен использоваться для справочников различного размера, поэтому жесткое определение диапазона здесь не является оптимальным.

Полагаю, вы могли бы сказать, что я ищу что-то вроде

[Book.xlsx] ALL '! A1 или же '[Book.xlsx] *'! A1

Tl: д-р я хочу, чтобы формула смотрела на каждую ячейку в заданном диапазоне в книге, без необходимости жестко определять каждый лист, на который она должна смотреть в формуле. Контекст VLOOKUP.

Answer 1

Я думаю, что-то подобное может сделать работу:

Sub loopOverWoorkbookWorksheet()

Dim directory As String
Dim StrFile, wbs() As String
Dim i As Integer
Dim ws As Worksheet

' Getting all the xlsx file from your directory
directory = "your_directory"
i = 0
StrFile = Dir(directory & "\*.xlsx")

Do While Len(StrFile)

   ReDim Preserve wbs(i)
   wbs(i) = StrFile
   StrFile = Dir
   i = i + 1

Loop

' Loop through all the sheet of one workbook
For Each wb In wbs

   workbooks.Open Filename:=directory & "\" & wb

   For Each ws In Application.ActiveWorkbook.Sheets
   ' Do your compute
   ' You can store the result in a Cell using :
   ' Cells(x,y) = z
   ' x : number of the line
   ' y : number of the column
   ' z : the data you want to store in the cell
   Next ws

Next wb

End Sub