求助代码求助代码

1吧吧

打开的工作薄

如何将没有打开的工作薄里的表复制到打开的工作薄里

求助代码

ykcbf1100

没有附件，无法下手。

liulang0808

可以使用代码打开工作簿，然后拷贝表格的，论坛案例很多。
另外，楼主可以录制一段宏，按照打开工作簿，拷贝表格等一系列操作实施，最后再看下代码如何调整的

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()          '//2024.8.26   数据复制
   
2.     Application.ScreenUpdating = False
   
3.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
4.     Set wb = Workbooks.Open(ThisWorkbook.Path & "\文件二.xlsm", 0)
   
5.     wb.Sheets("Sheet4").UsedRange.Copy sh.[a1]
   
6.     wb.Close 0
   
7.     Application.ScreenUpdating = True
   
8.     MsgBox "OK！"
   
9. End Sub
   

复制代码

1吧吧

感谢老师感谢平台

1吧吧

ykcbf1100 发表于 2024-8-26 08:40
参与一下。。。

多谢老师指导