Question

您好我有一个宏，我在另一个项目上使用并试图在这个上使用它。

目前我有两张Excel工作表（Excel工作表A和Excel工作表B），并且有一个宏应该在Excel工作表A的某个选项卡上占用一定范围，然后将其复制到Excel工作表B中的某个选项卡上

宏运行正常，直到某个点朝着粘贴部分进入Excel工作表B。

问题出在ThisWorkbook.Activate：

之后

＆＃34;表格（＆＃34; GTA800-1发动机营业时间＆＃34;）。选择＆＃34;

完整代码如下：

' open the source workbook and select the source sheet
Workbooks.Open Filename:="D:My Documents\Fleet Data (Hrs, Aircraft flying, etc.)\updated_monthly_engine_hrs_97_03.xls"
Sheets("PW150").Select

' copy the source range
Sheets("PW150").Range("B2:G13").Select
Selection.Copy

' select current workbook and paste the values 
ThisWorkbook.Activate
Sheets("GTA800-1 Engine Hours").Select
Sheets("GTA800-1 Engine Hours").Range("B2:G13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

' close the source workbook
Windows("updated_monthly_engine_hrs_97_03.xls").Activate
ActiveWorkbook.Close

Answer 1

了解实际的错误信息会很有用，但无论如何都不需要选择：

With Workbooks.Open(Filename:="D:My Documents\Fleet Data (Hrs, Aircraft flying, etc.)\updated_monthly_engine_hrs_97_03.xls")
    .Sheets("PW150").Range("B2:G13").Copy

    ' select current workbook and paste the values
    ThisWorkbook.Sheets("GTA800-1 Engine Hours").Range("B2").PasteSpecial Paste:=xlValues, _
                                Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    .Close
End With

Answer 2

只是一个快速的可能性。选项卡名称中的空格通常会导致问题。尝试将其更改为下划线以查看它是否正常工作（名称和代码都清楚）。

Answer 3

我不是100％确定这里的问题是什么。我刚刚在工作表中创建了一个新选项卡，并将其命名为abc，只是为了测试它，然后宏工作得很好。虽然在上面的标签上命名是正确的???

之前的标签已链接到访问权限但我删除了链接，这是我能想到的唯一导致错误的链接。有人想跟进并确认吗？否则这是我如何解决我的问题的答案。

使用我的宏时为什么一直出现运行错误？

3 个答案: