Перенос данных из одной рабочей книги в другую с помощью vba

Question

Я хочу перенести данные из "Finalinputsheet" в новую рабочую книгу с именем "Mydata". Это код, который я пробовал для столбцов, которые я хочу перенести в новую рабочую книгу

Sub transfer()
Dim MyData As Workbook
Dim DataWs As Worksheet
Dim myWs As Worksheet
Set myWs = ThisWorkbook.Sheets("FinalinputFile")
Set MyData = Workbooks.Open("D:\Desktop\My\MyData.xlsx")
Set DataWs = MyData.Sheets("Data")
myWs.Range("C3:C11000").Copy
DataWs.Range("E2").PasteSpecial xlPasteAll

Set myWs = ThisWorkbook.Sheets("FinalinputFile")
Set MyData = Workbooks.Open("D:\Desktop\My\MyData.xlsx")
Set DataWs = MyData.Sheets("Data")
myWs.Range("E3:E11000").Copy
DataWs.Range("F2").PasteSpecial xlPasteAll




MyData.Save

End Sub

Я пробовал это, но это не дает мне вывод, не уверен, где я ошибся

Answer 1

Ну, вы не получаете вывод, потому что весь ваш код в основном делает выбор диапазона и получает количество столбцов. Код ниже должен сделать свое дело. Просто измените путь к файлу.

Sub transfer()
Dim MyData As Workbook
Dim DataWs As Worksheet
dim myWs as Worksheet
set myWs = thisworkbook.sheets("FinalinputFile")
Set MyData = Workbooks.Open("D:\Desktop\Data.xlsx")
Set DataWs = MyData.Sheets("Sheet1")
Myws.Range("C3:C440").Copy
DataWs.Range("E2").PasteSpecial xlPasteAll

MyData.Save

End Sub