Перенос данных из одной открытой книги в другую открытую книгу

Question

У меня есть две открытые книги, книга A и рабочая тетрадь B. У меня есть столбцы данных, которые мне нужно перенести с определенного листа из книги A на конкретный лист в книге B.

образец данных:

-26.32 
-20.56 
-44.93 
-26.64 
-45.99 
-40.76 
-34.21 
-25.54 
-48.63  
2.966  
9.163  
4.879  
5.01  
11.48  
16.19  
16.19 

Как создать программу, которая передает это от Workbook А до УПРАЖНЕНИЯ в? Также Workbook A может быть любой открытой книгой. Это может быть не тот же файл, когда эта программа запускается снова. Заранее спасибо.

Текущий код:

Sub Sample() 

Dim wbA As Workbook, wbB As Workbook 
Dim filepath As String 

Set wbA = ThisWorkbook 'you say the current workbook 
filepath = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", , , , False) 

Set wbB = Workbooks.Open(filepath) 

With wbA 
    .Sheets("Results").Range("A1").Copy wbB.Sheets("Sheet1").Range("A1") 
End With 

End Sub 

Выбор источника и назначения Workbook:

Sub Sample() 

Dim wbA As Workbook, wbB As Workbook 
Dim filepath As String 

filepath = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", , , , False) 
Set wbA = Workbooks.Open(filepath) 

filepath = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", , , , False) 
Set wbB = Workbooks.Open(filepath) 

With wbA 
    .Sheets("Sheet1").Range("A1:A3").Copy wbB.Sheets("Sheet1").Range("A1:A3") 
End With 

End Sub 

Answer 1

Попробуйте это:

Sub Sample() 

Dim wbA as Workbook, wbB as Workbook 
Dim filepath as String 

Set wbA = Thisworkbook 'you say the current workbook 
filepath = "C:\User\UserName\Documents\Myworkbook.xlsx" 'hard coded version 

Set wbB = Workbooks.Open(filepath) 

With wbB 
    .Sheets("your sheet name here").Range("your range here").Copy _ 
    wbA.Sheets("destination sheet here").Range("destination range here") 
End With 

End Sub 

Если же вы хотите, чтобы выбрать файл, используйте этот line:

filepath = Application.GetOpenFilename("Excel Files (*.xlsx), "*.xlsx",,,,False) 'open file dialog version 

Затем вам нужно выбрать файл из местоположения.
Надеюсь, это поможет.

Edit1: Попробуйте это

filepath = Application.GetOpenFilename(filefilter:="Excel Files (*.xlsx), "*.xlsx") 'open file dialog version