Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1720|回复: 3

二段VBA代码几乎一样 为什么一个出错一个正确

[复制链接]
发表于 2018-7-8 22:23 | 显示全部楼层 |阅读模式
二段VBA代码几乎是一样 为什么一个出错一个正确?新入门菜鸟,请各位大大解释一下

Desktop.zip

18.7 KB, 下载次数: 8

 楼主| 发表于 2018-7-9 19:44 | 显示全部楼层
回复

使用道具 举报

发表于 2018-7-18 21:13 | 显示全部楼层
本帖最后由 hasyh2008 于 2018-7-18 21:22 编辑

Sub 第一种()
    Dim x As Integer, wb As Workbook
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
    With ThisWorkbook.Sheets("第2题")
    For x = 1 To wb.Sheets.Count
        If x = 1 Then
            wb.Sheets(x).UsedRange.Copy .Range("A1")
        Else
        wb.Sheets(x).UsedRange.Offset(1, 0).Copy .Range("A" & .[A65536].End(xlUp).Row + 1)
        End If
    Next x
    wb.Close True
    End With
    End Sub
   
   
Sub 第二种()
Dim i As Integer, wbk As Workbook
Set wbk = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
With ThisWorkbook.Sheets("第2题")
For i = 1 To wbk.Sheets.Count
    If i = 1 Then
       wbk.Sheets(i).UsedRange.Copy .Range("A1")
    Else
       wbk.Sheets(i).UsedRange.Offset(1, 0).Copy .Range("A" & .[A65536].End(xlUp).Row + 1)
    End If
Next i
wbk.Close True
End With
End Sub
回复

使用道具 举报

发表于 2018-7-18 21:27 | 显示全部楼层
本帖最后由 hasyh2008 于 2018-7-18 21:28 编辑

wb.Sheets(x).UsedRange.Copy.Range   ("A1")中COPY后少了个空格。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 18:51 , Processed in 0.354847 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表