[已解决]粘贴到某文件夹中某工作薄的某表的某区域

zss7758258

问题：把工作薄"问题.xlsm"中B3：G3复制粘贴到同文件夹路径中工作薄"AAA.xlsm"的工作表"HHH"的单元格K6:P6，同时把工作薄"问题.XLM"中B3：G3复制粘贴到文件夹《附件1》中工作薄"BBB.xlsm"的工作表"EEE"的单元格C5:H5。
请老师们顺便讲解一下VBA路径中的知识

问题.zip (19.09 KB, 下载次数: 14)

2014-11-24 14:38 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-11-24 14:58

1. Sub Macro1()
   
2. Dim wb As Workbook
   
3. Application.ScreenUpdating = False
   
4. Application.DisplayAlerts = False
   
5. Set wb = GetObject(ThisWorkbook.Path & "\AAA.xlsm")
   
6. [b3:g3].Copy wb.Sheets("HHH").[k6]
   
7. Application.Windows(wb.Name).Visible = True
   
8. wb.Close 1
   
9. '其余类似
   
10. Application.DisplayAlerts = True
    
11. Application.ScreenUpdating = True
    
12. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim wb As Workbook
   
3. Application.ScreenUpdating = False
   
4. Application.DisplayAlerts = False
   
5. Set wb = GetObject(ThisWorkbook.Path & "\AAA.xlsm")
   
6. [b3:g3].Copy wb.Sheets("HHH").[k6]
   
7. Application.Windows(wb.Name).Visible = True
   
8. wb.Close 1
   
9. '其余类似
   
10. Application.DisplayAlerts = True
    
11. Application.ScreenUpdating = True
    
12. End Sub

复制代码

zss7758258

1. Sub Macro1()
   
2. Dim wb As Workbook
   
3. Application.ScreenUpdating = False
   
4. Application.DisplayAlerts = False
   
5. Set wb = GetObject(ThisWorkbook.Path & "\AAA.xlsm")
   
6. [b3:g3].Copy wb.Sheets("HHH").[k6]
   
7. Application.Windows(wb.Name).Visible = True
   
8. wb.Close 1
   
9. '其余类似
   
10. 
    
11. Set wb = GetObject(ThisWorkbook.Path & "\附件1\BBB.xlsm")
    
12. [b3:g3].Copy wb.Sheets("EEE").[C5]
    
13. Application.Windows(wb.Name).Visible = True
    
14. wb.Close 1
    
15. 
    
16. 
    
17. Application.DisplayAlerts = True
    
18. Application.ScreenUpdating = True
    
19. End Sub
    

复制代码