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
Как скопировать диапозон значений из одного листа 1й книги Excel в другой лист другой книги?
Есть книга Макрос в ней кнопка +, по нажатию которой выбирается файл с другой книгой и в ячейку А1 пишется путь к ней.
Нужно из этой выбранной книги Лист1 перенести диапазон значений А1:В100 в текущую книгу Макрос в Лист2.
Нужно из этой выбранной книги Лист1 перенести диапазон значений А1:В100 в текущую книгу Макрос в Лист2.
Если необходимо только извлечь данные из выбранного файла, то можно воспользоваться следующим вариантом :
Если же нужны не только значения ячеек, но и их форматы, то книгу-источник, видимо, придётся открывать, используя Workbooks.Open ...
Код:
Cпасибо! Все работает.