взять данные из закрытого книга

[Aqil_f]

Используется такой код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If Target.Column = 13 And Target <> "" Then
UserForm1.TextBox1.Value = Target.Value
UserForm1.Show
End If
Sheets(2).Cells(3, 2).Value = Sheets(1).Cells(Target.Row, 6).Value
Sheets(2).Cells(5, 2).Value = Sheets(1).Cells(Target.Row, 7).Value & " " & Sheets(1).Cells(Target.Row, 8).Value & " " & Sheets(1).Cells(Target.Row, 9).Value
Sheets(2).Cells(7, 2).Value = Sheets(1).Cells(Target.Row, 2).Value
End Sub

C помощи этого кода информация из одного листа "отправляется" в другой. С помощи этого кода можно ли взять информация из закрытого книга? (Связывающие "поле" показан с красными шрифтами.)

T.e., если на 1-й книге курсор находится допустим 4-м строке (F4=622633), с другого книге (K2.XLS) допустим из листа "AA" надо взять 11-ые строку (B11=622633), из листа "TT" надо взять 6-ое строку (B6=622633)

[alex77755]

из закрытого книга

нельзя никак
Это всё равно, что взять данные из книги(диска), которые лежат в серванте(шкафу) на полке.
Всё равно их нужно взять в руки и открыть
Вот что открыл - можно и не афишировать(не показывать)

[Aqil_f]

' Помоему можно открыть
Set wb = Workbooks.Open(полное имя файла,0, True, True)
' что-то делать
wb.Close False
' и закрыть.

Только незнаю как 'связывать 2 поле' из разных книг.

[doober]

То alex77755 все можно извлечь и без открытия документа

Это справедливо .если файлы находятся в одной папке.

 Sheets(2).Range("A1").Formula = "='[k2.xls]AA'!" & "B6"
 Sheets(2).Range("A1") = Range("B6")

iPath - это месторасположения файла (каталог) например D\Temp\
iFile - это название файла k2.xls
iList - это название листа в файле из которого мы извлекаем данные
"B6" - это адрес ячейки из которой нам нужно получить данные
"A1" - это адрес ячейки куда вставляем данные

Если в разных,то

Range("A1").Formula = "='" & iPath & "[" & iFile & "]" & iList & "'!" & "B6" 
Range("A1") = Range("B6")

[Hugo121]

Сообщение от doober

Range("A1") = Range("B6")

Range("A1") = Range("A1") ?!!!

[doober]

Hugo121 все правильно,допустил ошибку

[Aqil_f]

Файлы находятся в одной папке, поэтому Ваш код

Sheets(2).Range("A1").Formula = "='[k2.xls]AA'!" & "B6"

подходить .

Но, дело в том что здесь B6 не меняется. А у меня это меняется в зависимости от выбора строку в 1-й книге (K1.XLS) в LIST1 (столбец F)
Если в LIST1 выбран 4-я строка (F4=622633), тогда в другом книге (K2.XLS, лист АА) должен выбратся соответствующий запись, т.e., 11-я. (Потому-что только в этом записе в столбец B =622633)

[doober]

Private Sub CommandButton1_Click()

Range("XX") = Data_cells("AA", "B6") 'Range("XX") -ячейка.куда вставить данные
End Sub


'sh_name  имя листа .откуда берется информация,Adr_cells соответственно ячейка этого листа.откуда берутся данные
Public Function Data_cells(sh_name As String, Adr_cells As String)
Dim path As String, iAddress As String
path = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")
iAddress = "'" & path & "[k2.xls]" & sh_name & "'!" & Range(Adr_cells).Address(ReferenceStyle:=xlR1C1)
Data_cells = ExecuteExcel4Macro(iAddress)
End Function

[Aqil_f]

Еще раз хочу обяснить свою задачу. В книге K1 (LIST1) курсор находятся в каком-то записе (допустим в 3-м), здесь в столбец F=622630. Тогда некоторые данные из этой записе "отправляется" в LST2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If Target.Column = 13 And Target <> "" Then
    UserForm1.TextBox1.Value = Target.Value
    UserForm1.Show
End If
     Sheets(2).Cells(3, 2).Value = Sheets(1).Cells(Target.Row, 6).Value
    Sheets(2).Cells(5, 2).Value = Sheets(1).Cells(Target.Row, 7).Value & "   " & Sheets(1).Cells(Target.Row, 8).Value & "   " & Sheets(1).Cells(Target.Row, 9).Value
    Sheets(2).Cells(7, 2).Value = Sheets(1).Cells(Target.Row, 2).Value
End Sub

В это время программа должен проверить книге K2 (лист АА, столбец B) есть ли такой запись где B=622630. (В данном случае 9-я строка). Если есть, тогда из этого записа некоторые данные должен "отправляется" в К2 (LIST2). Если нет такой запись ничего не должен делать.
Помогите пожалуйста, как можно решать такую задачу?

[Hugo121]

Добавьте Find. Ищите Sheets(1).Cells(Target.Row, 6).Value в книге K2 (лист АА, столбец B).
Но похоже что без открытия книги не получится. Но можно это сделать скрытно и сразу закрыть.
Вот такая заготовка, пока нескрытно, немного поменял порядок операторов:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If Target.Column = 13 And Target <> "" Then
UserForm1.TextBox1.Value = Target.Value
UserForm1.Show
    Sheets(2).Cells(3, 2).Value = Sheets(1).Cells(Target.Row, 6).Value
    Sheets(2).Cells(5, 2).Value = Sheets(1).Cells(Target.Row, 7).Value & "   " & Sheets(1).Cells(Target.Row, 8).Value & "   " & Sheets(1).Cells(Target.Row, 9).Value
    Sheets(2).Cells(7, 2).Value = Sheets(1).Cells(Target.Row, 2).Value
Set wb = Workbooks.Open("C:\temp\agilf\K2.xls", 0, True, True)
        Set y = wb.Worksheets(1).Columns(2).Find(what:=ThisWorkbook.Sheets(1).Cells(Target.Row, 6).Value, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
        If Not y Is Nothing Then MsgBox "Find in " & y.Address & " !!!"
wb.Close False
End If
End Sub