Sub ИмпортДанных()
' Установка переменных для рабочего листа и пути к файлу данных
Dim ЛистРаботы As Worksheet
Set ЛистРаботы = ThisWorkbook.Sheets("Лист1") ' Замените "Лист1" на имя своего листа
Dim ПутьКФайлу As String
ПутьКФайлу = "C:\Путь\К\Вашему\Файлу\Данные.xlsx" ' Укажите полный путь к вашему файлу данных
' Отключение предупреждений о замене данных
Application.DisplayAlerts = False
' Очистка данных на рабочем листе перед импортом (если необходимо)
ЛистРаботы.Cells.Clear
' Импорт данных из указанного файла
Workbooks.Open ПутьКФайлу
ActiveWorkbook.Sheets(1).UsedRange.Copy ЛистРаботы.Range("A1")
ActiveWorkbook.Close False
' Включение предупреждений о замене данных
Application.DisplayAlerts = True
' Сообщение об успешном импорте
MsgBox "Данные успешно импортированы!", vbInformation
End Sub
Инструкции по использованию:
- Откройте файл Excel, в который вы хотите импортировать данные.
- Нажмите ALT + F11, чтобы открыть редактор VBA.
- Вставьте код в окно редактора.
- Измените имя листа и путь к файлу данных, указав соответствующие значения.
- Закройте редактор VBA и выполните макрос, нажав ALT + F8 и выбрав "ИмпортДанных".
Этот макрос открывает файл данных Excel по указанному пути и копирует данные на указанный лист в текущем рабочем файле. Обратите внимание, что для использования этого макроса необходимо включить поддержку макросов в вашем файле Excel.