Я пытаюсь создать макрос, который позволит мне перетаскивать данные из закрытой рабочей книги в мою активную рабочую книгу, когда пользователь нажимает кнопку в активной рабочей книге.Я также хочу изменить опцию «Исходная» книга, поэтому я поместил путь к файлу на вкладке «Системы» моей целевой (активной) книги.Я хочу скопировать данные из рабочей книги ABC (источник, закрытая рабочая книга) в рабочую книгу XYZ (цель, активная книга), а затем получить окно с сообщением о времени и дате запуска макроса.Я думаю, что часть кода кода работает нормально, но у меня возникают проблемы с первой частью кода.
Может ли кто-нибудь помочь мне?Я новичок в макросах и на этом форуме.Я увидел похожую ветку, опубликованную здесь, и использовал код, указанный в этом ответе, в качестве отправной точки.
Получение данных из макроса закрытой рабочей книги
Большое спасибозаблаговременно!:)
Sub Button1_Click()
Dim filePath As String
Dim SourceWb As Workbooks
Dim TargetWb As Workbooks
Set TargetWb = ActiveWorkbook
filePath = TargetWb.Sheets("System").Range("A1").Value
Set SourceWb = Workbooks.Open(filePath)
SourceWb.Sheets("ABC").Range("D12:F59").Copy Destination:=TargetWb.Sheets("XYZ").Range("D12:F29")
SourceWb.Close
MsgBox "Updated on " & Now
End Sub