使用VBA将数据从一个工作簿传输到另一个工作簿 [英] Transfer data from one workbook to another using vba

问题描述

我想将数据从"Finalinputsheet"传输到名为"Mydata"的新工作簿，这是我尝试将要传输到新工作簿的列的代码

I want to transfer data from "Finalinputsheet" to a new workbook named "Mydata" this is the code that I've tried for the columns which i want to transfer to a new workbook

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

我已经尝试过了，但是并没有给出不确定我哪里出错的输出

I have tried this but it doesn't give me an output not sure where I've gone wrong

推荐答案

好吧，您没有得到输出，因为您的所有代码都在做的主要是选择范围并获取列数.下面的代码应该可以解决问题.只需更改文件的路径即可.

Well your not getting an output because all your code is mostly doing is selecting a range and getting the column count. The code below should do the trick. Just change the pathway for the file.

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

这篇关于使用VBA将数据从一个工作簿传输到另一个工作簿的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！