[已解决]这个代码怎么改？粘贴到指定路径下工作表里

sampsonpon

Sub CopyPasteSpecial()
Selection.Copy  '先选中一个区域
If Sheet2.Range("A1") = "" Then
  N = 1
Else
  N = Sheet2.Range("A56565").End(3).Row + 1
  End If
  Sheet2.Range("A" & N).PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
  End Sub


这是一段选定区域后自动粘贴的代码，问题是：如果sheet2与要选定区域的表不在同一EXEL文档中，它在另一盘符其它地方，怎么指定路径？谢谢！

最佳答案

月排行榜 / 总排行榜

七彩屋

2015-6-18 08:58

1. Sub CopyPasteSpecial()
   
2. Selection.Copy  '先选中一个区域
   
3.   Workbooks.Open Filename:="C:\Users\Administrator\Desktop\666.xlsx"
   
4.   Worksheets("Sheet2").Activate
   
5. If Range("A1") = "" Then
   
6.   N = 1
   
7. Else
   
8.   N = Range("A56565").End(3).Row + 1
   
9. Range("A" & N).PasteSpecial Paste:=xlPasteValues
   
10.   Application.CutCopyMode = False
    
11.     End If
    
12. End Sub

复制代码

跳转到最佳答案楼层

七彩屋

Selection.Copy  '先选中一个区域
  Workbooks.Open Filename:="C:\Users\Administrator\Desktop\666.xlsx"
  Worksheets("Sheet2").Activate
If Range("A1") = "" Then

修改你要的路径

七彩屋

1. Sub CopyPasteSpecial()
   
2. Selection.Copy  '先选中一个区域
   
3.   Workbooks.Open Filename:="C:\Users\Administrator\Desktop\666.xlsx"
   
4.   Worksheets("Sheet2").Activate
   
5. If Range("A1") = "" Then
   
6.   N = 1
   
7. Else
   
8.   N = Range("A56565").End(3).Row + 1
   
9. Range("A" & N).PasteSpecial Paste:=xlPasteValues
   
10.   Application.CutCopyMode = False
    
11.     End If
    
12. End Sub

复制代码

七彩屋

测试过 当A1为空时不能输入，要按回车，不知什么原因。不为空都正常。

qh8600

打开你要黏贴的工作簿，然后黏贴到指定位置

sampsonpon

七彩屋 发表于 2015-6-18 08:58

Workbooks.Open Filename:="C:\Users\Administrator\Desktop\666.xlsx"
Worksheets("Sheet2").Activate
这个有问题，这是要每次打开C:\Users\Administrator\Desktop\666.xlsx，
其实我说要指定路径打开的意思是：如果我一次性开很多EXCEL文档的话，它该怎么识别我想要粘贴到那张EXCEL工作表里？