跨工作簿的复制问题

zhouheian

1.xlsx 2.xlsx 在同一个目录下，在1.xlsx下编写代码 把第三张表格A1：A10的数据 复制到2.xlsx 第三张表格A1：A10，不知道错在拿，请高手指导

maditate

从图片左边的工程表中看好象只有一个文件打开着。你现在要想把一个文件的某些数据复制贴到另一个文件上，那么请打开另一个文件。也许错误在此

abc123281

Sub test()
Dim rng As Range
Dim wb As Workbook
Set rng = Sheets(3).Range("a1:a10")
Set wb = Workbooks.Open(ThisWorkbook.Path & "\2.xlsx")
With wb
  rng.Copy .Sheets(3).Range("a1")
End With
wb.Close True
End Sub

jiminyanyan

Sub jimin()
    Dim arr
    Dim wb As Workbook
    arr = Sheets(3).Range("a1:a10")
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\2.xlsx")
    With wb
        .Sheets(3).Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    End With
    wb.Close True
End Sub

zhouheian

maditate 发表于 2019-3-19 19:36
从图片左边的工程表中看好象只有一个文件打开着。你现在要想把一个文件的某些数据复制贴到另一个文件上，那 ...

另一个文件 我打开的呢

zhouheian

maditate 发表于 2019-3-19 19:36
从图片左边的工程表中看好象只有一个文件打开着。你现在要想把一个文件的某些数据复制贴到另一个文件上，那 ...

我终于明白原因了，谢谢。

zhouheian

abc123281 发表于 2019-3-19 19:36
Sub test()
Dim rng As Range
Dim wb As Workbook

谢谢，提供的代码，学习了

zhouheian

jiminyanyan 发表于 2019-3-19 19:43
Sub jimin()
    Dim arr
    Dim wb As Workbook

谢谢，提供的代码，学习了

maditate

zhouheian 发表于 2019-3-20 14:40
我终于明白原因了，谢谢。

恭喜你取得进步。

yxb5011

也要遇到这个问题，不知道问题出在哪？楼主能说明一下问题在哪？