В настоящее время у меня две книги открыты. В книге A (например) есть таблица внутри нее, которую я хочу импортировать в существующую книгу «Рабочая книга B.». Я хочу импортировать эту таблицу в тот же лист, который я использую в настоящее время в книге B. Оглядывается много и не может похоже, опрокидывают ответ. Любые советы будут очень признательны. TИмпорт таблицы из одной книги Excel в другую книгу книги
Этот код предложит пользователю выбрать диапазон в другой книге для копирования, а затем скопировать его на текущий лист в ячейке B2. Вы также можете предложить пользователю выбрать пункт назначения, просто скопировать другой код ввода и изменить его в соответствии с вашими потребностями.
Sub Macro1()
Dim wk As Worksheet
Set wk = ActiveWorkbook.ActiveSheet
Dim wkb As Workbook
Set wkb = Workbooks("Book1.xls")
wkb.Activate
On Error Resume Next
Application.DisplayAlerts = False
Set rRange = Application.InputBox(Prompt:= _
"Please select a range with your Mouse to be copied.", _
Title:="SPECIFY RANGE", Type:=8)
On Error GoTo 0
Application.DisplayAlerts = True
If rRange Is Nothing Then
Exit Sub
End If
rRange.Select
Selection.Copy
wk.Activate
Range("B2").Select
ActiveSheet.Paste
End Sub
Это дает мне ошибку времени выполнения, индекс вне диапазона. Не уверен, почему, потому что я вхожу в правильный .xls, который я хочу использовать – user2616026
В настоящее время код предполагает, что книга уже открыта. Работает ли это, если сначала открыть его, а затем запустить? Кроме того, убедитесь, что расширение файла верное. то есть. .xls или .xlsx или .xlsm –
Вы пытались записать макрос с помощью макрорекордера и использовать его? – mucio
Он будет меняться каждый раз, когда я это сделаю, поэтому я не могу использовать рекордер – user2616026
да, вы можете, когда у вас есть записанный макрос, вам нужно «только», чтобы изменить код, чтобы спросить у пользователя имя файла, из которого вам нужно скопировать таблицу. Я знаю, что это немного сложно, но если вы посмотрите на это решение и продемонстрируете некоторые из ваших попыток здесь, вы получите гораздо больше справки по stackoverflow. – mucio