У меня есть кнопка на электронной таблице, которая при нажатии должна позволить пользователю открыть файл, а затем скопировать столбцы A-G электронной таблицы "Данные", а затем вставить данные из этих столбцов на текущем листе.
У меня есть логическая ошибка в коде; он запускается, но он вставляет выделение в неправильном месте.
У меня возникают проблемы с ссылкой на две книги.
Вот мой код:
Sub Button1_Click()
Dim excel As excel.Application
Dim wb As excel.Workbook
Dim sht As excel.Worksheet
Dim f As Object
Set f = Application.FileDialog(3)
f.AllowMultiSelect = False
f.Show
Set excel = CreateObject("excel.Application")
Set wb = excel.Workbooks.Open(f.SelectedItems(1))
Set sht = wb.Worksheets("Data")
sht.Activate
sht.Columns("A:G").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
wb.Close
End Sub