使用 vba 将数据从一个工作簿传输到另一个工作簿
吉乔伊·托马斯
我想将数据从“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
我试过这个，但它没有给我一个输出不确定我哪里出错了
RCL
好吧，您没有得到输出，因为您的所有代码主要做的是选择一个范围并获取列数。下面的代码应该可以解决问题。只需更改文件的路径。
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
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
使用 VBA 将工作表复制到另一个工作簿
- 2
VBA 将数据传输到另一个工作簿
- 3
使用VBA将特定的列从工作簿复制到另一个
- 4
使用 Openpyxl 将数据从一个工作簿移动到另一个工作簿
- 5
我可以在单元格公式内的另一个打开的工作簿中使用另一个打开的工作簿的 VBA 函数吗？
- 6
使用VBA按代号引用另一个工作簿中的图纸
- 7
使用VBA按代号引用另一个工作簿中的图纸
- 8
使用VBA通过个人工作簿宏打开另一个Excel文件
- 9
使用Excel VBA修改另一个工作簿中的.zoom属性
- 10
使用值匹配的vba从另一个工作簿中获取价值？
- 11
使用 vba 提取工作簿的第一个字符并复制到另一个工作簿
- 12
将变量从一个工作簿转移到另一个工作簿vba
- 13
从一个工作簿的VBA返回另一个工作簿的VBA的值
- 14
使用命令按钮将数据从一个工作簿发送到另一个工作簿
- 15
Excel / VBA如何在上次使用的单元格之后将数据从一个工作表移动到另一个工作表？
- 16
将VBA代码从一个工作簿中的工作表复制到另一个工作簿？
- 17
Excel VBA：使用R1C1公式将范围内的值复制到另一个工作簿
- 18
Excel VBA：使用R1C1公式将范围内的值复制到另一个工作簿
- 19
通过 VBA 将工作簿的命名范围数据复制到另一个工作簿
- 20
Excel VBA将特殊的不相交范围从一个工作簿粘贴到另一个工作簿
- 21
VBA通过粘贴公式将价值从一个工作簿转移到另一个工作簿
- 22
将宏和模块从一个工作簿复制到另一个工作簿，并使所有VBA工作在一个主工作簿中
- 23
通过VBA将数据发送到另一个工作簿
- 24
在另一个工作簿的公式中使用一个工作簿的引用
- 25
使用VBA代码将VBA代码从一个工作表复制到另一个工作表
- 26
关闭另一个用户使用VBA在同一台计算机上打开的excel工作簿
- 27
关闭另一个用户使用VBA在同一台计算机上打开的excel工作簿
- 28
将工作表复制到另一个工作簿VBA
- 29
使用VBA根据列名将数据从一个Excel工作表复制到另一个（复杂）工作表
我来说两句