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

Shocker.ProЧто такое, "подгрузить, но не грузить?"

Получить данные из другой книги? ищите здесь же CreateObject

Подгрузить значит, взять лист из книги, и добавить его в активную книгу, в той которой нахожусь.

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

lopuxi
Подгрузить значит, взять лист из книги, и добавить его в активную книгу, в той которой нахожусь.

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

Ах да. Все это через VBA по нажатию кнопочки.

Shocker.ProА почему бы не открыть эту книгу, скопировать из нее лист и закрыть?

Для меня это тоже было бы проще. Но для того кому пишу программу. Такую процедуру будет проделать довольно сложно. Так ка с экселем не на вы.
Да и объединять в одну книгу листы из разных excel файлов. Довольно муторно. Поэтому решил заморочится и создать что-то модернезированное, что бы быстро и комфортно объединяло в одну книгу только нужную информацию взятую из других книг.

Shocker.ProlopuxiНо для того кому пишу программу. Такую процедуру будет проделать довольно сложно.

Ему будет сложно нажать на вашу кнопку, которая сама все откроет, скопирует и закроет?

Да ты обсолютно прав.

И в прочем что-то подобное я уже делал.
Там была программка по проверке размера файла. И думаю если сделать что-то похожее. Тока не в VB а в VBA Excel. Что бы она не открывала выбранный в ней лист. А давала названия или номера листов. И выбранный лист, подгружался.

Можно ли в Excel это как-то реализовать, так как я, это выложил в файле, в сообщении выше?
Я так понял filelistBox и DirListBox не поддерживается VBA. и это плохо.

Konst_Oneя уже давал ссылки на API выбора директории и файла http://vbnet.mvps.org/code/comdlg/filedlgsoverview.htm

Да, все нашел, буду пробовать разбираться...
Плохо что я английский в школе не учил :(

Shamanus
'запись пути
paTH = vrtSelectedItem


У в твоем коде на слове paTH выдает ошибку. Мол перменая не определена.
Как ты ее определял?

Shamanus

Private Sub CommandButton4_Click()

Dim fd As FileDialog
Dim vrtSelectedItem, paTH As Variant

'Filters.Add(, "MBD",1)
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.Filters.Clear
.Filters.Add "Только Базы данных", "*.MDB"
.FilterIndex = 0
.AllowMultiSelect = False

.ButtonName = "Выбрать"
'Нажата кнопка "Выбрать"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
'запись пути
paTH = vrtSelectedItem
Next vrtSelectedItem
'Нажата кнопка Cancel.
Else
Exit Sub
End If
End With

Set fd = Nothing

TextBox1.Value = paTH

End Sub



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

Я щас тоже по пробую, но не уверен что получится. Делал пока такое только один раз и то по учебнику.