执行VBA显示要求对象，求大佬帮忙看看

chapterc

工作表原理是将其他工作簿的表1复制到本工作簿
第二步是将复制过来的工作表中的ABCDEF列合并
我第一步执行复制完毕之后，执行第二步就会显示“要求对象”
我打开VBA之后，再点击第二步就可以执行，
求大佬帮忙看下是怎么回事，感谢

chapterc

附上代码
Sub 第二步hb()
Dim H As Byte
    Sheet2.Select
    'i = 1
    '循环
    For i = 1 To 6
        '接收合并列 = 待合并列 & 待合并列 &待合并列。。。。
    Sheet2.Cells(i, 1) = Sheet2.Cells(i, 1) & Sheet2.Cells(i, 2) & Sheet2.Cells(i, 3) & Sheet2.Cells(i, 4) & Sheet2.Cells(i, 5) & Sheet2.Cells(i, 6)
    Next
    Sheet2.Columns("B:F").Select
    Selection.Delete Shift:=xlToLeft
   
    Sheet2.Range("A199").Select
    Selection.End(xlUp).Select
    H = Selection.Row
    Sheet2.Range("A" & H + 1).Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Selection.NumberFormatLocal = "yyyy-m-d"
    Sheet1.Select
   
End Sub

chapterc

代码发出来在审核中。。。。

chapterc

1. Dim H As Byte
   
2.     Sheet2.Select
   
3.     'i = 1
   
4.     '循环
   
5.     For i = 1 To 6
   
6.         '接收合并列 = 待合并列 & 待合并列 &待合并列。。。。
   
7.     Sheet2.Cells(i, 1) = Sheet2.Cells(i, 1) & Sheet2.Cells(i, 2) & Sheet2.Cells(i, 3) & Sheet2.Cells(i, 4) & Sheet2.Cells(i, 5) & Sheet2.Cells(i, 6)
   
8.     Next
   
9.     Sheet2.Columns("B:F").Select
   
10.     Selection.Delete Shift:=xlToLeft
    
11.    
    
12.     Sheet2.Range("A199").Select
    
13.     Selection.End(xlUp).Select
    
14.     H = Selection.Row
    
15.     Sheet2.Range("A" & H + 1).Select
    
16.     ActiveCell.FormulaR1C1 = "=TODAY()"
    
17.     Selection.NumberFormatLocal = "yyyy-m-d"
    
18.     Sheet1.Select

复制代码

chapterc

代码附上

Dim H As Byte
    Sheet2.Select
    'i = 1
    '循环
    For i = 1 To 6
        '接收合并列 = 待合并列 & 待合并列 &待合并列。。。。
    Sheet2.Cells(i, 1) = Sheet2.Cells(i, 1) & Sheet2.Cells(i, 2) & Sheet2.Cells(i, 3) & Sheet2.Cells(i, 4) & Sheet2.Cells(i, 5) & Sheet2.Cells(i, 6)
    Next
    Sheet2.Columns("B:F").Select
    Selection.Delete Shift:=xlToLeft
   
    Sheet2.Range("A199").Select
    Selection.End(xlUp).Select
    H = Selection.Row
    Sheet2.Range("A" & H + 1).Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Selection.NumberFormatLocal = "yyyy-m-d"
    Sheet1.Select

chapterc

Dim H As Byte
    Sheet2.Select
    For i = 1 To 3
    Sheet2.Cells(i, 1) = Sheet2.Cells(i, 1) & Sheet2.Cells(i, 2) & Sheet2.Cells(i, 3)
    Next
    Sheet2.Columns("B:F").Select
    Selection.Delete Shift:=xlToLeft
    Sheet2.Range("A199").Select
    Selection.End(xlUp).Select
    H = Selection.Row
    Sheet2.Range("A" & H + 1).Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Selection.NumberFormatLocal = "yyyy-m-d"

chapterc

Dim H As Byte
    Sheet2.Select
    'i = 1
    For i = 1 To 3
    Sheet2.Cells(i, 1) = Sheet2.Cells(i, 1) & Sheet2.Cells(i, 2) & Sheet2.Cells(i, 3)
    Next
    Sheet2.Columns("B:F").Select
    Selection.Delete Shift:=xlToLeft
    Sheet2.Range("A199").Select
    Selection.End(xlUp).Select
    H = Selection.Row
    Sheet2.Range("A" & H + 1).Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Selection.NumberFormatLocal = "yyyy-m-d"

chapterc

求大佬帮忙看一下哪里出错了

消灭零公里

你第一步没有 wb.close,后面会默认wb是活动工作簿

chapterc

消灭零公里 发表于 2020-11-27 15:31
你第一步没有 wb.close,后面会默认wb是活动工作簿

我在第一步最后一个End if下面增加了一行 wb.close
显示系统错误&H80001A8