Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как скопировать диапозон значений из одного листа 1й книги Excel в другой лист другой книги?

88K
03 июня 2014 года
scif
2 / / 03.06.2014
Есть книга Макрос в ней кнопка +, по нажатию которой выбирается файл с другой книгой и в ячейку А1 пишется путь к ней.
Нужно из этой выбранной книги Лист1 перенести диапазон значений А1:В100 в текущую книгу Макрос в Лист2.
275
03 июня 2014 года
pashulka
985 / / 19.09.2004
Если необходимо только извлечь данные из выбранного файла, то можно воспользоваться следующим вариантом :

Код:
Private Sub Test() 'Microsoft Excel 2000 (и старше)
    Dim iFullName As Variant, iFileName$
    iFullName = Application.GetOpenFilename("Excel files (*.xls),*.xls", , "Выберите книгу")
   
    If iFullName <> False Then
       iFileName = Dir(iFullName)
       With ThisWorkbook.Worksheets("Лист2").Range("A1:B100")
            .Formula = "='" & Replace(iFullName, iFileName, "[" & iFileName & "]") & "Лист1'!A1"
            .Value = .Value
            .Replace "0", "", xlWhole 'Если в ячейках-источниках могут быть пустые ячейки, но нет 0
       End With
    Else
       MsgBox "Для экспорта данных - нужно выбрать книгу", vbCritical, "Ошибка пользователя"
    End If
End Sub
Если же нужны не только значения ячеек, но и их форматы, то книгу-источник, видимо, придётся открывать, используя Workbooks.Open ...
88K
03 июня 2014 года
scif
2 / / 03.06.2014
Cпасибо! Все работает.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог