打开的工作薄

1吧吧

将打开的工作薄的

Sheet2

复制到

没有打开的工作薄里的Sheet3

求助代码

ykcbf1100

求助需要上传附件。

liulang0808

没有打开的工作簿，可以用代码打开的。
楼主还是录制一段宏，然后调整吧

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.28
   
2.     Application.ScreenUpdating = False
   
3.     Set ws = ThisWorkbook
   
4.     p = ws.Path & ""
   
5.     Set Rng = ws.Sheets("Sheet2").UsedRange
   
6.     f = p & "新建2.xlsm"
   
7.     Set wb = Workbooks.Open(f, 0)
   
8.     Rng.Copy wb.Sheets("Sheet3").[a1]
   
9.     wb.Close 1
   
10.     Application.ScreenUpdating = True
    
11.     MsgBox "OK！"
    
12. End Sub
    

复制代码