Как получить данные из открытого файла?

Question

У меня есть этот код, где,

Рабочий лист: "Основной" B3: что я ищу в файле.
Рабочий лист "AX": где искать.

I поиск в другой открытой рабочей книге, начинающейся с букв: ECL_

Sub FindandKopy()
Dim CellContents As String
Dim rng As Range
Dim loDeinWert As String
Dim sfirstaddress As String

loDeinWert = Worksheets("main").Range("B3").Value

Set rng = Worksheets("AX").Range("B:B").Find(loDeinWert)
If rng Is Nothing Then
  MsgBox "Data " & loDeinWert & " not found!"
Else
  sfirstaddress = rng.Address
  Do
    rng.EntireRow.Copy
    Worksheets("Main").Cells(Rows.Count, "A").End(xlUp) _
      .Offset(6, 0).PasteSpecial Paste:=xlPasteAll 
    Set rng = Worksheets("AX").Range("B:B").FindNext(rng)
  Loop While Not rng Is Nothing And rng.Address <> sfirstaddress
End If
End Sub

Answer 1

Если вам нужно найти рабочую книгу, которая уже открыта, вы можете l oop просмотреть все книги и проверить название каждой книги:

Dim ECLWb As Workbook
Dim wb As Workbook
For Each wb in Application.Workbooks
    If wb.Name Like "ECL_*" Then 
        Set ECLWb = wb
        Exit For
    End If
Next wb

If ECLWb Is Nothing Then
    MsgBox "ECL_* not found."
    Exit Sub
Else
    'use that workbook like 
    ECLWb.Worksheets("AX")…
End If