Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 56884
Главная » Готовые решения » VBA » Полезные приёмы

Получить данные из закрытой книги
11.12.2017, 20:08
Option Explicit
Dim aRez

Sub Sample01()
Dim fPath As String, nRw&

fPath = ThisWorkbook.Path
'получаем данные из книги Экспорт данных.xlsx, Лист1, диапазон A:G
If Right(fPath, 1) <> "\" Then fPath = fPath & "\[Экспорт данных.xlsx]" Else _
 fPath = fPath & "[Экспорт данных.xlsx]"
'сколько строк в 1-м столбце
Range("A1").Formula = "=COUNTA('" & fPath & "Лист1'!A:A)"
nRw = Range("A1").Value
'получаем массив A:G от 1-й до последней строки по ст. А
Range("A1").Formula = "=ToArray('" & fPath & "Лист1'!A1:G" & nRw & ")"
'выгружаем на лист
Range("B1").Resize(UBound(aRez), UBound(aRez, 2)).Value = aRez

Range("A1").Clear
If IsArray(aRez) Then Erase aRez
End Sub

Private Function ToArray(ref)
 aRez = ref
End Function
Добавил: nilem | | Теги: Данные из закрытого файла
Просмотров: 2093 | Рейтинг: 5.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!