[已解决]新手提问？

liuyc23

复制“生日”工作表中的sheet的A列复制到根据身份吗号码提起日期“工作表中的sheet1A列，第一行是标题行，不用复制，以下这个内容老是提示错误，高手给帮忙看看？


Private Sub CommandButton1_Click()
    Set afile = Workbooks.Open("m:\生日.xls")
    With afile.Worksheets("sheet1")
    Range("A2:A" & ActiveSheet.UsedRange.Rows.Count).Copy
    Worksheets("根据身份号码提起日期").Select
    With afile.Sheets("sheet1")
    Range("a2").Select
    ActiveSheet.Paste
    End With
End With
End Sub

最佳答案

月排行榜 / 总排行榜

冥王

2015-4-6 10:23

1. Private Sub CommandButton1_Click()
   
2.     Workbooks.Open "D:\DTLDownLoads\求助\求助\生日.xls"
   
3.     With ActiveWorkbook.Sheets(1)
   
4.         .Range("A2:A" & .Range("A2").End(xlDown).Row).Copy ThisWorkbook.Sheets(1).Range("A2")
   
5.     End With
   
6.     Workbooks("生日").Close False
   
7. End Sub

复制代码

最开始路径改一下

跳转到最佳答案楼层

冥王

1. Private Sub CommandButton1_Click()
   
2.     Set afile = Workbooks.Open("m:\生日.xls")
   
3.     With ActiveWorkbook
   
4.         .Sheets("sheet1").Range("A2:A" & .Sheets("sheet1").Range("A2").End(xlDown).Row).Copy .Sheets("根据身份号码提起日期").Range("a2")
   
5.     End With
   
6. End Sub
   

复制代码

liuyc23

谢谢

liuyc23

刚才我试了一下，提示运行时错误“9”，下标越界，如附件所示，补充一下，后期复制时在前期复制的内容后面直接往下复制，谢谢

冥王

1. Private Sub CommandButton1_Click()
   
2.     Workbooks.Open "D:\DTLDownLoads\求助\求助\生日.xls"
   
3.     With ActiveWorkbook.Sheets(1)
   
4.         .Range("A2:A" & .Range("A2").End(xlDown).Row).Copy ThisWorkbook.Sheets(1).Range("A2")
   
5.     End With
   
6.     Workbooks("生日").Close False
   
7. End Sub

复制代码

最开始路径改一下

liuyc23

谢谢